home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol085 / order.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  1017 b   |  36 lines
  1. External btree::order(3);
  2.  
  3.  
  4. PROCEDURE Preorder( Employee : apointer );
  5. {  prints data from left side of tree to right  } 
  6. BEGIN
  7.   IF Employee <> NIL THEN BEGIN
  8.     DISPLAY( Employee );    {visit the root}
  9.     Preorder( Employee^.Left );    {traverse the left subtree}
  10.     Preorder( Employee^.Right )    {traverse the right subtree}
  11.   END
  12. END{of preorder};
  13.  
  14.  
  15. PROCEDURE Inorder( Employee : apointer );
  16. {  prints data outer to inner of tree  }
  17. BEGIN
  18.   IF Employee <> NIL THEN BEGIN
  19.     Inorder( Employee^.Left );    {traverse the left subtree}
  20.     DISPLAY( Employee );    {visit the root}
  21.     Inorder( Employee^.Right )    {traverse the right subtree}
  22.   END
  23. END{of inorder};
  24.  
  25.  
  26. PROCEDURE Postorder( Employee : apointer );
  27. {  prints data from leaves first then branchs  }
  28. BEGIN
  29.   IF Employee <> NIL THEN BEGIN
  30.     Postorder( Employee^.Left );    {traverse the left subtree}
  31.     Postorder( Employee^.Right );    {traverse the right subtree}
  32.     DISPLAY( Employee );        {visit the root}
  33.   END
  34. END{of postorder};
  35.  .
  36.