主题：求1-1/2+1/3-1/4.....+1/99-1/100的,请看看,谢谢.
新人
[专家分：30] 发布于 2005-05-29 23:06:00
CLS
sum=0
FOR n=1 TO 100
m=1/n
IF n mod 2=0 THEN m=m*(-1)
sum=sum+m
NEXT n
PRINT sum
END
回复列表 （共5个回复）
沙发
anson985 [专家分：0] 发布于 2005-05-30 06:20:00
怎么好像少了个 end if啊`~~
板凳
anson985 [专家分：0] 发布于 2005-05-30 06:24:00
sum = 0
for n = 1 to 100
m = 1 / n
if n mod 2 = 0 then
m = -m
sum = sum + m
print sum; "+" ; n ; "=" ; sum + m
end if
next n
print sum
end
我是根据了某人教我的教法编写的 还没调试 楼上试试吧
3 楼
飞鸟12 [专家分：2830] 发布于 2005-05-30 12:25:00
CLS
sum# = 0
flag = -1
FOR n# = 1 TO 100
flag = -flag
sum# = sum# + flag / n#
NEXT n#
PRINT sum#
END
4 楼
新人 [专家分：30] 发布于 2005-06-01 20:13:00
楼上的程序真巧妙,精度也高,我原来的程序保留了小数点后7位.楼上的精度达到16位.
我记下这个程序了.
5 楼
5203344 [专家分：0] 发布于 2005-12-02 08:52:00
a&b=３
c&d=5%
now,e&F=??
a&c&e==b&d&f
......
我来回复
您所在位置：