Версия для печати темы

Автор: compiler 4.02.2007 22:17

Пытаюсь понять рекурсию нашел пример(на pascaler.ru), а он не работает
почему? Заранее благодарен.

Program Rekurs;
Var
  N : integer;
  F : Longint;
{  - - - - - - - - - - - - - - - - - - - -}
Function RecFact(N:integer) : LongInt;
Begin
  if N <= 1 
    then
      ResFact := 1
    else
      ResFact := N*ResFact(N-1);
End;
{  - - - - - - - - - - - - - - - - - - - -}
Begin
  writeln('Введите число N > ';
  read(N);
  F := RecFact(N);
  writeln('Для числа ',N,' значение факториала равно ',F);
End.

Автор: klem4 4.02.2007 22:20

синтаксис ...

Program Rekurs;
Var
  N : integer;
  F : Longint;
{  - - - - - - - - - - - - - - - - - - - -}
Function RecFact(N:integer) : LongInt;
Begin
  if N <= 1
    then
      RecFact := 1
    else
      RecFact := N*RecFact(N-1);
End;
{  - - - - - - - - - - - - - - - - - - - -}
Begin
  writeln('??????? ????? N > ');
  read(N);
  F := RecFact(N);
  writeln('??? ????? ',N,' ???????? ?????????? ????? ',F);
End.

Автор: volvo 4.02.2007 22:22

А твоя ненавязчивая реклама начинает доставать, знаешь? Ты если находишь где-то то там и спрашивай, почему не работает...

У нас, например, полно рабочих примеров...

Автор: compiler 4.02.2007 22:28

Для volvo

если б это была реклама то была б ссылка

там нет форума

но изложение теории мне больше нравится там(не сочти за рекламу).

Для klem4

благодарю за помощ
P.S.класный аватар, где взял?