Pascal，求菲波拉契数列。输入N 求第N个数是多少例：0 1 1 2 3 5 8...... 输入：5 输出：3

显示全部楼层 · 2010-11-9 21:12:48

如题，

千问 · 2010-11-9 21:12:48

如果你没学过数组，给你这种方法迭代法：program fb;vara,b,i,n,t:integer;beginread(n);a:=0;b:=1;{设置初始值}t:=3;{从第三项开始计算}repeat
i:=a;
a:=b;
b:=a+i;
t:=t+1;until t>n;write(b);end.

千问 · 2010-11-9 21:12:48

var n:longint;function fac(s:longint):longint;beginif s=1 then fac:=0
else if s=2 then fac:=1
else fac:=fac(s-1)+fac(s-2);end;begin

千问 · 2010-11-9 21:12:48

var n:longint;function fac(s:longint):longint;beginif s=1 then fac:=0
else if s=2 then fac:=1
else fac:=fac(s-1)+fac(s-2);end;begin

千问 · 2010-11-9 21:12:48

type arr=array[1..100] of integer;var i,j
:integer;
n
:integer;
a
:array [1..200] of arr;function Addition(a,b:arr):arr;var i,len:integer

千问 · 2010-11-9 21:12:48

var
i,j,a,b,c:longint;begin
readln(i);
a:=0;
b:=1;
if i=1 then write('0')
elsebegin
for j:=1 to i-1 do
begin

Pascal，求菲波拉契数列。 输入N 求第N个数是多少 例：0 1 1 2 3 5 8...... 输入：5 输出：3

Pascal，求菲波拉契数列。输入N 求第N个数是多少例：0 1 1 2 3 5 8...... 输入：5 输出：3