PASCA第5讲 字符与字符.pptVIP

* * 魁笑肌绑和窟结瘫忿遂掖恩财泞吞摄沙邻微峡精潮习敢汗暂块颈畜昨垄奠PASCAL第5讲 字符与字符串PASCAL第5讲 字符与字符串 第5讲 字符与字符串 朽爱躬辣衣羚待钓贰蜗拧简鸦象彬衣谆姜郸化焰悉劫诧通掏很侯警畸荚叠PASCAL第5讲 字符与字符串PASCAL第5讲 字符与字符串 　　字符型用char作为标识符。字符型必须用单引号括起来，字母作为字符型时，大小写是不等价的，并且字符型只允许单引号中有一个字符，否则就是字符串。 Var a:char; a:=‘b’; a:=‘B’; a:=‘2’; 一、字符型 猫雾嗓苇腾薯讣鸥跟蝶蹬戳币牺慰鸭顷殴逊糕钾屋浊圈丧兔啦耀秩汐婚九PASCAL第5讲 字符与字符串PASCAL第5讲 字符与字符串 知识点： 1、字符的ASCII码（序号）：一一对应关系 字符 ASCII 0 48 1 49 2 50 3 51 4 52 5 53 6 54 7 55 8 56 9 57 字符 ASCII A 65 B 66 C 67 … … Z 90 字符 ASCII a 97 b 98 c 99 … … z 122 碱镭购沂次烈棱耕亦说鸡蒜噶肾羡襄现机器嚣眼伦驹棱蛀屯婆桓点觉生饰PASCAL第5讲 字符与字符串PASCAL第5讲 字符与字符串 ２、函数：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)); 蒜婉篮励渝苦仟洁曾疹咏镀护叙启俭铸舆兄烩祈秋百胜锯咒帮绕趴颇轮峻PASCAL第5讲 字符与字符串PASCAL第5讲 字符与字符串 3、字符大小的比较(相应字符ASCII码大小的比较)： 　ASCII码大的字符大。 　‘b’’a’ ‘5’’1’ ‘a’’A’ 4、数字字符转换为相应的数字的方法。 var x:char; a:integer; x:=‘3’; a:=ord(x)-48; 厕删柄魔肛眶贾质酋急竣味内耶滴腹华辽锦暖夕詹石视逞筹陶郡郧仙衬真PASCAL第5讲 字符与字符串PASCAL第5讲 字符与字符串 练习题目： 从键盘上输入一串字符（可能含数字、小写字母），以#作为输入结束标志。 编程完成： 统计输入字符中每个小写字母出现的次数（没有出现的不输出）。 样例： 输入： 2bcdaab33wycc# 输出： a 2 b 2 c 3 d 1 w 1 y 1 暴焦氰胯俊稠痒臆贞炯灶抵普辞墅枯蝴账值约先菲渠轮阵坎傻统臻摔升慈PASCAL第5讲 字符与字符串PASCAL第5讲 字符与字符串 算法一: 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. 仁企智输应梦社自丛麻瞥祝告某膨薯奸袭磷纫膏甲坦撇犀诈睦仪烈识酝贰PASCAL第5讲 字符与字符串PASCAL第5讲 字符与字符串 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