资源描述：
《PASCAL第5讲 字符与字符串.ppt》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、第5讲字符与字符串字符型用char作为标识符。字符型必须用单引号括起来，字母作为字符型时，大小写是不等价的，并且字符型只允许单引号中有一个字符，否则就是字符串。Vara:char;a:=‘b’;a:=‘B’;a:=‘2’;一、字符型知识点：1、字符的ASCII码（序号）：一一对应关系字符0123456789ASCII48495051525354555657字符ABC……ZASCII65666790字符abc……zASCII979899122２、函数：ord(x)chr(x)１）ord(x):返回字符x的A
2、SCII码。i:=ord(‘A’);j:=ord(‘B’)；n:=ord(‘1’);write(I,j,n);656649２）chr(x)：返回ASCII码为x的字符。vara:char;a:=chr(98);writeln(a);write(chr(97));3、字符大小的比较(相应字符ASCII码大小的比较)：ASCII码大的字符大。‘b’>’a’‘5’>’1’‘a’>’A’4、数字字符转换为相应的数字的方法。varx:char;a:integer;x:=‘3’;a:=ord(x)-48;练习题目：从
3、键盘上输入一串字符（可能含数字、小写字母），以#作为输入结束标志。编程完成：统计输入字符中每个小写字母出现的次数（没有出现的不输出）。样例：输入：2bcdaab33wycc#输出：a2b2c3d1w1y1算法一:varch:char;n,i:integer;a:array[1..26]ofinteger;{统计字母出现的次数}beginfori:=1to26doa[i]:=0;read(ch);whilech<>'#'dobeginif(ch>='a')and(ch<='z')thenbegini:=or
4、d(ch)-96;a[i]:=a[i]+1;end;read(ch);end;fori:=1to26do{输出字符及出现的次数}ifa[i]>0thenwriteln(chr(i+96),'',a[i]);end.varch:char;n,i:integer;a:array[97..122]ofinteger;{统计字母出现的次数}beginfori:=97to122doa[i]:=0;read(ch);whilech<>'#'dobeginif(ch>='a')and(ch<='z')thena[ord
5、(ch)]:=a[ord(ch)]+1;read(ch);end;fori:=97to122do{输出字符及出现的次数}ifa[i]>0thenwriteln(chr(i),'',a[i]);end.算法二:算法三:varch:char;n,i:integer;a:array['a'..'z']ofinteger;{统计字母出现的次数}beginforch:='a'to'z'doa[ch]:=0;read(ch);whilech<>'#'dobeginif(ch>='a')and(ch<='z')then
6、a[ch]:=a[ch]+1;read(ch);end;forch:='a'to'z'do{输出字符及出现的次数}ifa[ch]>0thenwriteln(ch,'',a[ch]);end.字符串用于存放批量字符的一串字符。Var：a：string;或Var：a：string[n];A:=‘hello’其中正整数n(1<=n<=255)表示构成字符串的字符最多个数。若字符串说明中没有指定长度，缺省值为255。Freepascal中新增加的字符串类型：ansistring;默认长度可达216-1=65535
7、VarSt:ansistring;二、字符串操作类型作用返回值例子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:='126.5'; i:=Pos(‘6',S);{i的值为3}+运算符将两个字符串连接起来s1:='1234';s2:='567
8、8'; s:=s1+s2;{'12345678'val(s,k,code)过程将字符串s转为数值，存在k中；code是错误代码vars:string;k,code:integer; s:='1234';val(s,k,code);write(k);{k=1234}str(i,s)过程将数值i转为字符串si:=1234;str(i,s);write(s);{s='1234'}Delete(s,w,k)过程在s中删除从第w位开始的
