高精度加法

原创 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
  • 下载

用C++实现高精度加法运算

先说说高精度运算的概念: 是指参与运算的数(加数,减数,因子……)范围大大超出了标准数据类型(整型,实型)能表示的范围的运算。例如,求两个200位的数的和。这时,就要用到高精度算法了。(摘自百度百科)...
  • highyon
  • highyon
  • 2016年03月31日 09:56
  • 7465

高精度加法

  • 2012年11月27日 22:11
  • 697B
  • 下载

hdu1250高精度加法

  • 2010年03月19日 08:40
  • 2KB
  • 下载

整数高精度运算的库(加法,减法,乘法,除法,取模)

这几天开始做些ACM的Online Judge题目,遇到了个数据范围有10^100的题目,原题 是求两个整数的最小公倍数,没用高精写好算法后发现需要的运算类型比较多,基本除了加法没用到其他的都要,于是...
  • hiiiiiu
  • hiiiiiu
  • 2011年05月28日 18:26
  • 2432

高精度加法、减法、乘法和除法

  • 2008年10月28日 21:28
  • 979KB
  • 下载

高精度加法和减法的编程实现

无论是加法还是减法,读入的两个数都是正整数,计算的结果根据实际运算结果情况保存到数组中。 对于数据的读取,可以是字符串,也可以是整数 对于计算结果,我这里不超过80位(可以修改) 两个数相加的程序...

信息奥赛高精度加法

  • 2015年10月19日 21:57
  • 264KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:高精度加法
举报原因:
原因补充:

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