第十一章 集合和记录.pptVIP

2002-02-01 PASCAL电子教案 2002-02-01 PASCAL电子教案 第十一章 集合和记录 * * §11.1 记录 一、记录的概念 数组的局限性：一个数组中的所有元素都必须有相同的类型。 记录(是一种数据结构)可以包含不同类型的并且互相有关的一些数据。 例： 学号 字符串类型 姓名 字符串类型 生日 记录类型 性别 字符类型 成绩 实型数据 二、记录类型的定义和记录的说明 记录是有一组称为“域(field)”的数据组成，每个域可以具有不同的数据类型。 1. 记录类型的定义形式： TYPE 类型名 = RECORD 域表 END; 例：TYPE date = RECORD day : 1..31; month : 1..12; year : 1960..1999; END; studata = RECORD num : string[6]; {packed array[1..6] of char;} name : string[15];{packed array[1..15] of char;} birthdate : date; sex : char; s : array[1..3] of real; END; 2. 记录类型变量的说明： 例；VAR a, b : studata; 三、对记录中域的引用 同一类型的记录变量之间可以进行赋值 例：设记录a中的每个域都已有确定值, 则 b := a; r1[2] := a 结果是把:=右边记录中的每个域的值赋给左边记录中同 名的域。 2. 只能对记录的域逐个引用，记录变量中的每个域能参与 其基类型所允许的所有运算和操作。引用方式为： 记录名.域名 例：a.num, a.name, a.birthdate.day, a.birthdate.month, a.birthdate.year, a.sex, a.s[1], a.s[2], a.s[3] 例：通过输入语句从终端给a记录的每个域赋值。 Read(a.num, a.name, a.birthdate.day, a.birhdate.month, a.birthdate.year, a.sex); For i := 1 TO 3 DO Read(a.s[i]); Readln; 例：计算学生的平均成绩 ave := 0; For i := 1 TO 3 DO ave := ave + a.s[i]; ave := ave/3; 四、WITH语句(开域语句) 对记录进行处理时，当引用同一记录中不同域时，使用 WITH 语句为记录中域的引用提供简单形式。 WITH a, birthdate DO begin read(num, name, day, month, year); read(sex, s[1], s[2], s[3]); end; 2. WITH语句的形式： WITH 记录名1，记录名2，… DO 语句； 3.若各记录名之间没有嵌套关系，则无次序要求；若有嵌套关系，则各记录名之间按嵌套的顺序列出。 WITH a DO begin read(num, name); WITH birthdate DO read(day,month,year); read(sex,s[1],s[2],s[3]); readln end; 可化简为 五、带变体的记录 TYPE ree1 = RECORD num : packed array[1..6] of char; age : integer; sex : char;