факториал 1000

[phomm]

спокойно получаю число 4,0238(цифры)Е+2567 , Вы откомпилируйте, да посмотрите )

[Пепел Феникса]

а вы в человеческий вид перевидите.
потери точности не приемлемы.

[mohnatik]

не подскажете в чем проблема... вычисляет правильно факториалы до 261... а дальше что-то косит...

const
BigNumber = 2700;

type
TBig = array [1..BigNumber] of Byte;

procedure F(var F: TBig; Value: Integer);
var
I: Integer;
K: Integer;
Q: Integer;
Z: Integer;
J: Integer;
begin
K := 0;
for I := 1 to BigNumber - 1 do
F[I] := 0;
F[BigNumber] := 1;
for I := 2 to Value do
begin
J := BigNumber;
while J - 1 > 0 do
begin
Q := F[J]*I;
Z := Q mod 10;
F[J] := Z + K;
K := Q div 10;
K := K + F[J] div 10;
F[J] := F[J] mod 10;
J := J - 1;
end;
end;

массив F содержит рассчитываемый интеграл
Value - число для расчета интеграла

[Somebody]

Сообщение от mohnatik

вычисляет правильно факториалы до 261... а дальше что-то косит

При i = 262, j = 931 будет z + k = 262 - не влезает в f[j].

for J := BigNumber downto 1 do
begin
  K := F[J] * I + K;
  F[J] := K mod 10;
  K := K div 10;
end;

[mohnatik]

ой.. точно Byte же до 255... пасиб огромное Somebody