求级数.bak

来自「常用算法」· BAK 代码 · 共 13 行

*s=1+1/2-1/3+1/4+....
s=1
n=0
d=1
clear
input to  n
for i=1 to n
  s=s+d*1/i
  d=-d
  ?S
next i
?"s=",s