Реализация

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

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

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

---