高中信息技术 pascal教程09 第九课 字符串教案-人教版高中全册信息技术教案VIP免费

第九课字符串§9.1字符串类型，其一般形式：TYPE<标识符>=STRING[N];N必须是小于256的整数，表示字符串的最大长度，N缺省值为255。例如：varname1:string[20];{字符串name1的最大长度为20}ss:string;{字符串ss的最大长度为255}◆字符串的实际长度取决于程序执行时所赋予的实际字符个数，可以用函数Length(字符串名)取得，如：t=length(ss);{t为整型变量，利用length函数取得字符串ss的实际长度}◆字符串类型变量可以整体输入和输出，如：read(ss);write(ss);◆字符串可以进行连接，连接符为“+”，如：‘good’+‘morning’=‘goodmorning’◆字符串中的每一个字符可以对应字符数组中的一个元素，可以用字符串名加下标（类似数组）的方法来表示，如：ss:=‘computrr’;ss[7]:=‘e’;writeln(ss);{将输出‘computer’}字符串与字符数组的区别在于字符串最大长度只有255，而数组元素的个数可以超过255。◆字符串可以进行六种关系运算：＝、<>、>=、<=、>、<。当两个字符串进行比较时，是从左到右逐个字符按照它们的ASCII码值进行比较。例如：‘a’<‘b’为true‘ABCD’<‘ABC’为false◆Pascal提供了不少函数和过程用于字符串的操作，如：copy（S：string；i,L：integer）：string；返回字符串S中从第i个字符开始的L个字符所组成的字符串concat（S1,S2,……,Sn：string）：string；合并一系列字符串Pos（P,S：string）：byte；返回子字符串P在字符串S中的位置delete（S：string；I，L：ineger）；从字符串S中删除从第I个字符开始的L个字符Insert（S：string；D：string；P：integer）；在字符串D的P位置插入字符串Sstr（I：integer/real；S：string）；整数/实数转字符串val（S：srting；R：real；D：integer）；字符串转整数/实数【例】编写一个学生成绩统计的程序。输入：n个学生的姓名、成绩；输出：平均分，成绩低于平均分的学生的姓名。参考程序：programexam;constmaxn=100;varname:array[1..maxn]ofstring;{数组name用于存放学生姓名，数组元素为字符串}score:array[1..maxn]ofinteger;{数组score用于存放学生成绩}n,i,sum:integer;ave:real;beginreadln(n);sum:=0;fori:=1tondobeginreadln(name[i]);{字符串、字符不能和整型数据共用一个read}readln(score[i]);sum:=sum+score[i];end;ave:=sum/n;writeln(ave:8:1);fori:=1tondoifscore[i]s[j]thent:=false;i:=i+1;j:=j-1;until(i>=j)or(t=false);iftthenwriteln('Y')elsewriteln('N');end.●Pascal还允许在字符串中嵌入控制字符。有两种表示控制字符的方法：①在符号#后跟0…255之内的整数，表示与ASCII码相应的一个字符，如：#65表示字符‘A’#50表示字符‘2’#10表示换行②在符号^后跟一个字符，表示控制字符，如：^G表示响铃当它们与字符串常量混合在一起时，控制字符不能用单引号括起来，例如：writeln(‘waitingforinput!’^G^G^G’please’#27‘u’);输出：waitingforinput!please←u（同时响铃）§5.4类型强制转换Pascal提供把变量类型强制转换的功能，即把一种变量作为另一种变量引用，其形式是在要转换的变量前冠以强制转换的类型标识符。如：A(B)就是把变量B强制转换为A类型。◆字符型与整型可以相互转换字符变量c转换为整型变量i，i的值为该字符对应的ASCII码值；整型变量i转换为字符变量c，c为以i为ASCII码值所对应的字符。◆布尔型与整型可以相互转换布尔变量转换为整型变量时，布尔值true对应1，false对应0；整型变量转换为布尔变量时，整型值为0时对应false，不等于0时对应true。◆实型不能和其它类型相互转换，但整型变量可以直接赋给实型变量，如i为整型变量，r为实型变量，可以如下赋值：r:=i;◆数组也可以使用类型强制转换，如数组B是一个二维整型数组，而类型A是一个一维整型数组类型，它们的定义如下：typeA=array[1..20]ofinteger;varB:...