Листинг 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.Операции со структурами данных

Графы