题目:[NOIP2001]求先序排列 rqnoj611
题目描述
给出一棵二叉树的中序与后序排列。求出它的先序排列。(约定树结点用不同的大写字母表示,长度<=8)。
输入格式
两行,分别为给定的一棵二叉树的中序与后序排列.
输出格式
一行,为所求的此二叉树的前序排列.
样例输入
BADC BDCA
样例输出
ABCD
这个应该没什么好说的,很冷门的知识点。。。。
Pascal Code
program rqnoj;
var
zhong,hou:string;
procedure init;
begin
end;
procedure outit;
begin
close(input);
close(output);
halt;
end;
procedure readdata;
begin
readln(zhong);
readln(hou);
end;
procedure tree(zhong,hou:string);
var
r:string;
k,len:longint;
begin
if zhong<>'' then
begin
len:=length(zhong);
r:=hou[len];
k:=pos(r,zhong);
write(hou[len]);
tree(copy(zhong,1,k-1),copy(hou,1,k-1));
tree(copy(zhong,k+1,len-k),copy(hou,k,len-k));
end;
end;
procedure main;
begin
tree(zhong,hou);
end;
begin
init;
readdata;
main;
outit;
end.