Рекурсия

1. Описать рекурсивную функцию для подсчёта количества запятых в данном текстовом файле.

2. Описать рекурсивную функцию

function step(z: real; m:byte):real;

для вычисления z ^m (z — вещественное, m — натуральное) и с её помощью подсчитать значение выражения a ⁷ + b ⁸.

3. Описать рекурсивную функцию

function fib(n: integer): integer;

для вычисления n -ого (n £ 40) числа Фибоначчи.

Указание.

Последовательность чисел Фибоначчи f _k образуется так:

f ₀=1, f ₁=1, f _k = f _k-2 + f_k-1.

4. Описать рекурсивную функцию

function arifm(a, d, k: integer): integer;

для вычисления k -ого элемента арифметической прогрессии
(a — первый элемент прогрессии, d — разность прогрессии).

5. Создать очередь из чисел, записанных в текстовом файле, с помощью рекурсивной процедуры procedure add(var r: link).

6. Описать рекурсивную функцию

function memb(r:link; b:integer): boolean;

проверяющую, входит ли элемент с информационным полем b в список r.

7. Описать рекурсивную процедуру

procedure dele(var r:link; w:integer);

удаляющую из списка r первое вхождение элемента с информационным полем w.

8. Используя функцию memb, проверить, входит ли число, введённое в поле Edit1, в созданный список. Если да, то удалить из списка первое вхождение этого числа с помощью процедуры dele и вывести преобразованный список в текстовый файл с помощью процедуры out. В противном случае вывести сообщение: «Такого элемента нет».

9. Создать очередь с помощью рекурсивной процедуры

procedure add(var r: link).

10. Описать рекурсивную функцию

function neg(r: link): boolean;

проверяющую, имеется ли в списке элемент с отрицательным информационным полем.

11. Описать рекурсивную функцию

function nmemb(r: link; b:integer):integer;

подсчитывающую количество вхождений элемента с информационным полем b в список r.

12. Описать рекурсивную функцию

function max(r: link): integer;

для нахождения максимума в списке r.

Дата добавления: 2015-08-02