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



         

Реализация


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

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




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