Структуры и алгоритмы обработки данных
Обход дерева слева - направо
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;
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий