：树及其应用.PPTVIP

Type bitrpetr=↑bnode； {结点指针类型} benode=record {结点类型} data：datatype； {值域} lch，rch：bitreptr；{左指针域和右指针域} end； Var bt： bitreptr； {头指针} 例如用下图（b）所示的二叉链表存储二叉树（下图（a）） 六、二叉树的遍历(访问) 所谓二叉树的遍历是指按照一定的规律不重复地访问二叉树中的每一个结点。 如果用L、D、R分别表示遍历左子树、访问根结点、遍历右子树，则对二叉树的遍历可以有下列六种（3!=6）组合： LDR、 LRD、 DLR、 DRL、RDL、 RLD 若再限定先左后右的次序，则只剩下三种组合 DLR、LDR、 LRD 这三种遍历规则分别称为先（前）序遍历、中序遍历和后序遍历（以根为标准）。 ⑴、前（根）序遍历 前序遍历的规则如下： 若二叉树为空，则退出。否则 ⑴访问处理根结点； ⑵前序遍历左子树； ⑶前序遍历右子树； a b d e h i c f g ⑵中序遍历 中序遍历的规则如下： 若二叉树为空，则退出；否则 ⑴中序遍历左子树； ⑵访问处理根结点； ⑶中序遍历右子树； 若中序遍历上图中的二叉树，可以得到如下的中序序列： d b h e i a f c g ⑶后序遍历 后序遍历的规则如下： 若二叉树为空，则退出；否则 ⑴后序遍历左子树； ⑵后序遍历右子树； ⑶访问处理根结点； 若后序遍历上图中的二叉树，可以得到如下的后序序列 d h i e b f g c a 1、将一棵有100个结点的完全二叉树从根结点这一层开始，每一层从左到右依次对结点进行编号，根结点的编号为1，则编号为49的结点的左孩子的编号为[ ] A 98 B 99 C 97 D 50 2、对二叉树从1进行连续编号，要求每个结点的编号大于其左右孩子的编号，同一结点的左右孩子中，其左孩子的编号小于其右孩子的 编号，则可以采取[ ]次序的遍历方法。 A 先序 B中序 C后序 D从根开始的层次遍历 3、有n个结点并且其高度为n的二叉树的数目是[ ] A、n B、 2n C、 2n-1 D、 2(n-1) 4.写出二叉树三种序遍历结果 1、编程实现：二叉树的遍历（tree1.pas） 建立二叉树，然后实现：输出先序遍历、中序遍历、后序遍历的结果。 输入： 第一行：结点个数n。 以下行：每行3个数，第一个是父亲，后两个依次为左右孩子，0表示空。 输出：根、先中后序遍历结果。 样例输入： 8 1 2 4 2 0 0 4 8 0 3 1 5 5 6 0 6 0 7 8 0 0 7 0 0 样例输出： 3 3 1 2 4 8 5 6 7 2 1 8 4 3 6 7 5 2 8 4 1 7 6 5 3 const maxn=100; type treetype=record {结点} father:integer;{父亲} lch,rch:integer;{lch：左孩子；rch：右孩子} end; var tree:array[1..maxn] of treetype; n,m,t:integer; procedure init; var f,l,r,i:integer; begin readln(n); for i:=1 to n do begin readln(f,l,r); tree[f].lch:=l； tree[f].rch:=r; if l0 then tree[l].father:=f; if r0 then tree[r].father:=f; end; end; function root:integer; var i:integer; begin for i:=1 to n do if tree[i].father=0 then begin root:=i; exit; end; end; 方法： 数组顺序存储结构 pr