洛谷P1305 新二叉树

新二叉树

问题描述

输入一串完全二叉树，用遍历前序打出。

分析：用一个二维数组记录当前节点的左儿子和右儿子，递归输出就好啦。

代码

var
  a:array['a'..'z',1..2] of char;
  i,n:longint;
  s:string;
  ch:char;


procedure print(c:char);
begin
  write(c);
  if a[c,1]<>'*' then print(a[c,1]);
  if a[c,2]<>'*' then print(a[c,2]);
end;


begin
  readln(n);
  for i:=1 to n do
    begin
      readln(s);
      if i=1 then ch:=s[1];
      a[s[1],1]:=s[2];
      a[s[1],2]:=s[3];
    end;
  print(ch);
end.