资源描述：
《枚举类型定义及例子》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、枚举类型 Pascal程序不仅用于数值处理，还更广泛地用于处理非数值的数据。例如，性别、月份、星期几、颜色、单位名、学历、职业等。 1、枚举类型的定义 格式: type枚举类型标识符=(标识符1,标识符2,…,标识符n)2、枚举类型数据特点①枚举元素只能是标识符；例如，下列类型定义是合法的： type days=(sun,mon,tue,wed,thu,fri,sat); colors=(red,yellow,blue,white,black,green); 而下列类型定义是错误的: typeco
2、lortype=('red','yellow','blue','white'); numbers=(1,3,5,7,9);定义枚举类型时列出的所有枚举元素构成了这种枚举类型的值域（取值范围）。 ②枚举类型属于顺序类型 根据定义类型时各枚举元素的排列顺序确定它们的序号，且序号从0开始。例如，定义typedays=(sun,mon,tue,wed,thu,fri,sat);则，ord(sun)=0,ord(mon)=1,……，以此类推。枚举类型中的第一个元素无前趋，最后一个元素无后继。 pred(sat)=fri
3、;succ(sun)=mon;ord(sat)=6; ③同一个枚举元素不能出现在两个或两个以上的枚举类型定义中。如下列定义是错误的: typecolor1=(red,yellow,white); color2=(blue,red,black); 因为red属于枚举类型color1和color2 ④枚举类型变量只能进行赋值运算和关系运算，不能进行算术运算和逻辑运算。 在枚举元素比较时，实际上是对其序号的比较。 例如定义如下： typedays=(sun,mon,tue,wed,thu,fri,sat); color
4、s=(red,yellow,blue,white,black,green); varcolor:colors; weekday:days; 则下面语句是合法的: weekday:=mon; ifweekday=sunthenwrite('rest'); 而下面语句是不合法的:mon:=1; 错把枚举值当成变量名；weekday:=blue； 枚举值blue不属于枚举变量weekday的值域；read(color); 枚举类型变量不能用读语句进行赋值；write(w
5、eekday);writeln(blue);不能通过写语句输出枚举类型的变量值和枚举值。 ⑤可以把变量的说明与类型的定义合并在一起，如: varholiday,workday:(sun,mon,tue,wed,thu,fri,sat); color:(red,yellow,blue,white,black,green);对枚举数据的输入与输出可通过间接方式进行。输入时，一般可输入一个代码，通过程序进行转换，输出时，也只是打印出与枚举元素相对应的字符串。这在后面的例题中将有使用示例。 二、枚举类型的应用例1、输入今天是星期几的序号，输
6、出明天是星期几的英文单词（星期天序号为0）。 typeweekday=(sun,mon,tue,wed,thu,fri,sat); vari:integer; today,tomorrow:weekday; begin writeln('Whatdateisit');readln(i); caseiof {根据输入转换成枚举型} 0:today:=sun; 1:today:=mon; 2:today:=tue; 3:today:=wed;
7、 4:today:=thu; 5:today:=fri; 6:today:=sat; end; if(today=sat)thentomorrow:=sun elsetomorrow:=succ(today); write('Thetomorrowis'); casetomorrowof sun:writeln('sunday'); mon:writeln('monday'); tue:writeln('tuesday'); wed:w
8、riteln('wednesay'); thu:writeln('thursday'); fri:writeln('friday'); sat:writeln(
