модуль расчёта факториала (Паскаль/Delphi)

[Pyxy]

помогите пожалуйста
Составить программу вычисления значения выражения k!/m!. Функцию вычисления факториала числа спрятать в модуль.

[Pyxy]

все зделал работает)
может кому то прегодится

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Unit1 in 'Unit1.pas';
var k,m: word; rez: real;
begin
write ('vvedit k i m:');
readln (k,m);
rez:=(Factorial(k))/(Factorial(m));
write ('znachennia vurazy: ',rez:5:2);
readln;
end.

вот модуль

unit Unit1;

interface
function Factorial(n: word): LongInt;
implementation
function Factorial(n: word): LongInt;
var
  fact: longint;
begin
  fact := 1;
  if n=0 then exit;
  for n := 1 to n do
  fact := fact*n;
  Factorial := fact;
end;
end.

[Hacker19_90]

Ошиблись

 for n := 1 to n do

Поправте!

[Pyxy]

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

Ошиблись

Поправте!

а что не правильно она работает

[Arigato]

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

Ошиблись

В принципе, тут ошибки нет. Не красиво записано, согласен, но корректно. n локальная переменная, т.е. можно присваивать, n инициализирована, т.к. является аргументом. Пределы цикла for рассчитываются до начала самого цикла, так что ничего криминального тут нет.

Ошибка есть в другом: if n=0 then exit; - тут результат функции не определен.

[Pyxy]

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

В принципе, тут ошибки нет. Не красиво записано, согласен, но корректно. n локальная переменная, т.е. можно присваивать, n инициализирована, т.к. является аргументом. Пределы цикла for рассчитываются до начала самого цикла, так что ничего криминального тут нет.

главное что работает без проблем

[Arigato]

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

главное что работает без проблем

Вы не правы.
К тому же она у вас без проблем не работает. 0! = 1, а у вас 0! = 0, точнее сказать у вас он вообще не определен.