tyvj?洛谷?Tyvj P1053 字符串的展开

你是否正在寻找关于tyvj的内容？让我把最简洁的东西奉献给你：

字符串的展开

（NOIP2007提高组复赛第二题）

【问题描述】

在初赛普及组的“阅读程序写结果”的问题中，我们曾给出一个字符串展开的例子：如果在输入的字符串中，含有类似于“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%的数据满足：1<=p1<=3，1<=p2<=8，1<=p3<=2。字符串长度不超过100

program p1053; var p1,p2,p3:1..8; r,k:ansistring; s:string; c:char; i,lk,j,l,t:longint; function ok(x,y:char):boolean; begin ok := false; if ((ord(x)>47) and (ord(x)<58)) and ((ord(y)>47)and(ord(y)<58)) then exit(true); if ((ord(x)>96) and (ord(x)<123)) and ((ord(y)>96)and(ord(y)<123)) then exit(true); end; begin readln (p1,p2,p3); readln (s); r := s[1]; l := length(s); for i := 2 to l-1 do if s[i]='-' then begin if ((ord(s[i-1]) >= ord(s[i+1])))or (not(ok(s[i-1],s[i+1]))) then r := r + '-' else if ord(s[i+1])-ord(s[i-1])>1 then begin k:=''; if p3 = 1 then for c := succ(s[i-1]) to pred(s[i+1]) do for t := 1 to p2 do k := k + c; if p3 = 2 then for c := pred(s[i+1]) downto succ(s[i-1]) do for t := 1 to p2 do k := k + c; lk := length(k); if p1 = 2 then for j := 1 to lk do if (ord(k[j])>=97)and(ord(k[j])<=122) then k[j]:=chr(ord(k[j])-32); if p1 = 3 then for j := 1 to lk do k[j]:='*'; r := r + k; end; end else r := r + s[i]; r := r + s[l]; writeln (r); end.

老子总算做出一道复赛第二题了！！哈哈哈哈哈！！！！

以上就是关于tyvj的全部内容，相信你一定会非常满意。

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/shenmilingyu/article-10314-1.html