求级数.bak

常用算法

*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