【解答】intravers(root:bitree) finished:=false;t:=root; while not finished do 【 while t↑.ltag=0 do t:=t↑.lch // 左孩子不空 write(t↑.data); // 訪問左孩子 if t↑.rtag=1 then 【t:=t↑.rch;{后繼結(jié)點(diǎn)} write(t↑.data);{訪問當(dāng)前根結(jié)點(diǎn)} t:=t↑.rch{訪問當(dāng)前根結(jié)點(diǎn)的右孩子} 】 else t:=t↑.rch; // 右孩子不空