早教吧作业答案频道 -->其他-->
(斐波那契数列)谁能解释一下这个程序中的“c[i]:=c[i]+a[i]+b[i];varn,i,l:integer;a,b,c:array[1..10000]ofbyte;procedureplus;vari:integer;beginfillchar(c,sizeof(c),0);fori:=1toldobeginc[i]:=c[i]+a[i]+b[i];c[i+1]:=c[i]d
题目详情
(斐波那契数列)谁能解释一下这个程序中的“ c[i]:=c[i]+a[i]+b[i];
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);
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.
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);
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.
▼优质解答
答案和解析
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]:=c[i] mod 10;
end;
if c[l+1]>0 then l:=l+1; //如最高位发生了进位,则和的位数加1
end;
这个过程是一个高精度加法的过程.
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]:=c[i] mod 10;
end;
if c[l+1]>0 then l:=l+1; //如最高位发生了进位,则和的位数加1
end;
这个过程是一个高精度加法的过程.
看了 (斐波那契数列)谁能解释一下...的网友还看了以下:
若a+b=b+c,则a-b(c为整式)若a=b,则ac=bc(c为整式)若ac=bc,则a=b(c 2020-04-22 …
将0.2mol·L-1的NaA溶液和0.1mol·L-1的盐酸等体积混合后,所得溶液pH>7,则下 2020-05-14 …
因式分解a3(b-c)+b3(c-a)+c3(a-b)如果用待定系数法解,得a3(b-c)+b3( 2020-05-16 …
分解因式(a-b-c)(a+b-c)-(b-c-a)(b+c-a)正确答案是这个:(a+b-c)( 2020-05-17 …
求教分析一道代数式值题的解答过程.题目是这样的:已知(b+c)/a=(a+c)/b=(a+b)/c 2020-05-20 …
分式方程请观察下列方程和它们的根请观察下列方程和它们的根:x+1/x=c+1/c的解是x=c或x= 2020-06-06 …
a(b-c)^5+b(c-a)^5+c(a-b)^5分解为(a-b)(b-c)(c-a)L(aa( 2020-07-09 …
关于x的方程x+1/x=c+1/c的解是x1=c,x2=1/c;x-1/x=c-c/1(即x+(- 2020-07-21 …
关于X的方程:x+1/x=c+1/c的解是x1=c,x2=1/cx+2/x=c+2/c的解是x1= 2020-07-29 …
直接写口数c.6÷c.6=6.3×c.四=12.五×c.8=1c÷c.五=c.8÷c.c4=c.42 2020-10-31 …