文档介绍：第五讲字符与字符串
整理ppt
字符型用char作为标识符。字符型必须用单引号括起来，字母作为字符型时，大小写是不等价的，并且字符型只允许单引号中有一个字符，否则就是字符串。
Var a:char;
a:=‘b’;
a begin
if(ch>='a')and(ch<='z') then a[ch]:=a[ch]+1;
read(ch);
end;
for ch:='a' to 'z' do {输出字符及出现的次数}
if a[ch]>0 then writeln(ch,' ',a[ch]);
end.
整理ppt
字符串用于存放批量字符的一串字符。
Var：a：string;
或Var：a：string[n];
A:=‘hello’
其中正整数n(0<=n<=255)表示构成字符串的字符最多个数。
若字符串说明中没有指定长度，缺省值为255。
Freepascal中新增加的字符串类型：
ansistring;默认长度可达2562 -1=65535
Var St:ansistring;
二、字符串
整理ppt
操作
类型
作用
返回值
例子
length(s)
函数
求字符串s的长度
整型
s:='123456789';l:=length(s); {l的值为9}
Copy(s,w,k)
函数
复制s中从w开始的k位
字符串
s:='123456789';s1:=copy(s,3,5); {s1的值是'34567'}
Pos(c, S)
函数
求字符(串)c在串s中的位置
整型
S := ' ';i :=Pos(‘6 ', S); {i的值为3}
+
运算符
将两个字符串连接起来
s1:='1234'; s2:='5678';s:=s1+s2; {'12345678'
val(s,k,code)
过程
将字符串s转为数值，存在k中；code是错误代码
var s:string;k,code:integer;s:='1234';val(s,k,code);write(k); {k=1234}
str(i,s)
过程
将数值i转为字符串s
i:=1234;str(i,s); write(s); {s='1234'}
Delete(s,w,k)
过程
在s中删除从第w位开始的k个字符
s := 'Honest Abe Lincoln';Delete(s,8,4);Writeln(s); { 'Honest Lincoln' }
Insert(s1, S, w)
过程
将s1插到s中第w位
S := 'Honest Lincoln';Insert('Abe ', S, 8);
{ 'Honest Abe Lincoln' }
字符串的有关操作
整理ppt
字符串使用中的有关说明和注意事项:
1、字符串的输入和输出:
输入:(s)；每个readln语句只能读入一个字符串。不能readln(s1,s2);
输出:writeln(s);
2、字符串可以和数组一样操作：
a:=’nabcdeg’; 则：a[1]:=‘n’;a[3]:=b; 输出：writeln(a); 或：for i:=1 to length(a) do write(a[i]);
3、从键盘只能接受127个字符;一般都是文件输入。
4、严格区分数字字符、数字字符串与数值的区别，但可以相互转化。
‘4’<>4 ‘1326’<>1326 如：var a:char; i:integer; a:=‘4’;i:=ord(a)-48; writeln(i); {i=4}
整理ppt
5、字符串大小的比较。
‘123’=‘123’
‘12345’>’12325’
‘12345’>’1234’
‘456’>’123456’
6、数字串转化为数值型
两种方法：
一、过程 val
二、直接转化
整理ppt
1、输入一个正整数n（<10250）,求它的各位数字之和S。
var
n: