第十讲、字符与字符串.ppt

1、王同林寿光现代中学第十讲汉字与弦。字符用作字符类型的标识符。字符类型必须用单引号括起来。当使用字母作为字符类型时，大小写不相等，字符类型只允许单引号中有一个字符，否则就是字符串。Var character变量名：char字符类型是有序类型，字符的大小顺序由ASCII码的大小决定。例如：Var a:chara :=b；a :=B；a :=2；1.性格类型，知识点：1。字符的ASCII码(序列号):一一对应，函数：order(X)、chr(x)、succ)、pred(x)、order(X):返回字符X的ASCII码.i:=订单(A)；j:=订单(B)；n:=订单(1)；书写(I，j，n)；65 6

2、6 49)，chr(x):返回ASCII码为x. var a:char的字符；a :=chr(98)；write ln(a)；书写(chr(97)；3)，后续函数：成功(a)=b 4)，前置函数：预解码(B)=a4，3，字符大小比较(对应字符的ASCII码大小比较):ASCII码越大的字符越大。Ba 51 aA，4。将数字字符转换成相应数字的方法。var x:chara:integerx :=3；a:=订单(x)-48；示例1按字母顺序和相反顺序打印每隔一个字母，即打印出来：a c e g I k m o q s u w y z r v t p n l j h f d b程序如下：程序ex8

3、_ 1；var letter:char如果(order(letter)-order(a)mod 2=0，则开始字母：=a到z do，然后写入(letter :3)；writeln对于字母：=z down to a do if(order(字母)-order(z)mod 2=0，然后写入(字母：3)；writeln结束。练习主题：从键盘输入一串字符(可能包括数字和小写字母)，以#作为输入的结束符号。编程完成：计算输入字符中每个小写字母出现的次数(如果没有出现，就不会输出)。示例：输入：2bcdaab33wycc#输出：a 2 b 2 c 3 d 1 w 1 y 1，算法一：var ch:char

4、。n，i:integera:array1.整数的26；计算从I :=1到AI :=0的字母出现的次数；阅读(ch)；而ch#确实开始于if(ch=a)和(ch0然后写入(chr(i 96)，ai)；结束。var ch:charn，i:integera:array97.122的整数；计算字母出现的次数，从I :=97到122，AI :=0；阅读(ch)；而ch#确实开始于if(ch=a)和(ch0然后写入(chr(i)，ai)；结束。算法二：算法三：var ch:charn，i:integera:arraya.整数的z；计算ch:=a到z do ach :=0的字母出现的次数；阅读(ch)；而c

5、h#则从if(ch=a)和(ch0)开始，然后写入(ch，ach)；结束。string是用于存储批处理字符的字符串。Var:a:字符串；或Var:Var:a:string。A:=hello，其中正整数n(1=n=255)表示组成字符串的最大字符数。如果字符串描述中没有指定长度，则默认值为255。Freepascal中新添加的字符串类型：ansistring默认长度可达2562-1=65535 VAR ST :转/分；第二，字符串，字符串类型定义：type=stringnVar字符串变量：字符串类型标识符；其中：n是定义的字符串长度，必须是介于0255之间的自然整数。字符串的实际长度存储在单元0

6、中，该单元在程序运行时由系统自动提供。字符串的字符存储在单元1n中。如果String被写成String，则默认值为255。例如：type man=string8line=字符串；var name:manscreenline:line定义字符类型的另一种方法是组合类型描述的变量定义。例如：风险值名称：字符串8；屏幕线：字符串；与字符串相关的操作、使用字符串的说明和注意事项： 1。字符串：的输入和输出字符串：的输入是回车的结束符号。因此，输入必须是read ln(s)；每个readln语句只能读入一个字符串。无法读取(s1，S2)；输出：writeln。2.字符串可以像数组一样操作：a:=nabc

7、deg那么：a1:=n。a3:=b。产出：write ln(a)；或者：对于i:=1到长度(a)，请写(ai)；3.键盘只能接受127个字符；一般来说，它是文件输入。4.严格区分数字字符、数字字符串和数值之间的差异，但它们可以相互转换。44 13261326，例如：var a:chari:integera :=4；i:=订单(a)-48；write ln(I)；I=4，5。字符串大小的比较。123=123 1234512325 123451234 456123456。6.将数字字符串转换成数字类型有两种方法：第一，处理值；第二，直接转换；首先，输入一个正整数n(10250)，并求出其数字的和。

8、var n:strings，k，i:integer开始读取(n)；k:=长度(n)；s :=0；对于i:=1到k do s:=s阶(ni)-48；write ln(s)；结束。字符串应用程序示例：2。写一个程序，从键盘输入的n(100)个英语单词中计算以C开头的单词，并输出数字。示例：输入：4一只猫蜜蜂奶牛输出：猫奶牛2，变量a:数组1.100串；记录输入单词n，I，s 3360整数；开始读取(n)；输入i:=1到n的字数，输入read ln(ai)；s :=0；如果(ai，1=c)或(ai，1=c)，记录I :=1到n do以c开头的字数，然后开始s :=S1；累积写入(ai)；输出以c开头

9、的单词结尾；write ln(s)；3.验证数字是否为回文数字(10250)的程序(数字的第一个数字与倒数第二个数字相同，第二个数字与倒数第二个数字相同，如13531，3443)。示例：输入：1234564354005656546565656565输出：no，var a:stringn，I，len:integeryn :布尔值；开始阅读(a)；len:=长度(a)；n:=透镜div 2；yn:=真；对于i:=1到n do，如果aialen 1-i，则开始yn:=假；打破；结束；如果是，则写“是”，否则写“否”；结束。方法一，var a:stringI，j，k:integer开始阅读(a)；k:

10、=长度(a)；I :=1；j:=k。而(ai=aj)和(i=j)则写ln(是)否则写ln(否)；结束。方法2，4，完整的计算器功能：在30，000内完成正整数的加法。样本：输入：130 100输出：230，算法：1)找到位置k。2)将运算符前的字符转换为数值A，将运算符后的字符串转换为数值B。3)找到数值B，变量A，B，K，整数；ab:longint。s:string开始读取；k:=pos(，s)；val(副本(s，1，k-1)，a，c)；val(副本(s，k 1，长度(s)-k)，b，c)；ab:=a b。write ln(ab)；结束。process:在val(s，a，c)中，c只能是整数

