2017.8.8测试 题二 字符串的展开

题解:本题是一道有点烦的模拟题,只要耐心点,题目要你怎么样,你去实现就行了。

var len:array[1..100]of longint; sss:array[1..100]of string; s,ss:string; p1,p2,p3,lenn,o,oo,i,j:longint;procedure try(x,y:longint);var ss:string; j,k,z:longint;begin j:=0; if (y-x<26) and (y-x>0) then//确保是同一类型且不相等  begin   j:=1;   ss:='';   delete(sss[i],len[i],1);//把-删掉   write(sss[i]);   if y-x=1 then exit;//右边是左边的后继只删-输出就行了~   if p3=1 then//顺着输出    begin     for k:=x+1 to y-1 do     for z:=1 to p2 do//重复个数       if p1<>3 then ss:=ss+chr(k)                else ss:=ss+'*';//p1=3就是*了    end    else begin//逆着输出          for k:=y-1 downto x+1 do           for z:=1 to p2 do             if p1<>3 then ss:=ss+chr(k)                      else ss:=ss+'*';         end;   if (p1=2) and (x>=97) then ss:=upcase(ss);//p1=2，而且不是数字就变大写   write(ss);  end; if j<>1 then write(sss[i]);//不是同一类型或相同的就直接输出end;begin readln(p1,p2,p3); read(s); s:=s+'-';//详见后面的判断条件 lenn:=length(s); for i:=1 to lenn do//分开  begin   ss:=ss+s[i];   if s[i]='-' then begin//有-的分开                     inc(j);                     sss[j]:=ss;                     len[j]:=length(sss[j]);                     ss:='';                    end;  end; for i:=1 to j-1 do//最后一个的后面不用填充  begin   o:=ord(sss[i][len[i]-1]);//-左边的ascii码   oo:=ord(sss[i+1][1]);//右边的~   try(o,oo);  end; delete(sss[j],len[j],1);//删掉自己加的- write(sss[j]);end.