【树】[NOIP2001]求先序排列

题目:[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.