【经典代码】高精度加法

type sz=array[0..503] of longint;
var i,t:longint;
    s,s1:ansistring;
    a,b:sz;

procedure jia(a,b:sz);
var i,t:longint;
    c:sz;
begin
    fillchar(c,sizeof(c),0);
    if a[0]>b[0] then t:=a[0] else t:=b[0];
    for i:=1 to t do begin
        c[i]:=a[i]+b[i]+c[i];
        if c[i]>=10 then begin
            c[i]:=c[i] mod 10;
            c[i+1]:=c[i+1]+1;
        end;
    end;
    if c[t+1]>0 then inc(t);
    c[0]:=t;
    for i:=t downto 1 do write(c[i]);
end;

begin
    readln(s);
    readln(s1);
    for i:=length(s) downto 1 do begin
        inc(t);
        val(s[i],a[t]);
    end;
    a[0]:=t;
    t:=0;
    for i:=length(s1) downto 1 do begin
        inc(t);
        val(s1[i],b[t]);
    end;
    b[0]:=t;
    jia(a,b);
end.

注：sz[0] 指当前数字的位数     范围依据实际情况而定

仅供复制粘贴