Структуры и алгоритмы обработки данных

       

Обход дерева слева - направо


  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;



Содержание раздела