Факториал

[Radiy]

procedure TForm1.FaktClick(Sender: TObject);
var
k,i:longint;

begin
k:=1;
for i:=2 to StrToInt(Edit1.Text) do
k:=k*i;
Edit1.Text:=IntToStr(k);

end;

Он считает факториал только до 19, про попытке посчитать 20 факториал он выдаёт: "-2102132736".

Сразу скажу, стоит у меня Lazarus.

[mMAg]

А что вас не устраивает? Факториал знаете ли самая быстрорастущая функция, поэтому факториал 20 уже выбивается за разрядную сетку longint'а. Для того, чтобы считать факториал больших чисел используйте длинную арифметику.

[Serge_Bliznykov]

mMAg, +1

немного можно увеличить диапазон, использовав Int64 вместо longint

а дальше (если нужно получать факториал для бОльших чисел) — только используя т.н. "длинную" арифметику.

[Radiy]

А в чём заключается эта длинная арифметика?

Я использовал "int64" и смог посчитать 20!, но уже 21! он считает не правильно

[Serge_Bliznykov]

А в чём заключается эта длинная арифметика?

Вы не поверите — в том, что можно проводить вычисления с любой (заданной программистом) длиной чисел - хоть с 10000-значными...
вот только все операции (начиная со сложения/вычитания) прийдётся реализовывать "вручную".

нажмите на форуме на кнопочку поиск и наберите там Длинная арифметика

или, результаты поиска на Гугле

[Utkin]

Я реализовывал через строки - вот действительно длина числа не ограничена, правда есть и обратная сторона медали - резкое падение скорости вычислений для больших разрядов.