高精度——A+B Problem（高精）

Vagari_

于 2017-02-12 09:12:44 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/SSL_QYH0Ice/article/details/54999432

本文解析了洛谷P1601A+B问题，即高精度加法实现。通过实例演示了如何处理两个大整数相加的情况，并提供了完整的Pascal代码实现。

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

洛谷 P1601 A+B Problem（高精）
题目描述
高精度加法,相当于a+b problem，不用考虑负数

分析
没什么好说的，高精度

var
 s1,s2:ansistring;
 a,b,c:array[0..100000]of longint;
 i:longint;
begin
  readln(s1);
  readln(s2);
  a[0]:=length(s1);
  b[0]:=length(s2);
  for i:=a[0] downto 1 do val(s1[i],a[a[0]-i+1]);
  for i:=b[0] downto 1 do val(s2[i],b[b[0]-i+1]);
   if a[0]<b[0] then c[0]:=b[0] else c[0]:=a[0];
  for i:=1 to c[0] do
   begin
     c[i]:=a[i]+b[i]+c[i];
     if c[i]>=10 then
      begin
        inc(c[i+1]);
        c[i]:=c[i]-10;
      end;
   end;
  if c[c[0]+1]>0 then c[0]:=c[0]+1;
  for i:=c[0] downto 1 do write(c[i]);
end.