资源描述：
《《字符与字符串》PPT课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、第五讲字符与字符串资料从网上搜集，最终解释权归作者所有字符型用char作为标识符。字符型必须用单引号括起来，字母作为字符型时，大小写是不等价的，并且字符型只允许单引号中有一个字符，否则就是字符串。Vara:char;a:=‘b’;a:=‘B’;a:=‘2’;一、字符型知识点：1、字符的ASCII码（序号）：一一对应关系字符0123456789ASCII48495051525354555657字符ABC……ZASCII65666790字符abc……zASCII979899122２、函数：ord(x)
2、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码大的字符大。‘b’>’a’‘5’>’1’‘a’>’A’4、数字字符转换为相应的数字的方法。varx:char;a:intege
3、r;x:=‘3’;a:=ord(x)-48;练习题目：从键盘上输入一串字符（可能含数字、小写字母），以#作为输入结束标志。编程完成：统计输入字符中每个小写字母出现的次数（没有出现的不输出）。样例：输入：2bcdaab33wycc#输出：a2b2c3d1w1y1算法一:varch:char;n,i:integer;a:array[1..26]ofinteger;{统计字母出现的次数}beginfori:=1to26doa[i]:=0;read(ch);whilech<>'#'dobeginif(ch
4、>='a')and(ch<='z')thenbegini:=ord(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<>'#'dob
5、eginif(ch>='a')and(ch<='z')thena[ord(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);whilec
6、h<>'#'dobeginif(ch>='a')and(ch<='z')thena[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。Freep
7、ascal中新增加的字符串类型：ansistring;默认长度可达2562-1=65535VarSt: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:=Po
8、s(‘6',S);{i的值为3}+运算符将两个字符串连接起来s1:='1234';s2:='5678'; 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
