二叉树的遍历和生成——Pascal实现

最新推荐文章于 2022-07-25 20:58:52 发布

GYF_

最新推荐文章于 2022-07-25 20:58:52 发布

阅读量1.9k

点赞数 2

分类专栏： Pascal 文章标签：二叉树遍历 pascal 线性表

本文链接：https://blog.csdn.net/G1342522389/article/details/49837927

版权

Pascal 专栏收录该内容

7 篇文章 0 订阅

订阅专栏

吾今日写了一个关于二叉树的程序：

program Project1;
type btree=^node;
  node=record
      data:char;
      l,r:btree;
    end;
var head : btree;
function inittree(var t:btree):btree;
var
  ch:char;
begin
  read(ch);
  if (ch='#') then exit(nil)
  else begin
      new(t);
      t^.data:=ch;
      t^.l:=nil;
      t^.r:=nil;
      inittree(t^.l);
      inittree(t^.r);
  end;
end;
procedure TBT_pre(var p:btree);
begin
  if (p=nil) then exit;
  write(p^.data:2);
  TBT_pre(p^.l);
  TBT_pre(p^.r);
end;
procedure TBT_in(var p:btree);
begin
  if (p=nil) then exit;
  TBT_in(p^.l);
  write(p^.data:2);
  TBT_in(p^.r);
end;
procedure TBT_post(var p:btree);
begin
  if (p=nil) then exit;
  TBT_post(p^.l);
  TBT_post(p^.r);
  write(p^.data:2);
end;
begin
  new(head);
  writeln('please input string like ABD##E##C## to make preorder binary tree(#:means nil)');
  inittree(head);
  readln;
  write('this binary tree preorder is: ');
  TBT_pre(head);
  writeln;
  write('this binary tree inorder is:  ');
  TBT_in(head);
  writeln;
  write('this binary tree postorder is:');
  TBT_post(head);
  readln;
end.