PASCAL第5讲_字符与字符串剖析.ppt

* * 第5讲 字符与字符串 　　字符型用char作为标识符。字符型必须用单引号括起来，字母作为字符型时，大小写是不等价的，并且字符型只允许单引号中有一个字符，否则就是字符串。 Var a:char; a:=‘b’; a:=‘B’; a:=‘2’; 一、字符型 知识点： 1、字符的ASCII码（序号）：一一对应关系 56 8 57 55 54 53 52 51 50 49 48 ASCII 9 7 6 5 4 3 2 1 0 字符 90 67 66 65 ASCII Z … … C B A 字符 122 99 98 97 ASCII z … … c b a 字符 ２、函数：ord(x) chr(x) １）ord(x):返回字符x的ASCII码。 　　　i:=ord(‘A’); j:=ord(‘B’)；n:=ord(‘1’); write(I,j,n); 65 66 49 ２）chr(x)：返回ASCII码为x的字符。 var a:char; a:=chr(98); writeln(a);　　　 write(chr(97)); 3、字符大小的比较(相应字符ASCII码大小的比较)： 　ASCII码大的字符大。 　‘b’’a’ ‘5’’1’ ‘a’’A’ 4、数字字符转换为相应的数字的方法。 var x:char; a:integer; x:=‘3’; a:=ord(x)-48; 练习题目： 从键盘上输入一串字符（可能含数字、小写字母），以#作为输入结束标志。 编程完成： 统计输入字符中每个小写字母出现的次数（没有出现的不输出）。 样例： 输入： 2bcdaab33wycc# 输出： a 2 b 2 c 3 d 1 w 1 y 1 算法一: var ch:char; n,i:integer; a:array[1..26] of integer; {统计字母出现的次数} begin for i:=1 to 26 do a[i]:=0; read(ch); while ch# do begin if(ch=a)and(ch=z) then begin i:=ord(ch)-96; a[i]:=a[i]+1; end; read(ch); end; for i:=1 to 26 do {输出字符及出现的次数} if a[i]0 then writeln(chr(i+96), ,a[i]); end. var ch:char; n,i:integer; a:array[97..122] of integer; {统计字母出现的次数} begin for i:=97 to 122 do a[i]:=0; read(ch); while ch# do begin if(ch=a)and(ch=z) then a[ord(ch)]:=a[ord(ch)]+1; read(ch); end; for i:=97 to 122 do {输出字符及出现的次数} if a[i]0 then writeln(chr(i), ,a[i]); end. 算法二: 算法三: var ch:char; n,i:integer; a:array[a..z] of integer; {统计字母出现的次数} begin for ch:=a to z do a[ch]:=0; read(ch); while ch# do 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