洛谷 1601 A+B Problem（高精）(The Last Problem In MY Winter Holiday,the Thirtieth)

yjy_aii

于 2017-02-10 18:10:08 发布

阅读量508

点赞数 2

分类专栏：高精度

本文链接：https://blog.youkuaiyun.com/yjy_aii/article/details/54973032

版权

高精度专栏收录该内容

12 篇文章

订阅专栏

本文介绍了一种处理大数相加的高精度加法算法，并通过实例代码展示了如何将字符串形式的大数转换为数组进行逐位相加，再将结果转换回字符串输出的过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

题目

 高精度加法，给出a,b，求和

题解

 高精度加法，注意a和b都是0的情况
 时间复杂度O(500)

代码

var
  a,b,c:array[1..505]of longint;
  i,j,n:longint;
  s,t:ansistring;

procedure add;
var
  x,i,j,k:longint;
begin
  i:=1;x:=0;
  while i<=n do
    begin
      c[i]:=a[i]+b[i]+x;
      x:=c[i] div 10;
      c[i]:=c[i] mod 10;
      inc(i);
    end;
  if x>0 then c[i]:=x;
end;

begin
  readln(s);
  j:=length(s);
  for i:=1 to j do
    a[j-i+1]:=ord(s[i])-ord('0');
  readln(t);
  n:=j;
  j:=length(t);
  if n<j then n:=j;
  for i:=1 to j do
    b[j-i+1]:=ord(t[i])-ord('0');
  if (s='0')and(t='0') then begin writeln('0');halt;end;
  add;
  i:=505;
  while c[i]=0 do dec(i);
  for j:=i downto 1 do
    write(c[j]);
end.