资源描述：
《Pascal枚举型》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、群星学校信息学奥林匹克竞赛辅导资料指导老师：潘新伟第6讲：枚举类型为了说明非数值的数据，pascal语言提供了枚举类型，用枚举的方法将所有的取值一一列出。如用“Monday”代表星期一，“tuesday”代表星期二等。所以用枚举的方法定义的数据类型即成为枚举类型。一、格式由于枚举类型属于用户自定义类型，必须在程序的说明部分进行说明，先定义后使用。类型定义的语法格式： type <标识符1>=<类型1>；<标识符1>=<类型1>； ……<标识符n>=<类型n>；枚举类型的语法格式：type<枚举类型标识符>=(<标识符1>，<标识符2>，…，<标识符
2、n>)；例如：typedaystype=(sunday,monday,tuesday,wednesday,thursday,friday,saturday)； 其中<枚举类型标识符>是用户定义的枚举类型的名字，括号中的<标识符1>，<标识符2>，…，<标识符n>成为枚举元素，它们构成了这种枚举类型的取值范围。定义了枚举类型之后，就可以在变量说明部分进行相应的定义了，如：typedaytype=(sun,mon,tue,wed,thu,fri,sat);colortype=(red,yellow,blue,white);vard1,d2:daytyp
3、e;c:colortype;或者类型定义和变量定义可以合并在变量说明部分，如下：var第七讲-4-群星学校信息学奥林匹克竞赛辅导资料指导老师：潘新伟d1,d2:(sun,mon,tue,wed,thu,fri,sat);c:(red,yellow,blue,white);二、枚举类型的特点1、枚举元素只能是标识符，不能是数值常量、字符常量等其他任何数据类型如下列定义是错的：typemonthtype=(1,2,3,4,5,6,7,8,9,10,11,12);colortype=(‘red’,’yellow’,’blue’);枚举元素是标识符，不要把
4、作为枚举元素的标识符视作变量名，它不能被赋值。2、同一个枚举元素不能出现在两个或两个以上的的枚举类型定义中下列定义是错的：typecolor1=(red,yellow,blue,white);color2=(black,blue,green);3、枚举类型属于顺序类型枚举类型属于顺序类型。根据定义类型时各枚举元素的排列顺序确定它们的序列，序列号从0开始。例如：typedaystype=(sun,mon,tue,wed,thu,fri,sat);ord(sun)=0,succ(sun)=mon,pred(fri)=thu可见，枚举型可以作为序号函数o
5、rd，前趋函数pred，后继函数succ的自变量，当然枚举类型的第一个元素没有前趋，最后一个元素没有后继。4、对枚举类型只能进行赋值运算和关系运算例如有以下定义vard1,d2:(sun,mon,tue,wed,thu,fri,sat);c:(red,yellow,blue,white);以下的语句是正确的d1:=sun;d2:=fri;c:=blue;第七讲-4-群星学校信息学奥林匹克竞赛辅导资料指导老师：潘新伟以下的语句是错误的mon:=1;c:=sun;read(d1,d2,c);write(d1,d2,c);writeln(blue);三、
6、枚举类型的应用TurboPascal不允许直接读写枚举值，所以枚举值的输出常用case语句间接的输出。枚举值的输入，则要一一判断读入字符是否是枚举类型的标识符。若是才能赋给枚举变量，否则就会出错。例如：输入今天是星期几的序号（星期天的序号为0），输出明天是星期几的单词。programex1(input,output);typedaytype=(sun,mon,tue,wed,thu,fri,sat);vark:integer;today,tomorrow:daytype;beginreadln(k);casekof0:today:=sun;1:to
7、day:=mon;2:today:=tue;3:today:=wed;4:today:=thu;5:today:=fri;6:today:=sat;end;iftoday=satthentomorrow:=sunelsetomorrow:=succ(today);write(‘tomorrow第七讲-4-群星学校信息学奥林匹克竞赛辅导资料指导老师：潘新伟is’);casetomorrowofsun:writeln(‘Sunday’);mon:writeln(‘Monday’);tue:writeln(‘Tuesday’);wed:writeln(‘
8、Wednesday’);thu:writeln(‘Thursday’);fri:writeln(‘Friday’);sat
