Задания

Подпрограммы могут обращаться сами к себе. Такое обращение называется рекурсией. Чаще всего рекурсию рассматривают на примере рекуррентных формул:

1. факториал натурального числа;

2. числа Фибоначчи;

3. числа Каталана.

Задание. Написать программы, реализующие рекуррентные формулы.

Пример. Числа Каталана.

program Katalan;
var  n:integer;
function fact(x:integer):integer;
  begin
    if x<=1 then fact:=1
      else fact:=x*fact(x-1)
  end;
function kat (x:integer):real;
  begin
    kat:=fact(2*x)/fact(x)/fact(x+1);
  end;
begin
  writeln('Введите количество сторон многоугольника');
  readln(n);
  n:=n-2;
  writeln('Количество вариантов разрезания ',kat(n));
end.