杭州交通信息网威士忌怎么读:用VF编写一个数学求和的题
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/06 11:19:09
s=1-(1/2)+(1/3)-(1/4)+(1/5)-(1/6)……+（1/n）(n<10^(-5))的和，请高手指点一二，谢谢!
因为是刚注册的所以没有很多不好意思呀！
请用VF编写 最后那个是(1/n^5)
因为是刚注册的所以没有很多不好意思呀！
请用VF编写 最后那个是(1/n^5)
n < 10^5 = 99999 ? 100001 ？
program abc
integer*4 i,n
real s,t,a
s = 0
a = -1
do i=1,99999,1
a = a * (-1)
t = a /float(i)
s = s + t
end do
write(*,*) 's=',s
end
s -- 累加器，初值0
a -- 符号，+ 或 -
t -- i 项的值
应该是10^5吧,不会是10^(-5)吧?
s=0
for n=1 to 10^(5) 设初值与终值
if int(n/2)=n/2 判断奇偶数,当为偶数时用加法
s=s-1/n
else了 否则,当为奇数时为减法
s=s+1/n
endi
endf
?"s=",s