如题
先输入中序遍历 再输入后序遍历
输入数据
BADC
BDCA
输出数据
ABCD

需要源程序。

var sh,sz:string; procedure doit(sh,sz:string); var i,k:longint;begin if sh<>'' then begin i:=length(sh); k:=pos(sh[i],sz); write(sh[i]); doit(copy(sh,1,k-1),copy(sz,1,k-1)); doit(copy(sh,k,i-k),copy(sz,k+1,i-k)); end; end; begin readln(sz);readln(sh);doit(sh,sz); end.