洛谷1098 字符串的展开（2528 1064）

题目

 在初赛普及组的“阅读程序写结果”的问题中，我们曾给出一个字符串展开的例子：如果在输入的字符串中，含有类似于“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”。

题解

 直接模拟，但是一定要认真，不要漏掉任何一个要求。
 时间复杂的O(8000)

代码

var
  s:ansistring;
  p1,p2,p3,i,j,k,t,n,l,r:longint;
  b:boolean;

function inum(a,b:char):boolean;
begin
  if (a>='0')and(a<='9')and(b>='0')and(b<='9') then exit(true);
  exit(false);
end;

function inle(a,b:char):boolean;
begin
  if (a>='a')and(a<='z')and(b>='a')and(b<='z') then exit(true);
  exit(false);
end;

begin
  readln(p1,p2,p3);
  readln(s);
  for i:=2 to 8000 do
    if i=length(s) then break else
      if (s[i]='-')and(s[i+1]>s[i-1])and(inum(s[i+1],s[i-1])or inle(s[i+1],s[i-1])) then
        if ord(s[i+1])-ord(s[i-1])=1 then delete(s,i,1) else
          begin
            b:=false;
            if inle(s[i+1],s[i-1]) then b:=true;
            if p3=1 then
              begin
                l:=ord(s[i+1])-ord(s[i-1])-1;
                delete(s,i,1);
                t:=i;
                for j:=1 to l do
                  begin
                    for k:=1 to p2 do
                      if b and(p1=2) then
                        begin
                          insert(upcase(chr(ord(s[i-1])+j)),s,t);
                          inc(t);
                        end
                          else
                      if p1=3 then begin insert('*',s,t);inc(t);end else
                        begin insert(chr(ord(s[i-1])+j),s,t);inc(t);end;
                  end;
              end else
              begin
                l:=ord(s[i+1])-ord(s[i-1])-1;
                delete(s,i,1);
                for j:=1 to l do
                  begin
                    for k:=1 to p2 do
                      if b and(p1=2) then
                        insert(upcase(chr(ord(s[i-1])+j)),s,i)
                        else
                      if p1=3 then insert('*',s,i) else
                        insert(chr(ord(s[i-1])+j),s,i);
                  end;
              end;
          end;
  writeln(s);
end.