Помогите Рекурсии! Опции

[nekkit]

--------------------------------------------------------------------------------
Вот решить не могу! Надо по данному примеру вот этой программы сделать 2.
Пример:

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

Не могу сделать их еще надо в рекруссивном и интеративном варианте сделать обе.

Интеративном т.е чтобы постоянно спрашивало
до определенного числа раз.

1) На печать выводится сказка ”О попе и его собаке” определенное число раз. ("У попа была собака, он ее любил. Она съела кусок мяса - он ее убил. В землю закопал, надпись написал ...)


2) Напишите рекурсивный алгоритм нахождения степени числа. ах=ах-1*а, а0=1\


Зарание всем благодарен.

Сообщение отредактировано: volvo - 3.11.2006 19:22

[volvo]

Какое начало? Тебе дали ссылку на полное решение, что ТЕПЕРЬ не хватает?

Или ты про первое задание?

const story = 
  'У попа была собака, он ее любил. Она съела кусок мяса - он ее убил. В землю закопал, надпись написал ...';

procedure print_story(n: integer);
begin

  if n > 0 then begin
    writeln(story);
    print_story(n - 1);
  end;

end;

begin
  print_story(7); { <-- Печатать 7 раз }
end.

Какое может быть начало? Полная программа занимает 15 строк...