(二叉树先序遍历)给出一棵二叉树的中序与后序排列。求出它的先序排列,其中树结点用不同的大写字母表示,例如输入BADCE,BDECA分别表示中序和后序,输出:ABCDE表示先序遍历。
var
mid, last: string;
procedure dfs(mid, last:string);
var
i, len: longint;
root: char;
begin
if length(mid)= 0 then exit;
len := length(mid);
root := last[len] ;
for i := 1 to len do
if mid[i]=root then break;
write(root) ;
dfs(copy(mid, 1, i-1), copy(last,1,i-1) );
dfs( copy(mid,i+1,len-i) ,copy(last, i, len-i));
end;
begin
readln(mid);
readln(last);
dfs(mid, last);
writeln;
end.