Question

计算机VFP紧急求助 3. Fibonacci数列计算方法如下: F(1)=1,F(2)=1,F(n)=F(n-1)+F(n-2) 编写程序计算 F(10)=

Fibonacci数列计算方法如下:
F(1)=1,F(2)=1,F(n)=F(n-1)+F(n-2)
编写程序计算 F(10)=?

Answer 1

var n,m:integer;
f:array[1..30] of longint;
begin
f[1]:=0;
f[2]:=1;
readln(n);
for m :=3 to n do
f[m]:=f[m-1]+f[m-2];
writeln('f[',n,']=',f[n])
end.

Answer 2

CLEAR
DIMENSION f[10]
f[1]=1
f[2]=1
FOR i=3 TO 10
f[i]=f[i-1]+f[i-2]
ENDFOR
?f[10]