求 VFP 做1+1/1!+1/2!+……+1/10!的和

CLEA
A=0
FOR N=1 TO 10
    B=1
    FOR M=1 TO N
       B=B*M
       ?B
    ENDFOR
    A=N/B+A
ENDFOR
?A
RETU

不好意思!程序中多了一个语句"?B"是看阶乘结果用的,正确的如下:
CLEA
A=0
FOR N=1 TO 10
    B=1
    FOR M=1 TO N
       B=B*M
    ENDFOR
    A=N/B+A
ENDFOR
?A
RETU

s=1
FOR i=1 to 10
    s=s+(1/jc(i))
NEXT
?s


PROCEDURE jc
PARAMETERS x
n=1
FOR ii=2 to x
    n=n*ii
NEXT
RETURN n

store 1 to s,j
for i=1 to 10
  j=j*i
  s=s+1/j
endfor
?s

哈，佩服！
5楼Tiger5392的代码最精练！

五楼代码好精练,十分佩服

五楼代码好精练,十分佩服

五楼那个
j=j*i
  s=s+1/j

直接s=s+1/i
可以不？

s=s+1/i
这个就成了1+1/1+1/2+1/3+...+1/n