题目描述

先说一个字符串展开的例子：如果在输入的字符串中，含有类似于“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.for 循环时没有循环完整个字符串
所以我们要用repeat。。
2.大写时数字爆ASCLL码
所以数字要特殊判断
3.字符串前后多余的’-‘号，和连续的‘-’号

var
  i,j,k,n,m,x,y,p1,p2,p3,l,r:longint;
  st:ansistring;
  c,ch:char;
begin
  readln(p1,p2,p3);
  readln(st);
  i:=1;
  while st[i]='-' do inc(i);
  dec(i);

  delete(st,1,i);
  for j:=1 to i do
    write('-');
  i:=1;
  repeat
    begin
      y:=length(st);
      if (ist[i+1]) and (st[i-1]='a') and (st[i+1]>='a')) or ((st[i-1]<'a') and (st[i+1]<'a'))) and (st[i-1]<>'-') and (st[i+1]<>'-') then
        begin
          y:=length(st);
          delete(st,i,1);
          if (ord(st[i-1])+1=ord(st[i])) then continue;
          l:=ord(st[i-1])+1;
          r:=ord(st[i])-1;
          x:=i;
          if p3=1 then
            begin
              if p1=1 then
                begin
                  for j:=l to r do
                    begin
                      for k:=1 to p2 do
                        begin
                          insert(chr(j),st,x);
                          inc(x);
                        end;
                    end;
                end
              else if p1=2 then
                begin
                  for j:=l to r do
                    begin
                      for k:=1 to p2 do
                        begin
                          insert(chr(j-97+ord('A')),st,x);
                          inc(x);
                        end;
                    end;
                end
              else if p1=3 then
                begin
                  for j:=l to r do
                    begin
                      for k:=1 to p2 do
                        begin
                          insert('*',st,x);
                          inc(x);
                        end;
                    end;
                end;
            end
            else
            if p3=2 then
            begin
              if p1=1 then
                begin
                  for j:=r downto l do
                    begin
                      for k:=1 to p2 do
                        begin
                          insert(chr(j),st,x);
                          inc(x);
                        end;
                    end;
                end
              else if p1=2 then
                begin
                  for j:=r downto l do
                    begin
                      for k:=1 to p2 do
                        begin
                          if (j-97>=0) then
                          insert(chr(j-97+ord('A')),st,x)
                          else insert(chr(j),st,x);
                          inc(x);
                        end;
                    end;
                end
              else if p1=3 then
                begin
                  for j:=r downto l do
                    begin
                      for k:=1 to p2 do
                        begin
                          insert('*',st,x);
                          inc(x);
                        end;
                    end;
                end;
            end;
        end;
        y:=length(st);
        i:=i+1;
    end;
    until (i=y) or (i=length(st));
    writeln(st);
end.