Реферат: Операции многократной точности операции с длинными числами
la,lb,i:integer;
begin
la:=length(a); lb:=length(b);
if a[1]='-' then begin
if b[1]='-' then sravnenie:=sravnenie(b,a)
else sravnenie:=-1;
exit;
end;
if b[1]='-' then begin
if a[1]='-' then sravnenie:=sravnenie(b,a)
else sravnenie:=1;
exit;
end;
if lb>la then sravnenie:=-1;
if lb<la then sravnenie:=1;;
if la=lb then begin
for i:=1 to la do begin
if a[i]>b[i] then begin
sravnenie:=1;
exit;
end;
if a[i]<b[i] then begin
sravnenie:=-1;
exit;
end;
end;
sravnenie:=0;
end;
end;