Листинг 9.7. Программа вывода бинарного дерева

% show(Tree): отображение бинарного дерева

show Г Tree):-show2(Tree, 0).

% show2(Tree, Indent): отображение дерева Tree с отступом Indent show2 (nil, _ i.

show2(t(Left, X, Right), indent) Ind2 is Indent + 2, show2[ Right, Ind2>, tab! Indent), write С X), nl, show2(Left, Ind2).

% Отображение с отступом поддеревья

i Отображение правого поддерева

% Вывод элемента, соответствующего корню

% Отображение левого поддерева

Упражнение

9.10. Приведенная выше процедура отображения деревьев показывает дерево в не­привычной ориентации, при которой корень находится слева, а листья дере­ва - справа. Напишите (более сложную) процедуру для отображения дерева в обычной ориентации, при которой корень находится вверху, а листья — внизу.

Глава 9. Операции со структурами данных

Графы