高精度减法

高精度减法

programHighPrecision2_Subtract;
const
  fn_inp='hp2.inp';
  fn_out='hp2.out';
  maxlen=100;  { max length of the number }
type
  hp=record
       len:integer; { length of the number }
       s:array[1..maxlen] of integer
       { s[1]   is the lowest position
         s[len] is the highest position}
     end;
var
  x:array[1..2] of hp;
  y:hp; { x:input ; yutput }
  positive:boolean;

procedure PrintHP(const p:hp);
  var i:integer;
  begin
    for i:=p.len downto 1 do write(p.s);
  end;

procedure init;
  var
    st:string;
    j,i:integer;
  begin
    assign(input,fn_inp);
    reset(input);
    for j:=1 to 2 do
    begin
      readln(st);
      x[j].len:=length(st);
      for i:=1 to x[j].len do { change string to HP }
       x[j].s:=ord(st[x[j].len+1-i])-ord('0');
    end;
    close(input);
  end;

procedure Subtract(a,b:hp;var c:hp); { c:=a-b, suppose a>=b }
  var i,len:integer;
  begin
    fillchar(c,sizeof(c),0);
    if a.len>b.len then len:=a.len  { get the biggerlength of a,b }
                  else len:=b.len;
    for i:=1 to len do { subtract from low to high }
    begin
      inc(c.s,a.s-b.s);
      if c.s<0 then
      begin
        inc(c.s,10);
        dec(c.s[i+1]); { add 1 to a higherposition }
      end;
    end;
    while(len>1) and (c.s[len]=0) do dec(len);
    c.len:=len;
  end;

  functionCompare(const a,b:hp):integer;
  {
    1 if a>b
    0 if a=b
   -1 if a<b
  }
  var len:integer;
  begin
    if a.len>b.len then len:=a.len  { get the biggerlength of a,b }
                  else len:=b.len;
    while(len>0) and (a.s[len]=b.s[len]) do dec(len);
    { find a position which have a different digit }
    if len=0 then compare:=0 { no difference }
             elsecompare:=a.s[len]-b.s[len];
  end;

procedure main;
  begin
    if Compare(x[1],x[2])<0 then positive:=false
                           else positive:=true;
    if positive then Subtract(x[1],x[2],y)
               else Subtract(x[2],x[1],y);
  end;

procedure out;
  begin
    assign(output,fn_out);
    rewrite(output);
    if not positive then write('-');
    PrintHP(y);
    writeln;
    close(output);
  end;

  begin
    init;
    main;
    out;
  end.