Программирование на языке Pascal


         

Реализация


procedure preorder(p:ukaz; k:integer); begin p^.mark:= k; if p^.left<>nil then preorder(p^.left,k+1); if p^.right<>nil then preorder(p^.right,k+1); end;

begin ... preorder(root,1); {Вызов из тела программы} ... end.


Рис. 12.2.  Последовательность нумерации вершин при прямом обходе дерева



Содержание  Назад  Вперед





Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий