二叉树

 

二叉树顺序遍历:

 

 1precedure preorder(i:integer);
 2begin 
 3if i<>0 then 
 4   begin
 5   deal(tree[i].data);
 6   preorder(tree[i].left);
 7   preorder(tree[i].right);
 8   end;{then}
 9end.{preorder}

precedure inorder(i:integer);
begin
if i<>0 then 
   begin
   inorder(tree[i].left);
   deal(tree[i].data);
   inorder(tree[i].right);
   end.{then}
end.{inorder}

precedure postorder(i:integer);
begin
if i<>0 then
   begin
   postorder(tree[i].right);
   postorder(tree[i].left);
   deal(tree[i].data);
   end;{then};
end.{postorder};