简单字符串处理: { Author:wzx961008 Problem:UVa 10115-Automatic Editing Verdict:Accepted Language:PASCAL Run Time:0.008s Submission Date:2011-01-14 13:42:55 } var n,i,tmp:longint; before,after:array[1..10]of string; txt:string; begin while true do begin readln(n); if n=0 then break; for i:=1 to n do begin readln(before[i]); readln(after[i]); end; readln(txt); for i:=1 to n do while pos(before[i],txt)<>0 do begin tmp:=pos(before[i],txt); delete(txt,tmp,length(before[i])); insert(after[i],txt,tmp); end; writeln(txt); end; end.