字符串的展开

 

字符串的展开

（expand.pas/c/cpp）

 

【问题描述】

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

【输入】

输入文件expand.in包括两行：

第1行为用空格隔开的3个正整数，依次表示参数p1,p2,p3。

第2行为一行字符串，仅由数字、小写字母和减号“-”组成。行首和行末均无空格。

【输出】

输出文件expand.out只有一行，为展开后的字符串。

 

【输入输出样例1】

expand.in	expand.out
1 2 1 abcs-w1234-9s-4zz	abcsttuuvvw1234556677889s-4zz

 

【输入输出样例2】

expand.in	expand.out
2 3 2 a-d-d	aCCCBBBd-d

 

【输入输出样例3】

expand.in	expand.out
3  4  2 di-jkstra2-6	dijkstra2************6

 

【限制】

40%的数据满足：字符串长度不超过5

100%的数据满足： 。字符串长度不超过100

===============

模拟，主要考察的是细心

tyvj上没有样例3坑爹啊！！！！

第一次没测样例2，（50分）

第二次没测样例3，（80分）；

----------------

写了1个半小时

=======================

var
  p1,p2,p3:longint;
  ch,last:char;
procedure init;
begin
  assign(input,'p1071.in');
  assign(output,'p1071.out');
  reset(input); rewrite(output);
end;

procedure terminate;
begin
  close(input); close(output);
  halt;
end;

procedure main;
var
  i,j:longint;
  t:longint;
begin
  readln(p1,p2,p3);
  while not eof do
    begin
      read(ch);
      if ch<>'-' then
        begin
          write(ch);
        end
        else begin
               if ch='-' then
                 begin
                   read(ch);
                   if (ch in ['0'..'9']) and (last in ['0'..'9']) then  //数字串的情况
                     begin
                       if ord(last)>=ord(ch) then  //减号右边的<=减号左边的
                         begin
                           write('-');
                           write(ch);
                         end
                         else begin
                                if ord(last)+1=ord(ch)   //右=左+1
                                  then begin
                                        write(ch);
                                       end
                                  else begin             //右>左+1
                                         if p1=3         //输*的情况
                                           then begin
                                                  for i:=1 to (ord(ch)-ord(last)-1) do   //第二次没加这个(80分).
                                                  for j:=1 to p2 do write('*');
                                                  write(ch);
                                                end
                                           else begin
                                                  if p3=1 //正序..
                                                    then begin
                                                           t:=ord(last)+1;
                                                           while t<ord(ch) do
                                                             begin
                                                               for i:=1 to p2 do
                                                                 begin
                                                                   write(chr(t));
                                                                 end;
                                                               inc(t);
                                                             end;
                                                           write(ch);
                                                         end
                                                    else begin  //逆序...
                                                           t:=ord(ch)-1;
                                                           while t>ord(last) do
                                                             begin
                                                               for i:=1 to p2 do
                                                                 write(chr(t));
                                                               dec(t);
                                                             end;
                                                           write(ch);
                                                         end;
                                                end;
                                       end;
                              end;
                     end
                     else begin
                            if (ch in ['a'..'z']) and (last in ['a'..'z']) //字母串的情况
                            then begin
                                   if ord(last)>=ord(ch) then //减号右边的<=减号左边的
                                     begin
                                       write('-');
                                       write(ch);
                                     end
                                     else begin
                                            if ord(last)+1=ord(ch) //右=左+1
                                              then begin
                                                     write(ch);
                                                   end
                                              else begin          //右>左+1
                                                     if p1=3 then //输*号情况
                                                       begin
                                                         for i:=1 to (ord(ch)-ord(last)-1) do   //第二次没加这个(80分).
                                                         for j:=1 to p2 do write('*');
                                                         write(ch);
                                                       end;
                                                     if p1=1 then //小写字母..
                                                       begin
                                                         if p3=1 //正序..
                                                           then begin
                                                                  t:=ord(last)+1;
                                                                  while t<ord(ch) do
                                                                    begin
                                                                      for i:=1 to p2 do
                                                                        begin
                                                                          write(chr(t));
                                                                        end;
                                                                      inc(t);
                                                                    end;
                                                                  write(ch);
                                                                end
                                                           else begin  //逆序...
                                                                  t:=ord(ch)-1;
                                                                  while t>ord(last) do
                                                                    begin
                                                                      for i:=1 to p2 do
                                                                        write(chr(t));
                                                                      dec(t);
                                                                    end;
                                                                 write(ch);
                                                                end;
                                                       end;
                                                     if p1=2 then //大写字母..
                                                       begin
                                                         if p3=1 //正序..
                                                           then begin
                                                                  t:=ord(last)+1;
                                                                  while t<ord(ch) do
                                                                    begin
                                                                      for i:=1 to p2 do
                                                                        begin
                                                                          write(upcase(chr(t)));
                                                                        end;
                                                                      inc(t);
                                                                    end;
                                                                  write(ch);
                                                                end
                                                           else begin  //逆序...
                                                                  t:=ord(ch)-1;
                                                                  while t>ord(last) do
                                                                    begin
                                                                      for i:=1 to p2 do
                                                                        write(upcase(chr(t)));
                                                                      dec(t);
                                                                    end;
                                                                  write(ch);
                                                                end;
                                                       end;
                                                   end;
                                          end;
                                 end
                            else begin                   //两边不一样的情况..
                                   write('-');
                                   write(ch);
                                 end;
                          end;
                 end;
             end;
      last:=ch; //第一次这里没加就错了一次...（50分）..
    end;
end;

begin
  init;
  main;
  terminate;
end.