11、。如果转换成功，c=0。a可以是实数或整数。Val(12.6，a，c)；A:=12.6，方法1，var a，b，k，c，n，A:整数；ab:longint。s:string开始读取；k:=pos(，s)；n:=长度(s)；a :=0；对于i:=1至k-1，do a:=a*10阶(si)-48；b :=0；对于i:=k 1至n do b:=b*10阶(si)-48；ab:=a b。write ln(ab)；结束。方法2，5，编程完成30，000范围内正整数的，-，*，/的运算，只需一个运算符号。样本：输入：130*100输出：13000，var a，b，k，c，len :整数；s:stringo

12、p:char开始读取；len:=长度(s)；对于k:=1至len do，如果不是(sk=0)，则断开；op:=sk。val(副本(s，1，k-1)，a，c)；val(副本(s，k 1，长度(s)-k)，b，c)；案件op : write ln(a)b；-: write ln(a-b)；* : write ln(a * b)；/:如果b=0，则writeln(无答案)否则write ln(a/b :0:2)；结束；6.删除数字的问题用键盘输入一个正整数。删除任何数字后，剩余的数字将按照原来的左右顺序形成一个新的正整数。对一个给定的和进行编程，找到一个最小化新剩余数的方法。(不超过位数)输入：两行

13、，第一行是正整数N，第二行是正整数s。输出：一个新的最小正整数m，由N个去掉的s数组成。示例：输入：123006 2输出：1006，428760005 4，672397104 5，40002876 2，12145789 4，var n :字符串。s，i:integer开始读取(n)；输入读取的数字；当s0开始i:=1时，输入删除的位数；而(i1)和(n1=0)删除(n，1，1)；处理后删除前0，并确保n不为null write ln(n)；结束。练习1:实现：使用多个and运算符评估表达式。如：输入：45 5-4 10输出：56，var s 3360 string a : array 1.10

14、0串；b:array1.100焦；c:array1.100的整数；I，j，k，m，n，p，代码：整数开始读取；m :=0；对于i:=1至长度，如果(si=)或(si=-)，则开始k :=k 1；bk:=si结束；对于i:=1至k，开始p:=pos(bi，s)；m :=m 1；am:=副本(s，1，p-1)；删除(s，1，p)；结束；am 1:=s；对于i:=1至m 1 do val(ai、ci、code)；对于j:=1至我知道，如果bj=则cj 1:=cj cj 1，否则CJ 1:=CJ-CJ 1；书写（厘米1)；结束2007年.练习二：矩形覆盖面积，问题描述：在平面坐标系内有n个矩形，求这n个矩形覆盖的面积（重叠部分不能重复计算)。输入：第一行：n(=100)，矩形的个数。以下n行，每行4个数：x1，y1，x2，y2。表示每个矩形的左下角定点和右上角定点的坐标。范围0，100。输出：N个矩形的覆盖面积。样例输入；3 2 1 5 4 4 3 7 5 4 6