作业帮 > 综合 > 作业

求用visual foxpro编写 设一数列{飞(n)}:f(1)=1,当n>1时,f(n)=1/( f(n-1)+1

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/13 05:18:09
求用visual foxpro编写 设一数列{飞(n)}:f(1)=1,当n>1时,f(n)=1/( f(n-1)+1 )试求
此数列前20项中大于0.618的项数
dim f(20) as double
f(1)=1
countnum=1
for i:=2 to 20 step 1
f(i)=1/(f(i-1)+1)
if f(i)>0.618 then
countnum=countnum+1
countnum," ",f(i)
next i
好久没有用VFP编程了,也不知道语法对不对,但大体意思是这样.