Pascal程序设计(第7课)-字符串.ppt

《Pascal程序设计(第7课)-字符串.ppt》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Pascal语言第7课字符类型字符类型为由一个字符组成的字符常量或字符变量。字符常量定义:const字符常量='字符'字符变量定义:Var字符变量表:char;字符类型是一个有序类型,字符的大小顺序按其ASCⅡ代码的大小而定。函数succ、pred、ord适用于字符类型。例如：后继函数：succ('a')='b'前继函数：pred（'B'）='A'序号函数：ord（'A'）=65【字符与字符串处理】Programa1（input,output）；Varch:char；BeginForch:=‘a’to‘z’dowrite(ch:3)；Writeln;

2、{换行输出下面的内容}Forch:=‘z’downto‘a’dowrite(ch:3)；Writeln;End.参考程序：★例1：按正序和反序输出26个英文字母。分析：程序中，我们可以利用字符类型是顺序类型这一特性，直接将字符类型变量作为循环变量，使程序处理起来比较直观。★例2：按字母表顺序和逆序每隔一个字母打印输出。Programa2;varch:char;beginforch:='a'to'z'doif(ord(ch)-ord('a'))mod2=0thenwrite(ch:3);writeln;forch:='z'downto'a'doif(o

3、rd(ch)-ord('z'))mod2=0thenwrite(ch:3);writeln;end.参考程序：字符串类型字符串是由字符组成的有穷序列。字符串类型定义：type<字符串类型标识符>=string[n];var字符串变量:字符串类型标识符;其中：n是定义的字符串长度,必须是0~255之间的自然整数,第0号单元中存放串的实际长度,程序运行时由系统自动提供,第1~n号单元中存放串的字符。若将string[n]写成string，则默认n值为255。例如：typeman=string[8]；line=string；varname：man；s：li

4、ne；【字符与字符串处理】另一种字符串类型的定义方式为把类型说明的变量定义合并在一起。例如：VARname：string[8]；s：string；Pascal中，一个字符串中的字符可以通过其对应的下标灵活使用。例如：varname：string；beginread（name）；fori：=1toord(name[0])dowriteln（name[i]）；end.语句writeln（name[i]）输出name串中第i个字符。【字符与字符串处理】字符串的运算和比较由字符串常量、变量和运算符组成的表达式称为字符串表达式。字符串运算符包括：1．+（连接运

5、算符）例如：'Turbo'+'PASCAL'的结果是'TurboPASCAL'。(1)若连接的结果字符串长度超过255，则被截成255个字符；(2)若连接后的字符串存放在定义的字符串变量中，当其长度超过定义的字符串长度时，超过部份字符串被截断。例如：varstr1，str2，str3：string[8]；beginstr1：='Turbo'；str2：='PASCAL'；str3：=str1+str2；end．则str3的值为：'TurboPA'。【字符串的操作】2．=.<>.<.<=.>.>=（关系运算符）两个字符串的比较规则为，从左到右按照ASC

6、Ⅱ码值逐个比较，遇到ASCⅡ码不等时,规定ASCⅡ码值大的字符所在的字符串为大。例如：'AB'<'AC'结果为真；'12'<'2'结果为真；‘PASCAL’=‘PASCAL’结果为假；在程序中，当执行到两个字符串进行比较时，Pascal会自动将两个字符串中的每一个字符逐个比较，直至遇到不等而决定其大小。这种比较方式是计算机中字符串比较的一般方式。【字符串的操作】例3对给定的10个国家名，按其字母的顺序输出。参考程序：programa3;varname:array[1..10]ofstring[20];i,j,k:integer;t:string[20

7、];beginfori:=1to10doreadln(name[i]);fori:=1to9do{选择排序}begink:=i;forj:=i+1to10doifname[k]>name[j]thenk:=j;ifk<>ithenbegint:=name[i];name[i]:=name[k];name[k]:=t;end;end;fori:=1to10dowriteln(name[i]);end.字符串的函数和过程Pascal提供了八个标准函数和标准过程，见下表，利用这些标准函数与标准过程，一些涉及到字符串的问题可以灵活解决。函数和过程名功能说明c

8、opy(s,m,n)取s中第m个字符开始的n个字符若m大于s的长度，则返回空串；否则，若m+n大于s的长度，