vfp 计算e的近似值.其公式为:e=1+1/1!+1/2!+1/3!+…+1/N!,直到1/N!<0.000001为止.

Question

用vpf

Answer 1

clear
s=0
n=1
do while .t.
m=1
for i=1 to n
m=m*i
endfor
r=1/m
s=s+r
if r<0.000001
exit
endif
n=n+1
enddo
?"e=1+1/1!+1/2!+1/3!+…+1/N!=",s