Уважаемый K@TZZ0!!!
Вы внимательно прочитайте что я написал.
Особенно эту фразу
Вроде бы просили эту функцию написать на DELPHI, т.е. в программе на DELPHI ..................
Да, я написал это под ПАСКАЛЬ, но
с точки зрения ПРАВИЛЬНОСТИ УКАЗАННЫХ ПРЕДЛОЖЕННЫХ КОНСТРУКЦИЙ
получения ФАКТОРИАЛА
Эти конструкции я просто проверил на ПАСКАЛЕ, т.к. у меня не установлен DELPHI.
И я прекрасно знаю, что внутри любой функции в DELPHI определена переменная Result, в которой и помещается результат, возвращаемой функции. Она имеет тот же тип, что и сама функция, и может использоваться внутри функции. И если функции или переменной Result не присвоено значение, значение переменной Result неопределено.
Но вот в чем дело. Я написал рекурсивную функцию
function fuck(n:byte):longint;
begin
{Pn=1*2*3...(n-1)*n=n!}
if n=0 then fuck:=1 else fuck:=fuck(n-1)*n
end;
Использование же в этом случае вместо имени функции перменной Result не вызовет рекурсивного обращения, так как эта переменная даст текущее значение функции.
И ВЫ наверно хорошо знающий DELPHI должны это знать.
А мне такие функции как ФАКТОРИАЛ удобно решать по выше приведенной конструкции.
Ну вот и все
А насчет DELPHI - вот и дайте описание модуля вместе с функцией.
Ведь просили эту функцию написать на DELPHI, т.е. в программе на DELPHI ..................
С уважением
LEND