Рекурсия

7.2. Рекурсивная обработка деревьев

Двоичным деревом называется картинка вроде такой:

Нижняя вершина называется корнем. Из каждой вершины могут идти две линии: влево вверх и вправо вверх. Вершины, куда они ведут, называются левым и правым сыновьями } исходной вершины. Вершина может иметь двух сыновей, а может иметь только одного сына (левого или правого). Она может и вовсе не иметь сыновей, и в этом случае называется листом.

Пусть - какая-то вершина двоичного дерева. Она сама вместе с сыновьями, внуками, правнуками и т.д. образует поддерево с корнем в - поддерево потомков x.

В следующих задачах мы предполагаем, что вершины дерева пронумерованы целыми положительными числами, причем номера всех вершин различны. Мы считаем, что номер корня хранится в переменной . Мы считаем, что имеются два массива

l,r: array [1..N] of integer

и левый и правый сын вершины с номером имеют соответственно номера и . Если вершина с номером не имеет левого (или правого) сына, то (соответственно равно . (По традиции при записи программ мы используем вместо нуля константу , равную нулю.)

Здесь - достаточно большое натуральное число (номера всех вершин не превосходят . Отметим, что номер вершины никак не связан с ее положением в дереве и что не все числа от до обязаны быть номерами вершин (и, следовательно, часть данных в массивах и - это мусор).

7.2.1. Пусть , , массивы и таковы:

Ответ.

7.2.2. Написать программу подсчета числа вершин в дереве.

Решение. Рассмотрим функцию , равную числу вершин в поддереве с корнем в вершине номер . Считаем, что (полагая соответствующее поддерево пустым), и не заботимся о значениях для чисел , не являющихся номерами вершин. Рекурсивная программа для такова:

function n(x:integer):integer;
begin
| if x = nil then begin
| | n:= 0;
| end else begin
| | n:= n(l[x]) + n(r[x]) + 1;
| end;
end;

(Число вершин в поддереве над вершиной равно сумме чисел вершин над ее сыновьями плюс она сама.) Глубина рекурсии конечна, так как с каждым шагом высота соответствующего поддерева уменьшается.

7.2.3. Написать программу подсчета числа листьев в дереве.

Ответ.

function n (x:integer):integer;
begin
| if x = nil then begin
| | n:= 0;
| end else if (l[x]=nil) and (r[x]=nil) then begin {лист}
| | n:= 1;
| end else begin
| | n:= n(l[x]) + n(r[x]);
| end;
end;

7.2.4. Написать программу подсчета высоты дерева (корень имеет высоту , его сыновья - высоту , внуки - и т.п.; высота дерева - это максимум высот его вершин).

Указание. Рекурсивно определяется функция высота поддерева с корнем в .

7.2.5. Написать программу, которая по заданному считает число всех вершин высоты (в заданном дереве).

Вместо подсчета количества вершин того или иного рода можно просить напечатать список этих вершин (в том или ином порядке).

7.2.6. Написать программу, которая печатает (по одному разу) все вершины дерева.

Решение. Процедура печатает все вершины поддерева с корнем в по одному разу; главная программа содержит вызов .

procedure print_subtree (x:integer);
begin
| if x = nil then begin
| | {ничего не делать}
| end else begin
| | writeln (x);
| | print_subtree (l[x]);
| | print_subtree (r[x]);
| end;
end;

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