关闭

高精度加法

132人阅读 评论(0) 收藏 举报
分类:
代码一: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.
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:14845次
    • 积分:106
    • 等级:
    • 排名:千里之外
    • 原创:91篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档