1、第十一课 枚举、子界、集合及记录类型在前面几章中我们用到了整型、实型、布尔型、字符型的数据。以上数据类型是由 pascal 规定的标准数据类型，只要写 integer,real,boolean, char, pascal 编译系统就能识别并按这些类型来处理。pascal还允许用户定义一些类型，这是其它一些语言所没有的，这就使得 pascal 使用灵活、功能丰富。一、枚举类型随着计算机的不断普及，程序不仅只用于数值计算，还更广泛地用于处理非数值的数据。例如，性别、月份、星期几、颜色、单位名、学历、职业等，都不是数值数据。在其它程序设计语言中，一般用一个数值来代表某一状态，这种处理方法不直观，易读
2、性差。如果能在程序中用自然语言中有相应含义的单词来代表某一状态，则程序就很容易阅读和理解。也就是说，事先考虑到某一变量可能取的值，尽量用自然语言中含义清楚的单词来表示它的每一个值，这种方法称为枚举方法，用这种方法定义的类型称枚举类型。枚举类型是一种很有实用价值的数据类型，它是 pascal 一项重要创新。（一）枚举类型的定义枚举类型是一种自定义类型，要使用枚举类型当然也要先说明枚举类型。枚举类型的一般格式:(标识符 1,标识符 2,标识符 n)说明：括号中的每一个标识符都称为枚举元素或枚举常量。定义枚举类型时列出的所有枚举元素构成了这种枚举类型的值域（取值范围），也就是说，该类型的变量所有可能
3、的取值都列出了。例如，下列类型定义是合法的：type days=(sun,mon,tue,wed,thu,fri,sat);colors=(red,yellow,blue,white,black,green);而下列类型定义是错误的(因为枚举元素非标识符):type colortype=(red,yellow,blue,white);字符串不是标识符，不可以作为枚举值numbers=(1,3,5,7,9);数字不可作为枚举值 ty=(for,do,while); week=(sun,sat); 枚举值须一一列出，不可用省略号代替fruits=(apple,orange,pear,pear);p
4、ear 不可以作为两个枚举值drink=(tea,milk,orage);orage 已作为 fruits 的一个值，不可以再作 drink 类型的值（二）枚举类型变量定义了枚举类型，就可以把某些变量说明成该类型。如：var holiday,workday:day;incolor:colors;也可以把变量的说明与类型的定义合并在一起,如:var holiday,workday:(sun,mon,tue,wed,thu,fri,sat);incolor:(red,yellow,blue,white,black,green);（三）枚举类型的性质枚举类型属于顺序类型根据定义类型时各枚举元素的排列
5、顺序确定它们的序号，第一个枚举元素的序号为 0。例如：设有定义：type days=(sun,mon,tue,wed,thu,fri,sat);则:ord(sun)=0,ord(mon)=1,ord(sat)=6;succ(sun)=mon,succ(mon)=tue,succ(fri)=sat;pred(mon)=sun,pred(tue)=mon,pred(sat)=fri。应注意的是：枚举类型中的第一个元素无前趋，最后一个元素无后继。对枚举类型只能进行赋值运算和关系运算一旦定义了枚举类型及这种类型的变量，则在语句部分只能对枚举类型变量赋值，或进行关系运算，不能进行算术运算和逻辑运算。在枚
6、举元素比较时，实际上是对其序号的比较。当然，赋值或比较时，应注意类型一致。例如，设程序有如下说明：type days=(sun,mon,tue,wed,thu,fri,sat);colors=(red,yellow,blue,white,black,green);var color:colors;weekday:days;则下列比较或语句是合法的:weekday:=mon;if weekday=sun then write(rest);weekdayredweekdaycolor枚举变量的值只能用赋值语句来获得也就是说，不能用 read(或 readln)读一个枚举型的值。同样，也不能用 wr
7、ite(或 writeln)输出一个枚举型的值。如 write(red)是非法的，会发生编译错误。千万不要误认为，该语句的结果是输出“red“三个字符。但对枚举数据的输入与输出可通过间接方式进行。输入时，一般可输入一个代码，通过程序进行转换，输出时，也只是打印出与枚举元素相对应的字符串。这在后面的例题中将有使用示例。 同一个枚举元素不能出现在两个或两个以上的枚举类型定义中。如:type color1=(red,yellow,white);color2=(blue,red,black);是不允许的，因为 red 属于两个枚举类型。（四）、枚举类型应用举例例 1 一周七天用 sun,mon,tue
8、,wed,thu,fri,sat 表示， 要求利用枚举类型编程：当输入星期几的数字,能输出它的后一天是星期几(也用英文表示)。源程序如下：program ex6_1;type week=(sun,mon,tue,wed,thu,fri,sat);var i : integer;day,sucday : week;beginwrite(What date is it);readln(i);case i of 根据输入 i 转换成枚举型1:day:=mon;2:day:=tue;3:day:=wed;4:day:=thu;5:day:=fri;6:day:=sat;7:day:=sun;end;计
9、算明天 sucdayif (day=sat) then sucday:=sunelse sucday:=succ(day);输出明天是星期几write(The next day is );case sucday ofsun:writeln(sunday);mon:writeln(monday);tue:writeln(tuesday);wed:writeln(wednesay);thu:writeln(thursday);fri:writeln(friday);sat:writeln(saturday);end;end.评注：程序中变量 day、sucday 分别表示今天、明天。二、子界类型如
10、果我们定义一个变量 i 为 integer 类型，那么 i 的值在微型机系统的 pascal 中,使用 2 字节的定义表示法,取值范围为-3276832767。而事实上，每个程序中所用的变量的值都有一个确定的范围。例如，人的年龄一般不超过 150，一个班级的学生不超过 100 人，一年中的月数不超过 12，一月中的天数不超过 31，等等。如果我们能在程序中对所用的变量的值域作具体规定的话，就便于检查出那些不合法的数据，这就能更好地保证程序运行的正确性。而且在一定程度上还会节省内存空间。子界类型就很好解决如上问题。此外，在数组的定义中，常用到子界类型，以规定数组下标的范围，上一章有关数组知识中我
11、们已用到。（一）子界类型定义子界类型的一般格式：说明: 其中常量 1 称为子界的下界,常量 2 称为子界的上界。下界和上界必须是同一顺序类型（该类型称为子界类型的基类型），且上界的序号必须大于下界的序号。例如，下列说明：type age=0.5150;letter=0z;let1=za;都是错误的。可以直接在变量说明中定义子界类型。如：type letter=ad;var ch1,ch2:letter;可以合并成:var ch1,ch2:ad;当然，将类型定义和变量定义分开，则更为清晰。（二）子界类型数据的运算规则凡可使用基类型的运算规则同样适用该类型的子界类型。例如，可以使用整型变量的地方，
12、也可以使用以整型为基类型的子界类型数据。对基类型的运算规则同样适用于该类型的子界类型。例如，div，mod 要求参加运算的数据为整, 因而也可以为整型的任何子界类型数据。基类型相同的不同子界类型数据可以进行混合运算。例如：设有如下说明：type a=1100;b=1.1000;c=1500;var x:a;y:b;t:c;z:integer;则下列语句也是合法的：Z:=Sqr(x)+y+t;下列语句:t:=x+y+z;当 X+Y+Z 的值在 1500 范围内时是合法的，否则会出错。（三）子界类型应用举例例 2 利用子界类型作为情况语句标号，编一个对数字， 大小写字母和特殊字符进行判别的程序。源
13、程序如下：program cas;var c:char;beginreadln(c);case c of09:writeln(digits);AZ:writeln(UPPER-CASELETTERS);az:writeln(lower-caseletters);esle writeln(special charactors);end;end.例 3 使用子界型情况语句，当输入月、日、年(10 30 1986)，输出 30 Oct 1986。源程序如下:program ex6_3;var month:112;date:131;year:19001999;beginwrite(Enter date
14、(mm-dd-yy):);readln(month,date,year);write(date);case month of1:write(Jan:5);2:write(Feb:5);3:write(Mar:5);4:write(Apr:5);5:write(May:5);6:write(Jun:5);7:write(Jul:5);8:write(Aug:5);9:write(Sep:5);10:write(Oct:5);11:write(Nov:5);12:write(Dec:5);end;writeln(year:7);end.枚举类型和子界类型均是顺序类型，在前面一章数组的定义时，实际上我们已经用到了子界类型，数组中的下标类型确切地讲可以是和枚举类型或子界类型，大多数情况下用子界类型。如有如下说明：type color=(red,yellow,blue,white,black);var a:arraycolorof integer;b:array1100of color;都是允许的。
