Реферат: Операции многократной точности операции с длинными числами

break;

end

else begin

mas[y].lin[mas[y].dl]:=copy(tmp,nn+1,j-nn);

mas[y].dl:=mas[y].dl+1;

nn:=j;

end;

end;

end;

end;

function TForm1.sum(a,b:string):string;

var

tmp,c,tmp2:string;

i,k,ost,j:integer;

bol:boolean;

begin

if ((b[1]='-') and (a[1]<>'-')) then begin

sum:=form1.minus(a,copy(b,2,300)); exit;

end;

if ((a[1]='-') and (b[1]<>'-')) then begin

sum:=form1.minus(b,copy(a,2,300)); exit;

end;

bol:=false;

if ((b[1]='-') and (a[1]='-')) then begin

bol:=true; a:=copy(a,2,300); b:=copy(b,2,300)

end;

if length(b)>length(a) then begin

tmp:=b; b:=a; a:=tmp;

end;