Деление двух длинных чисел, как реализовать с помощью объектов в Delphi? Опции

[serogan]

В FAQ'е (длинная арифметика) нашла функции для деления двух длинных чисел. Можете объяснить, как реализовать это в Delphi, желательно как объекты? Заранее спасибо.

[Гость]

Но в Hugeobj только умножение , деления нет (оно есть выше, но вроде не через объекты). А как можно переделать ?

[volvo]

деления нет (оно есть выше, но вроде не через объекты). А как можно переделать ?

Вот так попробуй:
 DLINNA.PAS ( 6.76 килобайт ) Кол-во скачиваний: 399


Файл D.IN содержит:

2785600000000
354

Тестовая программа:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Dlinna;

var
  a, b, c, d: TObj;
  f_out: text;

begin
  { TODO -oUser -cConsole Main : Insert code here }

   assign(input,'d.in');reset(input);
   assign(f_out, 'd.txt');rewrite(f_out);

   a.Init; b.Init; c.Init; d.Init;

   a.ReadLong(input);
   a.WriteLong(f_out);
   b.ReadLong(input);
   b.WriteLong(f_out);
   c.DivLongTwo(a,b,d);
   writeln(f_out, 'results:');
   c.WriteLong(f_out);
   d.WriteLong(f_out);

   close(f_out);
   close(Input);

   a.Done; b.Done; c.Done; d.Done;
end.