pascal语言讲与字符串.pptx

第七讲字符与字符串

字符型用char作为标识符。字符型必须用单引号括起来，字母作为字符型时，同一个字母的大小代表不同的字符，并且字符型只允许单引号中有一个字符，否则就是字符串。Vara:char;a:=‘b’;a:=‘B’;a:=‘2’;一、字符类型

知识点：1、字符的ASCII码：字符0123456789ASCII48495051525354555657字符ABC……ZASCI符abc……zASCII979899122AmericanStandardCodeforInformationInterchange美国标准信息交换码

２、函数：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码大的字符大。‘b’’a’‘5’’1’‘a’’A’4、数字字符转换为相应的数字的方法。varx:char;a:integer;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=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#dobeginif(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:=atozdoa[ch]:=0;read(ch);whilech#dobeginif(ch=a)and(ch=z)thena[ch]:=a[ch]+1;read(ch);end;forch:=atozdo{输出字符及出现的次数}ifa[ch]0thenwriteln(ch,,a[ch]);end.

字符串用于存放批量字符的一串字符。Var：a：string;或Var：a：str