Рекурсия Опции

[Client]

Function fact(i:integer):longint;
begin
   if (i=0) or (i=1) then
      fact:=1
   else
      fact:=fact(i-1)*i
end;

Объясните, пожалуйста, как она работает (ведь это рекурсия?)

[Gendalf]

Эта функция вычисляет факториал i!
Если i=1 или 0, то факториал равен 1.
если нет, то он вычисляет значение факториала (i-1), предварительно умножив его на i
Так он спускается, пока не дойдет до i=1. в итоге если в начальной процедуре i=4, то факториал будет иметь вид fact=4*fact(3)=4*3*Fact(2)=4*3*2*fact(1)=4*3*2*1=4!