导读：(斐波那契数列)谁能解释一下这个程序中的“ c[i]:=c[i]+a[i]+b[i]; (斐波那契数列)谁能解释一下这个程序中的“ 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[i]:=c[i]+a[i]+b[i];
(斐波那契数列)谁能解释一下这个程序中的“ 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.
坏蓝眼睛2006
1年前他留下的回答
已收到1个回答
78lml
网友
该名网友总共回答了13个问题，此问答他的回答如下：采纳率：84.6%
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;
这个过程是一个高精度加法的过程.
1年前他留下的回答
6
以上就是小编为大家介绍的(斐波那契数列)谁能解释一下这个程序中的“ c[i]:=c[i]+a[i]+b[i]; 的全部内容，如果大家还对相关的内容感兴趣，请持续关注宽屏壁纸网！
标签：
内容声明：网站所展示的内容均由第三方用户投稿提供，内容的真实性、准确性和合法性均由发布用户负责。诚智拓展网对此不承担任何相关连带责任。诚智拓展网遵循相关法律法规严格审核相关关内容，如您发现页面有任何违法或侵权信息，欢迎向网站举报并提供有效线索，我们将认真核查、及时处理。感谢您的参与和支持！
