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

begin

bol:=false;

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

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

end;

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

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

end;

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

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

end;

if ((a='0')or(b='0')) then begin

umnozen:='0'; exit;

end;

k:=length(b);

c:='0'; tmp:='';

for i:=k downto 1 do begin

r:=umn(strtoint(b[i]),a);

r:=r+tmp;

tmp:=tmp+'0';

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

end;

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

umnozen:=c;

end;

function sravnenie(a,b:string):shortint;

{ если а>b, то сравнение=1

если а<b, то сравнение=-1

если а<b, то сравнение=0}