Рекурсия

[Romeshek]

Я это понимаю.
НО

function FacIterative(n: Word): Longint; 
var 
f: LongInt; 
i: Integer; 
begin 
f := 1; 
for i := 2 to n do 
f := f * i; 
Result := f; 
end; 

// Recursive Solution: 

function FacRecursive(n: Word): LongInt; 
begin 
if n > 1 then 
Result := n * FacRecursive(n - 1) 
else 
Result := 1; 
end;

Это пример из той ссылки, что кинул Алекс.
В нем мы прямо в функции присваиваем значение факториалу, а не обращаемся к нему. Может я что-то не понимаю?

[Serge_Bliznykov]

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

Может я что-то не понимаю?

не понимаете.

в вашем примере две функции для вычисления факториала.

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

function FacIterative(n: Word): Longint;

это итерактивная (с помощью цикла).
в ней НЕТ рекурсии.

а вторая - РЕКУРСИВНАЯ (которая вызывает сама себя):

// Recursive Solution: - перевод. Рекурсивное решение

function FacRecursive(n: Word): LongInt; 
begin 
if n > 1 then 
Result := n * FacRecursive(n - 1) 
else 
Result := 1; 
end;

еслит не понятно, где же внутри функции FacRecursive вызывается функция FacRecursive,
то я выделил рекурсивный вызов.

так стало понятней?

[Romeshek]

Более менее.
Получается, что программа, которую я кидал в самом первом сообщении - она неправильная?

[Serge_Bliznykov]

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

она неправильная?

я не знаю, правильная она или нет (для этого нужно 1) знать какую задачу она должна решить 2) проанализировать её код ).

Но она НЕ РЕКУРСИВНАЯ. В ней нет вызова самой себя.