高精度减法

高精度减法（a-b）(a>b且a,b均为正整数) 。从键盘读入两个正整数，求它们的差。

分析：类似加法，可以用竖式求减法。在做减法运算时，需要注意的是：被减数必须比减数大，同时需要处理借位。高精度减法的参考程序：

program exam2;
const
  max=200;
var
  a,b,c:array[1..max] of 0..9;
 6   n,n1,n2:string;
  lena,lenb,lenc,i,x:integer;
begin
  readln(n1);
  readln(n2); {处理被减数和减数}
  if (length(n1)<length(n2)) or (length(n1)=length(n2)) and (n1<n2) then
  begin
    n:=n1;n1:=n2;n2:=n;
    write(’-’) {n1<n2,结果为负数}
  end;
  lena:=length(n1); lenb:=length(n2);
  for i:=1 to lena do a[lena-i+1]:=ord(n1[i])-ord(’0’);
  for i:=1 to lenb do b[lenb-i+1]:=ord(n2[i])-ord(’0’);
   i:=1;
   x:=0;
   while (i<=lena) or(i<=lenb) do
   begin
     x := a[i] - b[i] + 10 + x; {不考虑大小问题，先往高位借10}
     c[i] := x mod 10 ; {保存第i 位的值}
     x := x div 10 - 1; {将高位借掉的1减去}
     i := i + 1
   end;
  lenc:=i;
  while (c[lenc]=0) and (lenc>1) do dec(lenc); {最高位的0 不输出}
 for i:=lenc downto 1 do write(c[i]);
 writeln
end.