知道二叉树的中序和后序，如何编程得出这棵树的先序

显示全部楼层 · 2008-8-17 16:59:53

描述 Description

给出一棵二叉树的中序与后序排列。求出它的先序排列。(约定树结点用不同的大写字母表示，长度≤8)。
输入格式 Input Format
第一行为二叉树的中序序列
第二行为二叉树的后序序列
输出格式 Output Format
一行，为二叉树的先序序列
样例输入 Sample Input
BADC
BDCA

样例输出 Sample Output
ABCD

用Pascal语言哦，可以的话带上一点简单的备注哦！谢谢各位啦！

千问 · 2008-8-17 16:59:53

临时写的没有测试数据有错误请多包涵program xianxu;var
zx,hx:string;procedure make(zx,hx:string);var gen:char;
p:longint;begingen:=hx[length(hx)]; //找到根p:=pos(gen,zx);if (p>=1)and(p<=length(hx)) thenbegin
write(gen);
make(copy(zx,1,p-1),copy(hx,1,p-1));//递归左子树
make(copy(zx,p+1,length(zx)