【树】[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.