【问题描述】
在初赛普及组的“阅读程序写结果”的问题中,我们曾给出一个字符串展开的例子:如果在输
入的字符串中,含有类似于“d-h”或“4-8”的子串,我们就把它当作一种简写,输出时,用连续
递增的字母或数字串替代其中的减号,即,将上面两个子串分别输出为“defgh”和“45678”。在
本题中,我们通过增加一些参数的设置,使字符串的展开更为灵活。具体约定如下:
(1)遇到下面的情况需要做字符串的展开:在输入的字符串中,出现了减号“-”,减号两侧
同为小写字母或同为数字,且按照ASCII 码的顺序,减号右边的字符严格大于左边的字符。
(2)参数p1:展开方式。p1=1 时,对于字母子串,填充小写字母;p1=2 时,对于字母子串,
填充大写字母。这两种情况下数字子串的填充方式相同。p1=3 时,不论是字母子串还是数字子串,
都用与要填充的字母个数相同的星号“*”来填充。
(3)参数p2:填充字符的重复个数。p2=k 表示同一个字符要连续填充k 个。例如,当p2=3
时,子串“d-h”应扩展为“deeefffgggh”。减号两侧的字符不变。
(4)参数p3:是否改为逆序:p3=1 表示维持原有顺序,p3=2 表示采用逆序输出,注意这时
仍然不包括减号两端的字符。例如当p1=1、p2=2、p3=2 时,子串“d-h”应扩展为“dggffeeh”。
(5)如果减号右边的字符恰好是左边字符的后继,只删除中间的减号,例如:“d-e”应输出
为“de”,“3-4”应输出为“34”。如果减号右边的字符按照ASCII码的顺序小于或等于左边字符,
输出时,要保留中间的减号,例如:“d-d”应输出为“d-d”,“3-1”应输出为“3-1”。
第 1 行为用空格隔开的3 个正整数,依次表示参数p1,p2,p3。
第 2 行为一行字符串,仅由数字、小写字母和减号“-”组成。行首和行末均无空格。
输出只有一行,为展开后的字符串。
【输入输出样例1】
1 2 1
abcs-w1234-9s-4zz
【输入输出样例2】
2 3 2
a-d-d
【输入输出样例3】
3 4 2
di-jkstra2-6
【输入输出样例1】
abcsttuuvvw1234556677889s-4zz
【输入输出样例2】
aCCCBBBd-d
【输入输出样例3】
dijkstra2************6
【限制】
40%的数据满足:字符串长度不超过5
100%的数据满足:1<=p1<=3, 1<=p2<=8, 1<=p3<=2。字符串长度不超过100
对于这个题目有两个应对方案,一个是类似于在线,一边判断一边输出,另一种是将输出内容储存起来,一次性全部输出,我这里采取的第二种方式。
这个题目并不难,只是有点麻烦而已,根据题意模拟着做就好了,但必须注意,有些时候‘-’会出现在句前或者句末。
代码风格略渣,不喜勿喷。
1 program p1053; 2 var 3 p1,p2,p3:longint; 4 ans,b:ansistring; 5 s:string; 6 c:char; 7 i,ll,j,l,t:longint; 8 function pd(s,t:char):boolean; 9 begin 10 pd:= false; 11 if ((ord(s)>47) and (ord(s)<58)) and ((ord(t)>47)and(ord(t)<58)) or ((ord(s)>96) and (ord(s)<123)) and ((ord(t)>96)and(ord(t)<123)) 12 then exit(true); //判断语句实在是长 13 end; 14 begin 15 readln(p1,p2,p3); 16 readln(s); 17 ans:=s[1]; 18 l:=length(s); 19 for i:= 2 to l-1 do //处理 20 if s[i]='-' then 21 begin 22 if ((ord(s[i-1])>=ord(s[i+1])))or not (pd(s[i-1],s[i+1])) 23 then ans:=ans+'-' 24 else if ord(s[i+1])-ord(s[i-1])>1 then 25 begin 26 b:=''; 27 if p3=1 then 28 for c:= succ(s[i-1]) to pred(s[i+1]) do 29 for t:=1 to p2 do 30 b:=b+c; 31 if p3=2 then 32 for c:= pred(s[i+1]) downto succ(s[i-1]) do 33 for t:= 1 to p2 do 34 b:=b+c; 35 ll:=length(b); 36 if p1=2 then for j:= 1 to ll do 37 if (ord(b[j])>=97) then b[j]:=chr(ord(b[j])-32); 38 if p1=3 then for j:= 1 to ll do b[j]:='*'; 39 ans:=ans+b; 40 end; 41 end 42 else ans:=ans+s[i]; 43 ans:=ans+s[l]; 44 writeln(ans); 45 end.