字符串展开[精彩].docVIP

var? p1,p2,p3,i,j,k:longint; ? s,d,c:ansistring;? {把字符串开大，能用longint就不用integer，能用ansistring就别用string}begin? readln(p1,p2,p3);? readln(s);? i:=0;{指针初始化}? while ilength(s) do {不写‘=’是为了忽略末尾的不可以操作的‘-’}??? begin????? d:=;{d串初始化}????? inc(i);{每次的向右移动下标}????? if (s[i]=-) and (i1) then {首位的‘-’不能用}??????? if ((s[i-1]=a) and (s[i-1]=z) and (s[i+1]=a) and (s[i+1]=z))????? or ((s[i-1]=0) and (s[i-1]=9) and (s[i+1]=0) and (s[i+1]=9)) then??????? begin {判断同为数字或同为字母}????????? c:=;{c串初始化，这里先默认p1为1，如果不是再通过后边的几个语句调整 }????????? for j:=(ord(s[i-1])+1) to (ord(s[i+1])-1) do {这个语句是我看网上一人的，觉得很好，这个可以让代码很短很短，‘+1’和‘-1’是只对中间的字符进行操作，不处理两头的}??????????? c:=c+chr(j);{熟记 字符串操作的函数，chr是将数字转换成字符}????????? if (p1=2) and (s[i-1]=a) then {p1=2就转大写字母，数字的不管，‘a’的ASCII码是97，‘A’的是65，只需减去32就变成大写了，‘0’是48，所以只用写一个判断语句，大于等于‘a’即可}??????????? begin????????????? c:=;{c串初始化}????????????? for j:=(ord(s[i-1])+1-32) to (ord(s[i+1])-1-32) do??????????????? c:=c+chr(j);??????????? end;????????? if p1=3 then??????????? for j:=1 to length(c) do????????????? c[j]:=*;{覆盖哦~}????????? if p3=2 then??????????? begin????????????? for j:=1 to length(c) do??????????????? d:=d+copy(c,length(c)-j+1,1); {这里本来用的是 d[j]:=c[length(c)+1-j]结果 结果显示Error216 我很费解，在师父鹤迪的帮助下找到了错源，我挺happy，呵呵}? {还有，要熟练应用copy函数}????????????? c:=d; {d转到c}??????????? end;????????? d:=; {d串重置，进行下面的操作}????????? for k:=1 to length(c) do??????????? for j:=1 to p2 do????????????? d:=d+c[k];????????? if s[i-1]s[i+1] then delete(s,i,1);????????? insert(d,s,i); {直接对原串操作就可以了，指针在insert后没动，不过最上边length(c)的值变了}??????? end;??? end;? writeln(s);end. ? {很好的一道题，值得反复看，这个字符串处理的思路也很好，值得背过}