《字符与字符串》PPT课件.ppt

第五讲字符与字符串,资料从网上搜集，最终解释权归作者所有,字符型用char作为标识符。字符型必须用单引号括起来，字母作为字符型时，大小写是不等价的，并且字符型只允许单引号中有一个字符，否则就是字符串。,Vara:char;a:=b;a:=B;a:=2;,一、字符型,知识点：1、字符的ASCII码（序号）：一一对应关系,、函数：ord(x)chr(x)）、ord(x):返回字符x的ASCII码。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码大的字符大。ba51aA,4、数字字符转换为相应的数字的方法。varx:char;a:integer;x:=3;a:=ord(x)-48;,练习题目：从键盘上输入一串字符（可能含数字、小写字母），以#作为输入结束标志。编程完成：统计输入字符中每个小写字母出现的次数（没有出现的不输出）。样例：输入：2bcdaab33wycc#输出：a2b2c3d1w1y1,算法一:,varch:char;n,i:integer;a:array1.26ofinteger;统计字母出现的次数beginfori:=1to26doai:=0;read(ch);whilech#dobeginif(ch=a)and(ch0thenwriteln(chr(i+96),ai);end.,varch:char;n,i:integer;a:array97.122ofinteger;统计字母出现的次数beginfori:=97to122doai:=0;read(ch);whilech#dobeginif(ch=a)and(ch0thenwriteln(chr(i),ai);end.,算法二:,算法三:,varch:char;n,i:integer;a:arraya.zofinteger;统计字母出现的次数beginforch:=atozdoach:=0;read(ch);whilech#dobeginif(ch=a)and(ch0thenwriteln(ch,ach);end.,字符串用于存放批量字符的一串字符。Var：a：string;或Var：a：stringn;A:=hello其中正整数n(11234456123456,6、数字串转化为数值型两种方法：一、过程val二、直接转化,1、输入一个正整数n（10250）,求它的各位数字之和S。,varn:string;s,k,i:integer;beginreadln(n);k:=length(n);s:=0;fori:=1tokdos:=s+ord(ni)-48;writeln(s);end.,字符串应用举例：,2、编写一个程序，统计从键盘输入的n(100)个英文单词中以c开头的单词,并输出个数。样例：输入：4ancatbeeCow输出：catCow2,vara:array1.100ofstring;记录输入的单词n,i,s:integer;beginreadln(n);输入单词个数fori:=1tondo输入单词readln(ai);s:=0;记录单词中一c开头的数目fori:=1tondoif(ai,1=c)or(ai,1=C)thenbegins:=s+1;累加writeln(ai);输出以c开头的单词end;writeln(s);end.,3、编程验证一个数是不是是回文数（0dobegini:=1;while(i1)and(n1=0)dodelete(n,1,1);删除处理后开头的0，并保证n不为空writeln(n);end.,练习一编成实现：同时含有多个+、-运算符的表达式求值。如：输入：45+5-4+10输出：56,练习二：矩形覆盖面积,问题描述：在平面坐标系内有n个矩形，求这n个矩形覆盖的面积（重叠部分不能重复计算）。,输入：第一行：n（=100）,矩形的个数。以下