求二叉树的后序遍历（树）

Description

　　二叉树有三种遍历方法：前序、中序和后序。 
　　这三种遍历的区别在于对同一个结点在不同时刻进行访问。在进行前序遍历时，每个结点是在其左右子树被访问之前进行访问的；在中序遍历时，首先访问左子树，然后访问子树的根结点，最后访问右子树。在后序遍历时，当左右子树均访问完之后才访问子树的根结点。 
 
例如上图中的一棵二叉树，其前序遍历为abdec，中序遍历为dbeac，后序遍历为debca。 
可以证明，在已知前序和后序遍历的情况下，可以唯一确定二叉树的中序遍历。你的任务就是根据给出的前序和中序遍历，输出后序遍历。 

Input

第一行一个字符串，表示树的前序遍历。 
第二行一个字符串，表示树的中序遍历。 
树的结点一律用小写字母表示。 

Output

输出树的后序遍历。

Sample Input

 

abdec
dbeac

 

Sample Output

 

debca

解题思路：先读入前序和中序遍历，然后用递归，先求l1的第一个字符再l2中的位置，然后遍历第m个的左半边，再遍历m的右半边，最后输出即可。

程序：

var

  s1,s2:string;

procedure try(l1,r1,l2,r2:longint);

  var

    m:longint;

  begin

    m:=pos(s1[l1],s2);

    if m>l2 then try(l1+1,l1+m-l2,l2,m-1);

    if m

    write(s1[l1]);

end;

begin

  readln(s1);

  readln(s2);

  try(1,length(s1),1,length(s2));

  writeln;

end.