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

end;

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

minus:=form1.sum(a,'-'+b); exit;

end;

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

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

end;

c:=a;

pom:=false;

la:=length(a); lb:=length(b);

if lb>la then begin

pom:=true; c:=b; b:=a; a:=c;

la:=length(a); lb:=length(b);

end;

snos:=0;

for i:=lb downto 1 do begin

vv:=strtoint(a[la-lb+i])-strtoint(b[i])-snos;

snos:=0;

if vv<0 then begin

snos:=1; vv:=vv+10;

end;

c[la-lb+i]:=inttostr(vv)[1];

end;

if snos=1 then begin

tmp:='';

for i:=1 to lb do tmp:=tmp+'0';

tmp:='1'+tmp;

c:=minus(c,tmp);

end;