高精度加法

最新推荐文章于 2019-10-20 13:10:03 发布

原创最新推荐文章于 2019-10-20 13:10:03 发布 · 372 阅读

CC 4.0 BY-SA版权

本文介绍了一种使用Pascal语言实现的数组加法过程，通过定义特定的数据类型与过程来完成两个大数的加法运算，并展示了如何读取字符串形式的数字并转换为内部数组表示，最终打印出计算结果。

type 
int=longint;
arr1=array[1..100000]of int;
var
aa:char;
a,b,c:arr1;
k,l1,l2,i,j,l3,p:int;
s:ansistring;
procedure add(var a,b,c:arr1);
var k,i,j:int;
begin 
k:=1;i:=1;j:=1;
    while (k<=l1)or(k<=l2)do 
    begin 
    c[k]:=a[k]+b[k]+c[k];
    c[k+1]:=c[k] div 10;
    c[k]:=c[k] mod 10;
    inc(i);inc(j); inc(k);
    end;
inc(k);inc(k);
while (c[k]=0)and(k>1) do dec(k);
l3:=k;
end;
procedure print(c:arr1);
var i:int;
begin 
for i:=l3 downto 1 do write(c[i]); 
end;
begin 
s:='';
while not eoln do
    begin read(aa); s:=s+aa; end;
l1:=length(s);
for i:=l1 downto 1 do val(s[i],a[l1+1-i]); 
s:='';
readln;
while not eoln do 
    begin read(aa); s:=s+aa; end;
l2:=length(s);
for i:=l2 downto 1 do val(s[i],b[l2+1-i]);
add(a,b,c);
print(c);
end.