Факториал числа в Delphi

[Prisian]

помогите, пожалуйста как мне на делфи реализовать функцию, например, 5!(пять факториал).

[Aristarh Dark]

Для этого нужно написать функцию вычисления факториала от любого числа (по этой теме круче всего осведомлен гугл), а затем вызвать ее с параметром - 5.

[Stilet]

Как и в паскале - в цикле )

[Alar]

http://programmersforum.ru/showthread.php?t=12624 - вычисление факториал в C++

[vitalik007]

я конечно еще не знаю что такое факториал
но по коду на с посотрел
вот на дэлфи
var a,i,otvet:integer;
begin
readln(a);
for i:=1 to a do
otvet:=otvet*i
writeln(otvet)

readln;
end.

[Stilet]

vitalik007

Так может не сработать если не учесть что перед циклов ответ=0

[vitalik007]

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

ну тогда вот такой код

var a,i,otvet:integer;
begin
readln(a);
if a<>0 then begin
for i:=1 to a do
otvet:=otvet*i;
writeln(otvet);
end else writeln('error');
readln;
end.

[B_N]

Факториалом натурального числа n называется произведение всех натуральных чисел, меньших или равных n. Есть еще обобщение на множество комплексных чисел, но вряд ли оно здесь нужно. Из определения вытекают два алгоритма:

1. Циклический.

function fact(n:integer):integer;
begin
    var i :integer;
    if n < 1 
        result := 0;
    else begin
        result := 1;
        for i := 1 to n do result := result * i;
    end;
end;

2. Рекурсивный

function fact(n:integer):integer;
begin
    if n < 1 result := 0;
    else if n = 1 result := 1;
    else result := n * fact(n - 1);
end;

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

[2face]

Вообще-то 0!=1, т.е. fact(0)=1

[SunKnight]

ЛИКБЕЗ.
Множитель (лат) - factor.Производная натуральных чисел от 1 до n называется факториалом и обозначается n!.

Pn=n!;

Теория вероятности.