Длинная арифметика. Деление длинного числа на короткое., Помогите найти ошибку в программе. Опции

[Gordey]

Нашел программу, которая должна считать частное от деления длинного числа на короткое, но она не работает, помогите найти ошибку пожалуйста.
В общем вот текст программы:

const osn = 10000;
      max = 2502;
type
    Tlong = array[0..max] of longint;

procedure swap( var a,b;
                size: integer);
var
p: pointer;
begin
     getmem(p,size);
     move(a, p^, size);
     move(b,a, size);
     move(p^, b, size);
     freemem(p, size);
end;


procedure delenie( a:Tlong;
                   b:longint;
                   var c:Tlong);
var
p:longint;
i, j, ost: integer;
begin
     fillchar(c, sizeof©, 0);
     p:=0;
     i:=1;
     j:=a[0];
     while i<j do
     begin
          swap (a[i], a[j], sizeof(a[i]));
          inc(i);
          dec(j);
     end;
     ost:=0;
     for i:=1 to a[0] do
     begin
          c[i]:=(longint(ost)*osn + a[i]) div b;
          ost:=(longint(ost)*osn + a[i]) mod b;
     end;
     if c[1]=0 then
        begin
             c[0]:=a[0]-1;
             for i:=1 to c[0] do c[i]:=c[i+1];
             c[c[0]+1]:=0;
        end;
     if c[1]<>0 then c[0]:=a[0];
     i:=1;
     j:=c[0];
     while i<j do
     begin
          swap(c[i],c[j], sizeof(a[i]));
          inc(i);
          dec(j);
     end;
end;

.

Сообщение отредактировано: Gordey - 18.06.2011 15:46

[IUnknown]

Так а кто сказал, что у тебя base = 10? У тебя данные в типе TLong хранятся в каком основании? 10000? Вот и работай с ним:

{ A - делимое, B - делитель, Result - частное, результат функции - остаток от деления }
function delenie(const a : TLong; b : integer; var result : TLong) : integer;
var
   i, r : longint;
begin
   result := a;
   r := 0;
   for i := a[0] downto 1 do
   begin
      r := r * osn + result[i];
      result[i] := r div b;
      r := r mod b;
   end;

   while (result[0] > 1) and (result[result[0]] = 0) do
   begin
      dec(result[0]);
   end;
   delenie := r;
end;

Ты чего, в столбик никогда не делил?