高精度加减乘法小程序 Ver 0.9.5 beta

第一版见：http://www.cnblogs.com/Catch-22/archive/2012/11/05/2756004.html 

Ver 0.9.5 Beta

本版修正了乘积为0时无输出的Bug（感谢luogu.org的数据）

Uses Math;
Var
  a,b:AnsiSTring;
  DC,la,lb:longint;
  c:Array[-2555555..2555555] of longint;
Procedure Plus(a,b:AnsiSTring);
  Var
    Tt,i:longint;
  Begin
    if la>lb Then
      Begin
        For i:=1 to la-lb do
          b:='0'+b;
        lb:=la;
      End
    Else
      Begin
        For i:=1 to lb-la do
          a:='0'+a;
 20         la:=lb;
      End;
    For i:=1 to la do
      c[i]:=Ord(a[i])+Ord(b[i])-96;
    For i:=la Downto 1 do
      if (c[i]+DC)>=10 Then
        Begin
          Tt:=(c[i]+DC) Mod 10;
          DC:=(c[i]+DC) Div 10;
          c[i]:=Tt;
        End
      Else
        Begin
          c[i]:=c[i]+DC;
          DC:=0;
        End;
    c[0]:=-1;
    if DC>0 Then c[0]:=DC;
    For i:=0 to la do
      if c[i]<>-1 Then  Write(c[i]);
    Writeln;
  End;
Procedure Minus(A,b:AnsiSTring);
  Var
    t:AnsiSTring;
    Tt,i:longint;
  Begin
    if la>=lb Then
      Begin
        For i:=1 to la-lb do
          b:='0'+b;
        lb:=la;
      End
    Else
      Begin
        For i:=1 to lb-la do
          a:='0'+a;
        la:=lb;
        Write('-');
        t:=a;
        a:=b;
        b:=t;
      End;
    For i:=1 to la do
      c[i]:=Ord(a[i])-Ord(b[i]);
    For i:=la Downto 1 do
      if (c[i])<0 Then
        Begin
          c[i]:=c[i]+10;
          c[i-1]:=c[i-1]-1;
        End;
    lb:=1;
    While (c[lb]=0) And (lb<la) do Inc(lb);
    For i:=lb to la do
      if c[i]<>-1 Then  Write(c[i]);
    Writeln;
  End;
Procedure Multiply(a,b:AnsiString);
  Var
    Tt,xx,i,j:longint;
  Begin
    xx:=0; Tt:=Maxlongint;
    For i:=La Downto 1 do
      For j:=lb Downto 1 do
        Begin
          c[i+j-1]:=((Ord(a[i])-48)*(Ord(b[j])-48)+c[i+j-1]);
          Tt:=Min(Tt,i+j-1);
          xx:=Max(xx,i+j-1);
        End;
    While c[tt]=0 Do Inc(tt);
    DC:=0;
    For i:=xx Downto Tt Do
      Begin
        if c[i]+DC>=10 Then
          Begin
            lb:=c[i];
            c[i]:=(c[i]+DC) Mod 10;
            DC:=(lb+DC) Div 10;
          End
        Else                           
          Begin
            c[i]:=c[i]+Dc;
            DC:=0;
          End;
      End;
    if DC>0 Then Write(DC);
    For i:=Tt To xx do Write(c[i]); //Writeln;
    if Tt>=xx Then Writeln(0) Else Writeln;//Thanks For Luogu.org 's Data.
  End;
Begin
  While True Do
    Begin
      Writeln('高精度数字计算器 Ver 0.9.5 Beta Done By Catch-22.S.Iris');
      Writeln('本计算器暂时只支持加减乘三则运算,其他运算更新中...');
      Writeln('请不要拿无聊的超多位数来BS本程序，谢谢合作.');
      Writeln('请输入要计算的两个高精度数字:');
      Write('请输入第一个数字，并换行:');
      Readln(a);
      Write('请输入第二个数字，并换行:');
      Readln(b);
      la:=length(a);
      lb:=Length(b);
      Writeln('计算中..');
      FillChar(c,Sizeof(c),0); DC:=0;
      Write(a,'+',b,'=');
      Plus(a,b);
      FillChar(c,Sizeof(c),0); DC:=0;
      Write(a,'-',b,'=');
      Minus(a,b);
      FillChar(c,Sizeof(c),0); DC:=0;
      Write(a,'*',b,'=');
      Multiply(a,b);
      Writeln('谢谢使用，如需继续计算请输入11,如不需要请输入任意字符');
      Readln(a);
      if a<>'11' Then 
         Begin
           Writeln('Thank You.');
           For la:=1 to Maxlongint Shr 4 do lb:=1;
           Exit;
         End;
    End;
End.

EXE:http://yunpan.cn/Qbbtc522V2Sar