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”。

输入描述 Input Description

第 1 行为用空格隔开的3 个正整数，依次表示参数p1，p2，p3。
第 2 行为一行字符串，仅由数字、小写字母和减号“-”组成。行首和行末均无空格。

输出描述 Output Description

输出只有一行，为展开后的字符串。

样例输入 Sample Input

【输入输出样例1】
1 2 1
abcs-w1234-9s-4zz

【输入输出样例2】
2 3 2
a-d-d

【输入输出样例3】
3 4 2
di-jkstra2-6

样例输出 Sample Output

【输入输出样例1】

abcsttuuvvw1234556677889s-4zz

【输入输出样例2】

aCCCBBBd-d

【输入输出样例3】

dijkstra2************6

数据范围及提示 Data Size & Hint

【限制】
40%的数据满足：字符串长度不超过5
100%的数据满足：1<=p1<=3, 1<=p2<=8, 1<=p3<=2。字符串长度不超过100

　　对于这个题目有两个应对方案，一个是类似于在线，一边判断一边输出，另一种是将输出内容储存起来，一次性全部输出，我这里采取的第二种方式。

　　这个题目并不难，只是有点麻烦而已，根据题意模拟着做就好了,但必须注意，有些时候‘-’会出现在句前或者句末。

　　代码风格略渣，不喜勿喷。

program p1053;
var
 p1,p2,p3:longint;
 ans,b:ansistring;
 s:string;
 c:char;
 i,ll,j,l,t:longint;
function pd(s,t:char):boolean;
begin
 pd:= false;
 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))
  then exit(true); //判断语句实在是长
end;
begin
 readln(p1,p2,p3);
 readln(s);
 ans:=s[1];
 l:=length(s);
 for i:= 2 to l-1 do //处理
  if s[i]='-' then
   begin
    if ((ord(s[i-1])>=ord(s[i+1])))or not (pd(s[i-1],s[i+1]))
     then ans:=ans+'-'
     else if ord(s[i+1])-ord(s[i-1])>1 then
      begin
      b:='';
      if p3=1 then
       for c:= succ(s[i-1]) to pred(s[i+1]) do
        for t:=1 to p2 do
         b:=b+c;
      if p3=2 then
       for c:= pred(s[i+1]) downto succ(s[i-1]) do
        for t:= 1 to p2 do
         b:=b+c;
      ll:=length(b);
      if p1=2 then for j:= 1 to ll do
       if (ord(b[j])>=97) then b[j]:=chr(ord(b[j])-32);
        if p1=3 then for j:= 1 to ll do b[j]:='*';
        ans:=ans+b;
      end;
   end
  else ans:=ans+s[i];
 ans:=ans+s[l];
 writeln(ans);
end.