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

if length(b)<>length(a) then b:='0'+b;

c:=a;

j:=length(a);

tmp2:='';

for i:=length(b) downto 1 do begin

tmp2:=tmp2+'0';

k:=strtoint(c[j])+strtoint(b[i]);

k:=k+ost;

ost:=0;

if k>9 then begin

ost:=k div 10; k:=k mod 10;

end;

c[j]:=inttostr(k)[1];

j:=j-1;

end;

if ost>0 then begin

tmp2:=inttostr(ost)+tmp2;

c:=form1.sum(tmp2,c);

end;

if bol then c:='-'+c;

sum:=c;

end;

function Tform1.minus(a,b:string):string;

var

i,la,lb,vv,snos:integer;

c,tmp:string;

pom:boolean;

begin

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