|
Процедуры обхода дерева в прямом, симметричном и обратном порядке |
|
3. Написать процедуры обхода дерева в прямом, симметричном и обратном порядке соответственно.
3.1. Procedure Preorder(t : TreeLink);
Begin
If t <> nil then
Begin
Writeln(t^.inf);
Preorder(t^.left);
Preorder(t^.right);
End;
End;
3.2. Procedure Inorder(t : TreeLink);
Begin
If t <> nil then
Begin
Inorder(t^.left);
Writeln(t^.inf);
Inorder(t^.right);
End;
End.
3.3. Procedure Postorder(t : TreeLink);
Begin
If t <> nil then
Begin
Postorder(t^.left);
Postorder(t^.right);
Writeln(t^.inf);
End;
End.
|
