洛谷 1305——新二叉树

题目描述

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

输入输出格式

输入格式：
第一行为二叉树的节点数n。

后面n行，每一个字母为节点，后两个字母分别为其左右儿子。

空节点用*表示

输出格式：
前序排列的完全二叉树

输入输出样例

输入样例#1：
6
abc
bdi
cj*
d**
i**
j**
输出样例#1：
abdicj

---

先造树，然后求一下前序遍历就行了

---

代码如下:

var a:array['a'..'z',1..2] of char;
    i,n:longint;
    h,x,y,root:char;

procedure dfs1(c:char);
begin
  write(c);
  if a[c,1]<>'*' then dfs1(a[c,1]);
  if a[c,2]<>'*' then dfs1(a[c,2]);
end;
begin
  readln(n);
  for i:=1 to n do
  begin
    readln(h,x,y);
    if i=1 then root:=h;
    a[h,1]:=x;
    a[h,2]:=y;
  end;
  dfs1(root); writeln;
end.