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; beginif (p1=1)or(p1=2) thenbeginif p3=1 thenfor i:=1 to (ord(zfc[x+1])-ord(zfc[x-1])-1) dofor j:=1 to p2 dowrite(chr(ord(zfc[x-1])+i));if p3=2 thenfor i:=(ord(zfc[x+1])-ord(zfc[x-1])-1) downto 1 dofor j:=1 to p2 dowrite(chr(ord(zfc[x-1])+i));end;if p1=3 thenfor i:=1 to (ord(zfc[x+1])-ord(zfc[x-1])-1)*p2 dowrite('*'); end; procedure work2(x:longint); var i,j,k:longint; beginif (p1=1)or(p1=2) thenbeginif p1=2 then k:=-32 else k:=0;if p3=1 thenfor i:=1 to (ord(zfc[x+1])-ord(zfc[x-1])-1) dofor j:=1 to p2 dowrite(chr(ord(zfc[x-1])+i+k));if p3=2 thenfor i:=(ord(zfc[x+1])-ord(zfc[x-1])-1) downto 1 dofor j:=1 to p2 dowrite(chr(ord(zfc[x-1])+i+k));end;if p1=3 thenfor i:=1 to (ord(zfc[x+1])-ord(zfc[x-1])-1)*p2 dowrite('*'); end; beginassign(input,'expand.in');assign(output,'expand.out');reset(input);rewrite(output);readln(p1,p2,p3);readln(zfc);j1:=1;while zfc[j1]='-' dobegininc(j1);write('-');end;for i:=j1 to length(zfc) dobeginif zfc[i]='-' thenif (zfc[i-1]<zfc[i+1])and((ord(zfc[i+1])-ord(zfc[i-1]))<30) thenif 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.

轉載于:https://www.cnblogs.com/YYC-0304/p/9500071.html

總結

以上是生活随笔為你收集整理的字符串的展开的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。