非线性表.docVIP

[例题1]输入一棵二叉树及其根，分别输出前序、中序、后序遍历的访问结果。 [例题2].在例题1的基础上输入二叉树的两个顶点，输出它们的最近公共祖先极其最短路径。. {$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q-,R+,S+,T-,V+,X+,Y+} {$M 16384,0,655360} program ex6_1_2; const max=1000; var n,rt,a,b,i:integer; l,r,pt:array[0..max]of integer; vt:array[1..max]of boolean; f,f0:text; procedure presort(nw:integer); begin if nw=0 then exit; write(f0,nw, ); presort(l[nw]); presort(r[nw]) end; procedure midsort(nw:integer); begin if nw=0 then exit; midsort(l[nw]); write(f0,nw, ); midsort(r[nw]) end; procedure