字符串的展开_【字符】缩写展开

Description

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

Input

　　输入包括两行：

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

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

Output

输出只有一行，为展开后的字符串。

Sample Input

样例1
1 2 1
abcs-w1234-9s-4zz

样例2
2 3 2
a-d-d

样例3
3 4 2
di-jkstra2-6

Sample Output

样例1
abcsttuuvvw1234556677889s-4zz

样例2
aCCCBBBd-d

样例3
dijkstra2************6

Hint

40%的数据满足：字符串长度不超过5
100%的数据满足：1<=p1<=3，1<=p2<=8，1<=p3<=2。字符串长度不超过100

分析
强行模拟..

程序：

var
zfc:ansistring;
i,j,j1,p1,p2,p3:longint;
procedure work1(x:longint);
var
i,j:longint;
begin
    if (p1=1)or(p1=2) then
    begin
        if p3=1 then
        for i:=1 to (ord(zfc[x+1])-ord(zfc[x-1])-1) do
        for j:=1 to p2 do
        write(chr(ord(zfc[x-1])+i));
        if p3=2 then
        for i:=(ord(zfc[x+1])-ord(zfc[x-1])-1) downto 1 do
        for j:=1 to p2 do
        write(chr(ord(zfc[x-1])+i));
    end;
    if p1=3 then
    for i:=1 to (ord(zfc[x+1])-ord(zfc[x-1])-1)*p2 do
    write('*');
end;
procedure work2(x:longint);
var
i,j,k:longint;
begin
    if (p1=1)or(p1=2) then
    begin
        if p1=2 then k:=-32 else k:=0;
        if p3=1 then
        for i:=1 to (ord(zfc[x+1])-ord(zfc[x-1])-1) do
        for j:=1 to p2 do
        write(chr(ord(zfc[x-1])+i+k));
        if p3=2 then
        for i:=(ord(zfc[x+1])-ord(zfc[x-1])-1) downto 1 do
        for j:=1 to p2 do
        write(chr(ord(zfc[x-1])+i+k));
    end;
    if p1=3 then
    for i:=1 to (ord(zfc[x+1])-ord(zfc[x-1])-1)*p2 do
    write('*');
end;
begin
    assign(input,'expand.in');
    assign(output,'expand.out');
    reset(input);
    rewrite(output);
    readln(p1,p2,p3);
    readln(zfc);
    j1:=1;
    while zfc[j1]='-' do
    begin
        inc(j1);
        write('-');
    end;
    for i:=j1 to length(zfc) do
    begin
        if zfc[i]='-' then
        if (zfc[i-1]<zfc[i+1])and((ord(zfc[i+1])-ord(zfc[i-1]))<30) then
        if ord(zfc[i-1])>96 then work2(i) else work1(i)
        else write(zfc[i]);
        if zfc[i]<>'-' then write(zfc[i]);
    end;
    close(input);
    close(output);
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68