pku1917 Automatic Poetry

把一个字符串按照特定的符号分成5分，把后四份按照特定的顺序插入后一个字符串的‘...’处，最后将去掉符号的字符串输出即可。

View Code

 1 program pku1917(input,output);
 2 var
 3    s     : array[0..6] of ansistring;
 4    ss,x     : ansistring;
 5    cases : longint;
 6    i,tmp : longint;
 7 begin
 8    readln(cases);
 9    while cases>0 do
10    begin
11       dec(cases);
12       readln(ss);
13       x:=ss;
14 
15       while pos('<',x)>0 do
16      delete(x,pos('<',x),1);
17       while pos('>',x)>0 do
18      delete(x,pos('>',x),1);
19       
20       for i:=1 to 5 do
21      s[i]:='';
22       
23       tmp:=pos('<',ss);
24       s[1]:=copy(ss,1,tmp-1);
25       delete(ss,1,tmp);
26       
27       tmp:=pos('>',ss);
28       s[2]:=copy(ss,1,tmp-1);
29       delete(ss,1,tmp);
30       
31       tmp:=pos('<',ss);
32       s[3]:=copy(ss,1,tmp-1);
33       delete(ss,1,tmp);
34       
35       tmp:=pos('>',ss);
36       s[4]:=copy(ss,1,tmp-1);
37       delete(ss,1,tmp);
38       
39       s[5]:=ss;
40       
41       s[0]:=s[4]+s[3]+s[2]+s[5];
42 
43       readln(ss);
44       tmp:=pos('...',ss);
45       insert(s[0],ss,tmp);
46       tmp:=pos('...',ss);
47       delete(ss,tmp,3);
48       writeln(x);
49       writeln(ss);
50    end;
51 end.

转载于:https://www.cnblogs.com/neverforget/archive/2012/04/15/2450573.html