Сумма длинных чисел. Длинная арифметика. Pascal, Delphi.

Код:


Function Sum(Var a, b: TLong): TLong;
Var i, t: integer;
    c: TLong;
Begin
  Fillchar(c, sizeof(c), 0); //Обнуляем результат.
  c[0] := max(a[0]), b[0]); //Считаем его длину.
  t := 0;
  For i := 1 to c[0] do
  Begin
    t := t + a[i] + b[i]; //Складываем 2 цифры.
    с[i] := t mod base; //Записываем результат.
    t := t div base; //Остаток оставляем в t.
  End;
  If t <> 0 then
  Begin
    inc(c[0]); //Если в конце действия остался остаток, то увеличиваем длину числа и в его начало(конец массива) записываем его.
    c[c[0]] := t;
  End;
  Sum := c;
End;


Ilya_L пишет:Здравствуйте, Aster! Я рад, что нашел такой хороший форум про длинную арифметику! У меня появился такой вопрос, а как быть с вещественными(дробными) числами?