2. Рекурсивные процедуры

Рекурсивная форма организации алгоритма обычно выглядит изящнее итерационной и дает более короткий текст программы, но при выполнении может вызвать переполнение стека. Подробное описание и много замечательных примеров вы найдете в работе[2]. Ограничимся несколькими полезными примерами [2].

1. n- ая степень числа

Function p(x, n:integer): longint;

Begin

If n=0 then p:=1 else p:=x*p (x, n-1)+1;

End;

Begin

Writeln (p (2, 8));

End.

2. Перевод десятичного числа в двоичную систему

Заменив делитель 2 на другой (<10), получим перевод в любую другую систему счисления с основанием меньшим 10.

Procedure Rec (n: integer);

Begin

If n > 1 then rec (n div 2);

Write (n mod 2);

End;

Begin

Rec (25);

End.

3. n-ое число Фибоначчи

Числа Фибоначчи 1, 1, 2, 3, 5, 8, 13, 21,…Первые два числа 1, 1. Каждое следующее число равно сумме двух предыдущих.

Function f (n:integer):integer;

Begin

If n<=2 then f:=1

else f:=f(n-1) + f(n-2);

End;

Begin

Write(f(11));

Readln

End.

4. Алгоритм Евклида (наибольший общий делитель)

Function Euclid (m, n: integer): longint;

Var d: longint;

Begin

If m>n then d:= Euclid(m-n, n)

else IF m<n then d:= Euclid(m, n-m)

else d:=m;

Euclid:=d;

End;

Begin

Write (Euclid (30, 75));

Readln

End.

Список рекомендуемой литературы

1. Фаронов В.В. Турбо Паскаль 7.0. Начальный курс. Учебное пособие. - М.: «Нолидж», 2002. 576 с.

2. Окулов С.М. Основы программирования. - М.: БИНОМ. Лаборатория знаний, 2002.424 с.

3. Окулов С.М. Программирование в алгоритмах. - М.:БИНОМ. Лаборатория знаний, 2002. 341 с.

4. Иванов Б.Н. Дискретная математика. Алгоритмы и программы. Учебное пособие. - М. «Лаборатория базовых знаний», 2001. 288 с.

5. Андреева Е.В., Егоров Ю.Е. Вычислительная геометрия на плоскости. - М. Информатика №39-44, 2002.

91