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

end;

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

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

end;

bol:=true;

lev:='0'; prav:=a; pr:='0'; rab:=a;

if b<>'1' then

while (bol) do begin

tmp:=form1.minus(a,pr);

if tmp[1]='-' then tmp:=copy(tmp,2,300);

if (sravnenie(tmp,del2(b))<>1) then break;//bol:=false;

tmp:=form1.minus(prav,lev); rab:='';

rab:=form1.sum(lev,del2(tmp));

pr:=umnozen(b,rab);

if sravnenie(a,pr)=1 then begin

lev:=rab;

end

else begin

prav:=rab;

end;

end;

if zzz then rab:='-'+rab;

delen:=rab;

if ((rab='-')or(rab=''))then delen:='0';

end;

function po_ch_num(ch:string;var znach:string):boolean;

var

bol:boolean;

i:integer;