UC知道Pascal编程的问题
来源：百度知道 编辑：UC知道 时间：2024/05/20 05:53:43
求数列1,1,2,3,5,8,13,21...第n项的值
用复循环语句
(提示:从第3个数起,每个数是前面2个数的和)
用复循环语句
(提示:从第3个数起,每个数是前面2个数的和)
program fibonacci;
var a,b,c,i,m,n:longint;
begin
readln(n);
a:=1;
b:=1;
m:=2;
while m<n do begin
inc(m);
c:=a+b;
a:=b;
b:=c;
end;
writeln(c);
end.
斐波纳锲数列
var
i,a,b,c,n:longint;
begin
readln(n);
a:=1; b:=1;
for i:=3 to n do
begin
c:=a+b;
a:=b;
b:=c;
end;
writeln(b);
end.
program heyy0001;
var
i,a,b,c,n:longint;
begin
readln(n);
a:=1; b:=1;
for i:=3 to n do
begin
c:=a+b;
a:=b;
b:=c;
end;
writeln(b);
end.
（斐波纳契数列）