07noip 字符串的展开 解题报告
题目描述 Description
【问题描述】
在初赛普及组的“阅读程序写结果”的问题中，我们曾给出一个字符串展开的例子：如果在输
入的字符串中，含有类似于“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.
