字符和字符串类型.docVIP

一、字符、字符串类型的使用 （一）字符类型 　字符类型为由一个字符组成的字符常量或字符变量，字符常量定义：　　 const　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　　　 字符常量=字符;　字符变量定义：　　 Var 　　　 字符变量:char; 　字符类型是一个有序类型, 字符的大小顺序按其ASCⅡ代码的大小而定，函数succ、pred、ord适用于字符类型，例如：　　后继函数：succ(a)=b 　　前继函数：pred（B）=A 　　序号函数：ord（A）=65 【例1】按字母表顺序和逆序每隔一个字母打印，即打印出： 　　　　 a c e g I k m o q s u w y 　　　　 z x r v t p n l j h f d b 程序如下： 　program ex8_1; 　var letter:char; 　begin 　　for letter:=a to z do 　　　if (ord(letter)-ord(a))mod 2=0 then write(letter:3); 　　writeln; 　　for letter:=z downto a do 　　　if (ord(letter)-ord(z))mod 2 =0 then write(letter:3); 　　writeln; 　end. 分析：程序中，我们利用了字符类型是顺序类型这一特性，直接将字符类型变量作为循环变量，使程序处理起来比较直观。 （二）字符串类型 　字符串是由字符组成的有穷序列，字符串类型定义： 　　 type 字符串类型标识符=string[n]; 　　 var 　　　 字符串变量:字符串类型标识符; 　其中：n是定义的字符串长度，必须是0~255之间的自然整数，第0号单元中存放串的实际长度，程序运行时由系统自动提供，第1~n号单元中存放串的字符，若将string[n]写成string，则默认n值为255。 　例如：type 　　　　　man=string[8];　　　　　line=string;　　　　var 　　　　　name:man;　　　　　screenline:line;　另一种字符类型的定义方式为把类型说明的变量定义合并在一起。 　例如：VAR 　　　　　name:STRING[8];　　　　　screenline:STRING;　Turbo Pascal中，一个字符串中的字符可以通过其对应的下标灵活使用。 　例如：var 　　　　　name：string； 　　　　begin 　　　　　readln（nsme）； 　　　　　for i:=1 to ord(name[0]) do writeln(name[i]);　　　　end. 　语句writeln(name[i])输出name串中第i个字符。 【例2】求输入英文句子单词的平均长度　程序如下：　program ex8_2; 　var 　　ch:string; 　　s,count,j:integer; 　begin 　　write(The sentence is :); 　　readln(ch); 　　s:=0; 　　count:=0; 　　j:=0; 　　repeat 　　　inc(j); 　　　if not (ch[j] in [:,,,;,,!,?,., ]) then inc(s); 　　　if ch[j] in[ ,.,!,?] then inc(count); 　　until (j=ord（ch[0])) or (ch[j] in [.,!,?]); 　　if ch[j]. then writeln(It is not a sentence.) 　　else writeln(Average length is ,s/count:10:4); 　end.　分析：程序中，变量s用于存句子中英文字母的总数，变量count用于存放句子中单词的个数，ch[j]表示ch串中的第j个位置上的字符，ord（ch[0]）为ch串的串长度。程序充分利用Turbo Pascal允许直接通过字符串下标得到串中的字符这一特点，使程序比较简捷。 二、字符串的操作 （一）字符串的运算和比较 　由字符串的常量、变量和运算符组成的表达式称为字符串表达式，字符串运算符包括： 　+：连接运算符　例如：Turbo +PASCAL的结果是Turbo PASCAL　若连接的结果字符串长度超过255，则被截成255个字符；若连接后的字符串存放在定义的字符串变量中，当其长度超过定义的字符串长度时，超过部份字符串被截