洛谷 P1305 新二叉树

题目描述

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

输入输出格式

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

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

空节点用*表示

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

输入输出样例

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

分析：先按输入递归建树，然后先序遍历一下就好。

代码：

var a:array['a'..'z',1..2] of char;  
    b:array['a'..'z'] of char;  
    n,i,j,k,l,m:longint;  
    c1,c2,c3,c: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);  
fillchar(a,sizeof(a),'*');  
fillchar(b,sizeof(b),'*');  
for i:=1 to n do  
    begin  
    readln(c1,c2,c3);  
    if b[c1]='*' then c:=c1;
    if c2<>'*' then  
    begin  
       a[c1,1]:=c2;  
       b[c2]:=c1;  
    end;  
    if c3<>'*' then  
    begin  
       a[c1,2]:=c3;  
       b[c3]:=c1;  
    end;  
    end;  
print(c);  
end.