字符串2解答

字符串习题解答
1.回文字符串
输入一串字符串判断其是否为回文字符串（所谓回文就是左看右看都一样）。

如输入qwer
输出no
输入M8w-T0T-w8M
输出yes
以下两种方法都正确，比较它们的区别：
这种方法速度更快些！
若回文：则第1个字符和倒数第1个字符相同
第2个字符和倒数第2个字符相同
第3个字符和倒数第3个字符相同
……
其中有一对不相同则不是回文，都相同就是回文。

var st1,st2:string;
I,len:integer;
begin
readln(st1);
st2:=’’;len:= length(st1);
for i:=1 to len do
if st1[i]<>st1[len-i+1] then
begin
writeln(‘no’);
exit; {一旦不等就不是回文了，后面没必要再去比较了，程序退出} end;
{程序运行到这里还没有退出，说明一直比较到最后都是相同的，所以一定是回文} writeln(‘yes’);
end.
2.将a改成b
输入一串字符串，将其中的所有‘a’替换成’b’例如：输入aaabbcc
输出bbbbbcc
方法1：
Var st:string ; I, len:integer; Begin
Readln(st);len:=length(st); For i:=1 to len do
If st[i]:=’a’then st[i]:=’b’; Writeln(st);
End. 方法2：
Var st:string ; I, p:integer;
Begin
Readln(st);
P:= pos(‘a’,st);
While p>0 do
Begin delete(st,p,1) ; insert(‘b’,st,p); P:= pos(‘a’,st); end;
Writeln(st);
End.
3.查找子串并替换
对输入的一句子实现查找且置换的功能（找到某个子串并换成另一子串）。

【输入描述】
第一行为原来的字符串，第二行为要查找的子串，第三行为要替换成的子串【输出描述】
只有一行，为替换好的字符串
【输入样例】
abcf abdabc
abc
AA
【输出样例】
AAf abdAA
var st1,st2,st3:string; len,p:integer;
begin
readln(st1); readln(st2); readln(st3);
len:=length(st2); p:=pos(st2,st1);
while p>0 do
begin delete(st1,p,len); insert(st3,st1,p); p:=pos(st2,st1); end; writeln(st1);
end.
4.统计字母出现次数
输入一串小写字母（以"."为结束标志），统计出每个字母在该字符串中出现的次数(若某字母不出现，则不要输出)。

【输入描述】
输入只有一行，包括若干个字符。

【输出描述】
输出只有两行，第一行为出现的小写字母，第二行为字母的出现次数。

【输入样例】
abdceeef.
【输出样例】
abcdef
111131
分析：题目要求统计每一个小写字母出现的次数。

小写字母总共26个，那至少需要26个变量来记录。

所以用数组吧。

S:array[‘a’..’z’]of integer;
用S[‘a’] 记录字母‘a’出现的次数
用S[‘b’] 记录字母‘b’出现的次数
用S[‘b’] 记录字母‘c’出现的次数
……
Var s:string ; M:char ; i , Len:integer ;
Begin
Readln(s);Len:=Length(s);
For i:=1 to len do
Begin
M:=s[i];
S[m]:=s[m]+1;
End;
For m:=’a’to ‘z’do if s[m]<>0 then write(m);
Writeln;
For m:=’a’to ‘z’do if s[m]<>0 then write(s[m]);
Writeln;
End.。