新建 文本文档.txt

来自「数据结构的一些简单编程题,二叉树结构」· 文本 代码 · 共 21 行

procedure  getanode(var bt:bitreptr);
 begin
   i:=i+1;  c:=s.ch[i];    //i是全局变量，初始时为0
   if c='.' then   bt:=nil
   else begin
           new(bt);  bt^.data:=c;
           que.rear:=que.rear+1;  que.elem[que.rear]:=bt
        end
 end;
procedure  crt_bt_hyr(var bt:bitreptr);
var  p:bitreptr;
 begin
    que.front:=0; que.rear:=0;  getanode(bt);
    while que.rear<>que.front do
       begin
          que.front:=que.front+1;
          p:=que.elem[que.front];
          getanode(p^.lch);  getanode(p^.rch)
       end
 end;