字符串展开

发布于 2019-04-16  6 次阅读


题目描述

先说一个字符串展开的例子:如果在输入的字符串中,含有类似于“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.
]]>