早教吧作业答案频道 -->其他-->
(斐波那契数列)谁能解释一下这个程序中的“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;
这个过程是一个高精度加法的过程.
看了 (斐波那契数列)谁能解释一下...的网友还看了以下:
1.下列加点字注音有误的一项是()A.制裁(cái)恍若(huǎng)赃物(zāng)B.琉璃(l 2020-07-07 …
1.下列加点字注音有误的一项是()A.制裁(cái)恍若(huǎng)赃物(zāng)B.琉璃(l 2020-07-07 …
英语单词填空1.时间状语:d-r-n-2.场所:b-s-s-o-f-r--e-a-t-e-t3.教 2020-07-14 …
(斐波那契数列)谁能解释一下这个程序中的“c[i]:=c[i]+a[i]+b[i];varn,i, 2020-07-23 …
电容电压与电流的相量式的问题,跟虚数i有关书中相量式U=1/(iωC)*I=-i*1/(ωC)*I 2020-07-30 …
三元一次方程组a*x+b*y+c*z+d=0,e*x+f*y+g*z+h=0,i*x+j*y+k* 2020-08-03 …
1.已知charc='A';inti=l,j;,执行语句j=!c&&i++;后,则i和j的值是()。 2020-11-01 …
c自加自减问题我晕了#includemain(){inti,x,y;i=2;x=(++i)+(i++ 2020-11-01 …
大哥再问个问题定义变量如下:charc=‘w‘;inti=8;longL=15;floatf=8.9 2020-12-31 …
定义变量如下:charc=‘w‘;inti=8;longL=15;floatf=8.9f;以下赋值语 2021-02-18 …