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

[Client]

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

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

[volvo]

Bard, а еще главная программа должна заканчиваться точкой, правда? Вопрос был - НЕ о том, как пользоваться функциями, а о том, как работает рекурсия. Тем более, что если я напишу:
WriteLn(Fact(n));
- то получу тот же ответ.

А, кстати, лучше делать не:

...
  fact := fact(i-1) * i
...

, а вот так:

...
  fact := i * fact(i - 1)
...

Строго говоря, при программировании на Паскале это не играет особой роли, но для как можно более безболезненного перехода на другие языки - привыкать желательно именно к такой форме записи, как я привел. Дело все в том, что есть компиляторы, оптимизирующие хвостовую рекурсию, только вот они первую форму записи не посчитают таковой. А вторую - да, посчитают, и подобная рекурсия развернется в итерацию...