高精度加法

原创 2015年07月10日 09:47:00
代码一: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.
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

C语言-高精度加法

  • 2014-11-13 09:41
  • 686B
  • 下载

高精度加法的C++实现

  • 2010-12-06 18:51
  • 936B
  • 下载

高精度加法模板

#include #include #include using namespace std; int additive(int a[], int len1, int b[], int len2, i...

高精度加法

  • 2012-11-27 22:11
  • 697B
  • 下载

hdu1250高精度加法

HDU-1753 实数高精度加法

/* * hdu-1753 daming a+b * mike-w * 2012-5-23 */ #include #include #include #define MAX_SIZE 45...

【高精度】被限制的加法,石油大学

高精度】被限制的加法

信息奥赛高精度加法

  • 2015-10-19 21:57
  • 264KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)