1， 1/2，1/3，1/5，1/8，1/13 。。。。。1/n （1/n<0.001）求和

求该程序算法的VFP代码

我很久没用ＶＦＰ了，忘记了语法！
你会Ｃ吗？会的话我就帮你写Ｃ代码你变一下就可以了！

CLEAR
SET TALK off
m=1
n=2
l=0
sss=1
c=0
i=0
DO while(1/n>=0.01)
sss=sss+1/n
DO ss with m,n
enddo
?"其和值为：",STR(sss,10,5),SPACE(10),"1/n的值为：",STR(1/n,10,5)
procedure ss
lPARAMETERS m,n
l=m+n
m=n
n=l
return
endfunc
****************************************
运行结果是这样的:其和值为:2.34171 1/n的值为:0.00694
不知对不对,自己看看