数据�l�构�W�六章填�I�题及答案[17]_跨考网

       1�Q?/span>n个结点的完全二叉树存储在数组a中，下面为非递归的先序遍历算法�?/span>

　　PROC preorder(a);

　　BEGIN top:=0; t:=1;

　　WHILE (t<=n) OR (1)__ _DO

　　BEGIN WHILE t<=n DO BEGIN write(a[t]); top:=top+1; s[top]:=t; t:= (2)_;END;

　　IF top>0 THEN BEGIN t:=s[top]*2+1; top:= (3)__; END;

　　END;

　　END; �?a target="_blank">中山大学 1998 四�?/span>3 �Q?/span>6分）�?/span>

　　【参考答案�?/span>

　　(1)top>0 (2)t*2 // 沿左分枝向下 �Q?/span>3�Q?/span>top-1 // 退�?/span>

　2�Q�后序遍历二叉树的非递归���法�Q?/span>bt是二叉树的根�Q?/span>S是一个栈�Q?/span>maxsize是栈的最大容量�?/span>

　　TYPE bitreptr=^bnodetp;

　　bnodetp=RECORD data:datatype; lchild,rchild:bitreptr END;

　　TYPE stacktyp=RECORD data:ARRAY[1..maxsize] OF bitreptr�Q?/span>top�Q?/span>0..maxsize�Q?/span>END�Q?/span>

　　PROCEDURE posterorder�Q?/span>bt�Q?/span>bitreptr�Q�；

　　BEGIN S.top:=0�Q?/span>p:=bt�Q?/span>

　　REPEAT

　　WHILE p<>NIL DO BEGIN S.top:=S.top+1; IF S.top>maxsize THEN stackfull

　　ELSE BEGIN S.data[S.top]:=p�Q?/span> (1)__; END

　　END;

　　IF S.data[S.top]^.rchild<>NIL THEN (2)__

　　ELSE BEGIN REPEAT write (S.data[S.top]^.data); S.top=S.top-1;

　　UNTIL S.top=0 OR S.data[S.top]^.rchild<>S.data[S.top+1];

　　IF S.data[S.top]^.rchild<>S.data[S.top+1] THEN (3)__;

　　END�Q?/span>

　　UNTIL(4)___;

　　END�Q?/span> �?a target="_blank">西北工业大学 1999 六�?/span>1 (7�?/span>)�?/span>

　　【参考答案�?/span>

　　(1)p:=p^.lchild �Q?/span>2�Q�（3�Q?/span>p:=S.data[s.top]^.rchild (4)s.top=0