Вычисление факториала числа

[PAVEL315]

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

мда... вроде бы задачка 9 класса.

Для 7-ого...
Получилось, спасибо, но показывает зачастую искажённые значения, иногда отрицательные, иногда(больше 33) показывает 0.

[zetrix]

Если показывает отрицательное, тогда поставь тип возвращения не integer, а int64

[PAVEL315]

И ещё, просле 33 значение идёт 0, а выше 12 значения идут неправильными

[Speeker]

Ты сам то пробовал высчитать факториал 33, значение просто не помещаеться в переменную - оттуда и неправильный результат

[VDLab]

Zetrix прав, нужно использовать int64, начиная с 13 факториал занимает больше четырех байт(32 разрядов). А для числа 33 последние 4 байта как раз нули, вот ноль и показывает. Для больших чисел и int64 не хватит.

[Umen]

Для того чтобы проверить правильность результата лучше вользоваться каким-нибудь метематическим пакетом, напрамер MATLAB, MATHCAD, DERIVE и др.

[londoner]

Вот правильный вариант. Решение двумя вариантами: рекурсией или циклом. Рекурсией эффективней, т.к. позже наступает численное преполнение.

function TForm1.FacRec(n: integer): integer;
begin
if n<0 then Exit;
if (n=1) or (n=0) then result:=1
else
result:=n*FacRec(n-1);
end;
function Tform1.Fac(n :integer): integer;
var i,f: integer;
begin
if n<0 then Exit;
f:=1;
for i:=2 to n do
f:=f*i;
result:=f;
end;

[Plague]

Вычисление факториала конечно интересное дело.
Но в большинстве задач явно он никогда не вычисляется
например: найти сумму ряда ∑x^n/n!

n:=0;
summ:=1;
p:=1;
repeat
 n:=n+1;
 p:=p*x/n;
 summ:= summ+p;
until abs(p)>0.001

факториал явно не вычисляется хотя задача решена.
А если вы хотите видеть все цифры факториала числа,
то тут задача уже на длинную арифметику.
Можно её в принципе обсудить.