字符串编辑

字符串编辑

Time Limit:10000MS Memory Limit:65536K
Total Submit:19 Accepted:15
Case Time Limit:1000MS

Description

为了对一些资料进行保密，奶牛们要对某些文章进行编辑。编辑的方法很奇特：要把原有文章的某些词句按照某些规则用另一些词句代替。
规则的形式如下：原串新串，表示把原串替换成新串。假设有n条规则,第i规则的原串和新串分别为Mi和Ni,则编辑按如下过程进行：开始编辑时，先使用第一条规则，把文章中出现的第一个M1替换成N1，如果替换后的新文章还存在M1，则如上处理，直到文章不存在M1为止；然后用同样的方法使用第2，第3，……，第n条规则进行替换，直到所有的规则都用完为止。注意：
 每次都要从文章开头开始找要替换的词句
 一条规则一旦使用完后，将不能再使用
 每一篇文章都是可编辑的
如有四条规则：1. banbab 2. bababe 3. anaany 4. ba b hind the g 要编辑的文章为“banana boat”，则编辑的过程如下：

编辑后的文章为“behind the goat”。请编写一程序，帮助组委会对给定的文章进行编辑。

Input

数据存放在当前目录下的文本文件“editing.in”中。
文件共有2n+2行。文件的第一行是一个整数n（1<=n<=10），表示规则的数目；接下来第2i行及第2i+1行分别表示Mi和Ni(1<=i<=n)，其长度均不超过80个字符，且Mi不为空串；最后一行是要编辑的文章，长度不超过80个字符。行末没有空格。

Output

答案输出到当前目录下的文本文件“editing.out”中。
文件只有一行，表示编辑后的文章（长度不超过80个字符）。行末也应该没有空格。

Sample Input

4
ban
bab
baba
be
ana
any
ba b
hind the g
banana boat

1
t
sh
toe or top
做法：模拟
代码如下：

var
  s:string;
  o,n:array[1..30] of string;
  m,i,j:longint;

procedure init;
var
  i:longint;
begin
  readln(m);
  for i:=1 to m do
    begin
      readln(o[i]);
      readln(n[i]);
    end;
  readln(s);
end;

begin
  //assign(input,'editing.in');reset(input);
  //assign(output,'editing.out');rewrite(output);
  init;
  for i:=1 to m do
    begin
      j:=pos(o[i],s);
      while j<>0 do
        begin
          delete(s,j,length(o[i]));
          insert(n[i],s,j);
          j:=pos(o[i],s);
        end;
    end;
  writeln(s);
  close(input); close(output);
end.