Структуры и алгоритмы обработки данных
Обход дерева слева - направо
procedure InTree(tree);
begin
if Tree = nil then write('Дерево пусто')
else
with Tree^ do
begin
if left<>nil then InTree(left);
if right<>nil then InTree(right);
end;
end;
procedure InTree(tree);
begin
if Tree = nil then write('Дерево пусто')
else
with Tree^ do
begin
if left<>nil then InTree(left);
if right<>nil then InTree(right);
end;
end;