Длинночисленная арифметика, Длинночисленная арифметика Опции

[Tay]

Как решить задачу?
Найти отношение двух многозначных чисел.
P.S. Я просто не сталкивался с такими задачами.

Материал из FAQ:
деление двух длинных чисел :

Код

function FindBin(ost,b:Plong;const sp:integer):longint;
var up,down:word;
  c:Plong;
begin
 new(c);
 down:=0;up:=_osn;
 while up-1>down do
    begin
       MulLongShort(b,(up+down) div 2,c);
       case MoreSdvigLong(ost,c,sp) of
        0:down:=(up+down) div 2;
        1:up:=(up+down) div 2;
        2:begin
             up:=(up+down) div 2;
             down:=up;
          end;
       end;
    end;
 MulLongShort(b,(up+down) div 2,c);
 if MoreSdvigLong(ost,c,0)=0 then SubLongTwo(ost,c,sp) else
    begin
       SubLongTwo(c,ost,sp);
       ost:=c;
    end;
 FindBin:=(up+down) div 2;
 dispose(c);
end;



procedure MakeDel(a,b,res,ost:Plong);
var sp:integer;
begin
 ost^:=a^;
 sp:=a^[0]-b^[0];
 if MoreSdvigLong(a,b,sp)=1 then dec(sp);{!!!!!!!!!}
 res^[0]:=sp+1;
 while sp>=0 do
    begin
       res^[sp+1]:=FindBin(ost,b,sp);
       dec(sp);
    end;
end;



procedure DivLongTwo(a,b,res,ost:Plong);
begin
 fillchar(res^,sizeof(res^),0);res^[0]:=1;
 fillchar(ost^,sizeof(ost^),0);ost^[0]:=1;
 case MoreSdvigLong(a,b,0) of
  0:MakeDel(a,b,res,ost);
  1:ost^:=a^;
  2:res^[1]:=1;
 end;
end;

что бы разделить a на b вызовите : DivLongTwo(a,b,res,ost);
res -- результат деления a на b; ost -- остаток от деления.