Реализация
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. Последовательность нумерации вершин при прямом обходе дерева
on_load_lecture()
« |
1
|
2
|
3
|
4
|
5
|
6
|
вопросы | »
учебники
|
для печати и PDA
| Курсы | Учебные программы | Учебники | Новости | Форум | Помощь
Телефон: +7 (495) 253-9312, 253-9313, факс: +7 (495) 253-9310, email: info@intuit.ru © 2003-2007, INTUIT.ru::Интернет-Университет Информационных Технологий - дистанционное образование |
