洛谷2142 高精度减法 解题报告

洛谷2142 高精度减法

本题地址： http://www.luogu.org/problem/show?pid=2142

题目描述

高精度减法

输入输出格式

输入格式：

两个数（第二个可能比第一个大）

输出格式：

结果（是负数要输出负号）

输入输出样例

输入样例#1：

2
1

输出样例#1：

1

说明

无

题解

高精度

高精度减法须按照如下步骤进行。

1.输入和存储。

2.计算结果的位数和正负：位数不会超过两数中较大的一个，判断结果的正负可以根据被减数和减数的大小进行判断。

3.计算与错位处理。

4.处理结果的位数并输出结果。因为程序开始将结果的位数初始化为较大数的位数，实际中结果的位数可能达不到，因此要算出结果的实际位数。

下面附上代码。

代码

var i,l1,l2:longint;
    a,b,c:array [1..502] of longint;
    ch:array [1..502] of char;
    fan:boolean;
begin
 repeat//输入被减数，可以用array of char或ansistring储存
  inc(l1);
  read(ch[l1]);
 until eoln;
 for i:=1 to l1 do a[i]:=ord(ch[l1-i+1])-48;//转化为array of longint
 readln;
 repeat//对减数的处理同上
  inc(l2);
  read(ch[l2]);
 until eoln;
 for i:=1 to l2 do b[i]:=ord(ch[l2-i+1])-48;
 if (l1<l2) or (l1=l2) and (a[1]<b[1]) then//特殊情况：当差为负数时
  begin
   fan:=true;//负数标记为真，供后期判断是否输出负号
   //交换两个数，因为|a-b|=|b-a|，只需判断是否输出负号就行了
   for i:=1 to l1 do c[i]:=a[i];
   for i:=1 to l2 do a[i]:=b[i];
   fillchar(b,sizeof(b),0);
   for i:=1 to l1 do b[i]:=c[i];
   l1:=l2;//减法运算执行Max(Len1,Len2)次，这里用L1储存
  end;
 for i:=1 to l1 do
 begin
  c[i]:=a[i]-b[i];
  if (c[i]<0) and (i<l1) then//不是最高位时借位
   begin
    dec(a[i+1]);//注意这里要累减的不是c数组，应该是a数组
    inc(c[i],10);
   end;
 end;
 while c[l1]=0 do dec(l1);//找到最高的非0位
 if l1<=0 then//当差为0时，直接输出并退出
  begin
   writeln(0);
   halt;
  end;
 //输出差
 if fan then write('-');
 for i:=l1 downto 1 do write(c[i]);
end.

（本文系笔者原创，未经允许不得转载）