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

var

ost,i:integer;

dr:string;

begin

ost:=0;

dr:='';

for i:=1 to length(str) do begin

dr:=dr+inttostr((strtoint(str[i])+ost*10) div 2);

ost:=((strtoint(str[i])+ost*10) mod 2);

end;

if dr[1]='0' then dr:=copy(dr,2,300);

del2:=dr;

end;

function delen(a,b:string):string;

{delen=round(a/b)}

var

bol,zzz:boolean;

pr,tmp,lev,prav,rab:string;

begin

if b='0' then begin

showmessage('Íà íîëü äåëèòü íåëüçÿ!');

delen:='';

exit;

end;

zzz:=false;

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

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

end;

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