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

[B_N]

0! принимается равным единице, но на самом деле он для нуля (в данном определении) не существует потому, что 0 - не натуральное число. Но, с другой стороны, почему бы и не поправить

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

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

[still_alive]

Производная натуральных чисел

В смысле произведение?

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

Неа, азы комбинаторики.

function Fact(const N: Integer): Integer;
var
  I: Integer;
begin
  if N < 0 then
    Result := -1
  else
  begin
    Result := 1;
    for I := 2 to N do
      Result := Result * I;
  end;
end;

B_N, признавайся - ты сишник?

[2face]

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

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

Pn=n!;

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

Математику в школе учить надо! 0!=1 - это исключение. Если человеку давать функцию, то правильную.

[2face]

Pn=n! - сумма всех перестановок n элементов. Комбинаторика!!!

[B_N]

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

B_N, признавайся - ты сишник?

А шо? Заметно?

[still_alive]

сумма

Только не сумма, а кол-во.

B_N, по отсутствию then и объявлению переменных внутри кода функции это было легко определить

[B_N]

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

B_N, по отсутствию then и объявлению переменных внутри кода функции это было легко определить

Хе-хе.. then наверно забыл с непривычки, каюсь . А с переменными... да уж.. перемудрил... компильнуть-то нечем, не ставить же паскаль-то... Вот так всегда, хочешь, как лучше, а получается....