Факториал большого числа

[Metaphora]

В поиске нужного не нашёл, возможно, сможет кто-то подсказать.Язык программирования - Pascal. Необходимо вычислить сумму факториалов всех нечётных чисел от 1 до 55. Сам код программы я написал, но даже скомпилировать не могу, т.к. происходит "арифметическое переполнение" (я так понял, что стандартным типам данных не хватает памяти, чтобы хранить полученные значения факториалов и сумм).

Может, кто-то знает, как это сделать? Задание предполагает знание самых азов паскаля, т.е. нужно что-то простое. На типы Qword и Int64 компилятор ругается, что не знает таких, в Real происходит "переполнение плавающей запятой". HELP!

[dragodar]

попробуй doubleint или как он там назывался. а до каких чисел примерно идёт подсчёт?

[dragodar]

если числа целые то подойдёт longint
если с запятыми то лучше extended

[Stilet]

попробуй doubleint

Extended вообщето. Не думаю что поможет. Тут нужна длинная арифметика.

Задание предполагает знание самых азов паскаля

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

[dragodar]

ну да я прост в какомто языке использовал doubleint
а так вот сайт посмотри там http://pascal.guti.ru/types.html

[gaw4]

как вариант -представлять числа как строки

[Metaphora]

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

если числа целые то подойдёт longint
если с запятыми то лучше extended

использовал double, включил режим 8087. Спасибо, проблема решена, тему можно закрывать

[vadimych]

Вот вычисление факториала. 3000! с таким размером буфера берёт.

program Project2;

var
l, i, n, x, y, m: integer; {n - вводимое число, x - перенос, y - для промежуточного вычисления}
k: array[1..30001] of integer;

begin
Writeln('input number');
Readln(n);

k[30001]:=1;
for i:=1 to 30000 do {всё заполняем нулями, кроме последней цифры}
k[i]:=0;

for l:=1 to n do 
begin

x:=0;

for i:=30001 downto 1 do
begin

y:=k[i]*l+x; {умножаем последнюю цифру на число (от 1 до n)}
k[i]:=y mod 10; {в самый младший разряд записываем остаток}
x:=y div 10; {а это "в уме", т.е. перенос в следующий разряд}

end;
end;


n:=0;
while k[n]=0 do
n:=n+1;

x:=30001-n;

l:=30001;
while k[l]=0 do
l:=l-1;

if x>10 then
begin
write(k[n],',');
n:=n+1;
l:=l-1;
end;

for i:=n to l+1 do
 
begin

write(k[i]);

end;

if x>10 then 
begin
n:=30002-n;
writeln('e+',n);
end;
asm
xor ax,ax
int 16h
end;

end.