Структуры данных. Деревья - 11 стр.

UptoLike

13
Пример 3.2. Инфиксный обход дерева :
procedure InOrder(T : Tree);
begin
if T <> nil then
begin
InOrder (T^.L);
{ операция обработки узла дерева , например, writeln( T^.inf );}
InOrder (T^.R)
end
end; { InOrder }
Пример 3.3. Постфиксный обход дерева :
procedure PostOrder(T : Tree);
begin
if T <> nil then
begin
PostOrder (T^.L);
PostOrder (T^.R)
{ операция обработки узла дерева , например, writeln( T^.inf );}
end
end; { PostOrder }
Замечание. Ссылка T передается как параметр - значение, т.е. в проце-
дуре используется ее локальная копия.
При реализации нерекурсивных процедур обхода
дерева обычно исполь-
зуют вспомогательный стек и операции работы с ним:
очистить стек (создать пустой стек);
проверить, является ли стек пустым;
добавить в стек элемент;
извлечь элемент из стека.