1、枚举子界集合记录PASCAL第十一课枚举、子界、集合及记录类型在前面几章中我们用到了整型、实型、布尔型、字符型的数据。以上数据类型是由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); (二)枚举类型变量 定义了枚举类型,就可以把某些变量说明成该类型。如: var holiday,
4、workday:day; incolor:colors; 也可以把变量的说明与类型的定义合并在一起,如: var holiday,workday:(sun,mon,tue,wed,thu,fri,sat); incolor:(red,yellow,blue,white,black,green); (三)枚举类型的性质、枚举类型属于顺序类型 根据定义类型时各枚举元素的排列顺序确定它们的序号,第一个枚举元素的序号为0。例如:设有定义 type days=(sun,mon,tue,wed,thu,fri,sat); 则: ord(sun)=0,ord(mon)=1,ord(sat)=6;succ(s
5、un)=mon,succ(mon)=tue, succ(fri)=sat;pred(mon)=sun,pred(tue)=mon,pred(sat)=fri。 应注意的是:枚举类型中的第一个元素无前趋,最后一个元素无后继,却pred(sun)和succ(sat)皆是错误的、对枚举类型只能进行赋值运算和关系运算:一旦定义了枚举类型及这种类型的变量,则在语句部分只能对枚举类型变量赋值,或进行关系运算,不能进行算术运算和逻辑运算。在枚举元素比较时,实际上是对其序号的比较。当然,赋值或比较时,应注意类型一致。例如,设程序有如下说明: type days=(sun,mon,tue,wed,thu,fri
6、,sat); colors=(red,yellow,blue,white,black,green); var color:colors; weekday:days; 则下列语句是合法的: weekday:=mon; if weekday=sun then write(rest); weekdaysun 而下面语句是不合法的: mon:=weekday; mon:=1; if weekday=sun or sat then write(rest); sunred weekdaycolor 、枚举变量的值只能用赋值语句来获得 也就是说,不能用read(或readln)读一个枚举型的值。同样,也不能
7、用write(或writeln)输出一个枚举型的值。如write(red)是非法的,会发生编译错误。千万不要误认为,该语句的结果是输出red三个字符。 但对枚举数据的输入与输出可通过间接方式进行。输入时,一般可输入一个代码,通过程序进行转换,输出时,也只是打印出与枚举元素相对应的字符串。这在后面的例题中将有使用示例。 、同一个枚举元素不能出现在两个或两个以上的枚举类型定义中,如: type color1=(red,yellow,white); color2=(blue,red,black); 是不允许的,因为red属于两个枚举类型。 (四)、枚举类型应用举例 【例1】一周七天用sun、mon、
8、tue、wed、thu、fri、sat表示,要求利用枚举类型编程:当输入星期几的数字 ,能输出它的后一天是星期几(也用英文表示)。 源程序如下: program ex6_1; type week=(sun,mon,tue,wed,thu,fri,sat); var i : integer; day,sucday : week; begin write(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
9、:day:=sun; end; 计算明天sucday if (day=sat) then sucday:=sun else sucday:=succ(day); 输出明天是星期几 write(The next day is ); case sucday of sun:writeln(sunday); mon:writeln(monday); tue:writeln(tuesday); wed:writeln(wednesay); thu:writeln(thursday); fri:writeln(friday); sat:writeln(saturday); end; end. 评注:程序中
10、变量day、sucday分别表示今天、明天。 二、子界类型 如果我们定义一个变量i为integer类型,那么i的值在微型机系统的pascal中,使用2字节的定义表示法,取值范围为-3276832767;而事实上,每个程序中所用的变量的值都有一个确定的范围;例如 :人的年龄一般不超过150;一个班级的学生不超过100人;一年中的月数不超过12;一月中的天数不超过31,等等 如果我们能在程序中对所用的变量的值域作具体规定的话,就便于检查出那些不合法的数据,这就能更好地保证程序运行的正确性;而且在一定程度上还会节省内存空间。 子界类型就很好解决如上问题。此外,在数组的定义中,常用到子界类型,以规定数
11、组下标的范围,上一章有关数组知识中我们已用到。 (一)子界类型定义 子界类型的一般格式: . 说明:其中常量1称为子界的下界,常量2称为子界的上界。 下界和上界必须是同一顺序类型(该类型称为子界类型的基类型),且上界的序号必须大于下界的序号。例如,下列说明: type age=0.5.150; letter=0.z; let1=z.a; 都是错误的。 可以直接在变量说明中定义子界类型。如: type letter=a.d; var ch1,ch2:letter; 可以合并成: var ch1,ch2:a.d; 当然,将类型定义和变量定义分开,则更为清晰。 (二)子界类型数据的运算规则 、凡可使
12、用基类型的运算规则同样适用该类型的子界类型:例如,可以使用整型变量的地方,也可以使用以整型为基类型的子界类型数据。 、对基类型的运算规则同样适用于该类型的子界类型:例如,div,mod要求参加运算的数据为整, 因而也可以为整型的任何子界类型数据。 、基类型相同的不同子界类型数据可以进行混合运算:例如,设有如下说明 typea=1.100; b=1.1000; c=1.500; var x:a; y:b; t:c; z:integer; 则下列语句也是合法的: Z:=Sqr(x)+y+t; 下列语句: t:=x+y+z; 当X+Y+Z的值在1500范围内时是合法的,否则会出错。 (三)子界类型应
13、用举例 【例2】利用子界类型作为情况语句标号,编一个对数字, 大小写字母和特殊字符进行判别的程序。 源程序如下: program cas; var c:char; begin readln(c); case c of 0.9:writeln(digits); A.Z:writeln(UPPER-CASELETTERS); a.z:writeln(lower-caseletters); esle writeln(special charactors); end; end. 【例3】使用子界型情况语句,当输入月、日、年(10 30 1986),输出30 Oct 1986。 源程序如下: program ex6_3; var month:1.12; date:1.31; year:1900.1999; begin write(Enter date(mm-dd-yy):); readln(month,date,year); write(date
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1