факториалы больших чисел Опции

[sqrt]

Требуется найти факториалы всех чисел от 1 до 100. Стандартный цикл не канает, т.к. в longint не влезет факториал ста... Есть подозрение что это можно реализовать рекурсией, но как? Что делать???

[sqrt]

Люди! Что я неправильно делаю? Подскажите, плиз...

Код

program factorial;
const  _md=1000;
    _osn=10000;
type    t_long=array[0.._md] of integer;
    p_long=^t_long;
var    a,c:p_long;
    i,k:integer;

begin
a^[0]:=1;
a^[1]:=1;
for k:=1 to 15 do
    begin
       write(k, ' => ');
    for i:=1 to a^[0] do
 begin
 c^[i+1]:=(longint(a^[i])*k+c^[i]) div _osn;
 c^[i]:=(longint(a^[i])*k+c^[i]) mod _osn;
 end;
    if c^[a^[0]+1]>0 then c^[0]:=a^[0]+1 else c^[0]:=a^[0];
    for i:=0 to c^[0]+1 do begin a^[i]:=c^[i]; write(a^[i]); end;
    writeln('');
    end;
readln(i);
end.

пытаюсь найти факториалы от 1цы до 15 - нифига неправильно

Сообщение отредактировано: sqrt - 21.12.2004 16:50