斐波那契数列(兔子繁殖数列),pascal语言,高精度做~❀❤
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/06/24 00:00:09
斐波那契数列(兔子繁殖数列),pascal语言,高精度做~❀❤
![斐波那契数列(兔子繁殖数列),pascal语言,高精度做~❀❤](/uploads/image/z/897355-19-5.jpg?t=%E6%96%90%E6%B3%A2%E9%82%A3%E5%A5%91%E6%95%B0%E5%88%97%28%E5%85%94%E5%AD%90%E7%B9%81%E6%AE%96%E6%95%B0%E5%88%97%EF%BC%89%2Cpascal%E8%AF%AD%E8%A8%80%2C%E9%AB%98%E7%B2%BE%E5%BA%A6%E5%81%9A%7E%26%2310048%3B%26%2310084%3B)
var
n,i,l:integer;
a,b,c:array [1..10000] of byte;
procedure plus;
var
i:integer;
begin
fillchar(c,sizeof(c),0);
for i:=1 to l do begin
c[i]:=c[i]+a[i]+b[i];
c[i+1]:=c[i] div 10;
c[i]:=c[i] mod 10;
end;
if c[l+1]>0 then l:=l+1;
end;
begin
readln(n);
fillchar(a,sizeof(a),0);
fillchar(b,sizeof(b),0);
a[1]:=1;b[1]:=1;c[1]:=1;
l:=1;
for i:=3 to n do begin
plus;
a:=b;
b:=c;
end;
for i:=l downto 1 do
write(c[i]);
writeln;
end.
n,i,l:integer;
a,b,c:array [1..10000] of byte;
procedure plus;
var
i:integer;
begin
fillchar(c,sizeof(c),0);
for i:=1 to l do begin
c[i]:=c[i]+a[i]+b[i];
c[i+1]:=c[i] div 10;
c[i]:=c[i] mod 10;
end;
if c[l+1]>0 then l:=l+1;
end;
begin
readln(n);
fillchar(a,sizeof(a),0);
fillchar(b,sizeof(b),0);
a[1]:=1;b[1]:=1;c[1]:=1;
l:=1;
for i:=3 to n do begin
plus;
a:=b;
b:=c;
end;
for i:=l downto 1 do
write(c[i]);
writeln;
end.