高精度加法

代码一:program gaojingjia;
const max=200;
var
  sa,sb:string;
  b:array[1..max] of integer;
  a:array[1..max+1] of integer;
  len,la,lb, i:integer;
begin
readln(sa); readln(sb);
fillchar(a,sizeof(a),0);  fillchar(b,sizeof(b),0);
la:=length(sa); lb:=length(sb);
for i:= la downto 1 do  a[la-i+1]:=ord(sa[i])-ord('0');
for i:= lb downto 1 do  b[lb-i+1]:=ord(sb[i])-ord('0');
if  la>lb then len:=la  else  len:=lb;
for i:=1 to len do
begin
      a[i+1]:=a[i+1]+(a[i]+b[i]) div 10;
      a[i]:=(a[i]+b[i]) mod 10;
    end;
if a[len+1]>0 then  len:=len+1;
for i:=len downto 1 do  write(a[i]);
writeln
end.
代码二:const
  size= 200+1;
type
    hugeint = Record
        len : Integer;
        num : Array[1..size] Of Integer;
    End;
var a,b:hugeint;
    s1,s2:string;
    i:integer;
procedure add(a, b : hugeint);
    Var
        i : Integer;
        ans : hugeint;
    begin
        FillChar(ans.num, SizeOf(ans.num), 0);
        If a.len > b.len
            then ans.len := a.len

            else ans.len := b.len;
        for i := 1 To ans.len Do
            begin
                ans.num[i] :=ans.num[i]+a.num[i]+b.num[i];
                ans.num[i + 1] := ans.num[i + 1] + ans.num[i] div 10;
                ans.num[i] := ans.num[i] mod 10;
            end;
        If ans.num[ans.len + 1] > 0
            Then Inc(ans.len);
        for i:=ans.len downto 1 do write(ans.num[i]);
        writeln;
    end;
   procedure datain;
   begin
    //assign(input,'highplus.in');  assign(output,'highplus.out');
    //reset(input); rewrite(output);
    readln(s1);
    readln(s2);
    a.len:=length(s1);
    b.len:=length(s2);
    for i:=1 to a.len do  a.num[i]:=ord(s1[a.len-i+1])-ord('0');
    for i:=1 to b.len do  b.num[i]:=ord(s2[b.len-i+1])-ord('0');
   end;
   begin
    datain;
     add(a,b);
   //close(input);close(output);
end.
阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/jing1223639316/article/details/46826691
个人分类: 编程
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