Pascal枚举型.docVIP

第6讲：枚举类型 为了说明非数值的数据，pascal语言提供了枚举类型，用枚举的方法将所有的取值一一列出。如用“Monday”代表星期一，“tuesday”代表星期二等。所以用枚举的方法定义的数据类型即成为枚举类型。一、格式 由于枚举类型属于用户自定义类型，必须在程序的说明部分进行说明，先定义后使用。类型定义的语法格式：　type　标识符1=类型1；标识符1=类型1；　……标识符n=类型n； 枚举类型的语法格式：type枚举类型标识符=(标识符1，标识符2，…，标识符n)； 例如： type daystype=(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:daytype;c:colortype;或者类型定义和变量定义可以合并在变量说明部分，如下：var 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’);枚举元素是标识符，不要把作为枚举元素的标识符视作变量名，它不能被赋值。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可见，枚举型可以作为序号函数ord，前趋函数pred，后继函数succ的自变量，当然枚举类型的第一个元素没有前趋，最后一个元素没有后继。4、对枚举类型只能进行赋值运算和关系运算例如有以下定义var d1,d2:(sun,mon,tue,wed,thu,fri,sat);c:(red,yellow,blue,white);以下的语句是正确的 d1:=sun;d2:=fri;c:=blue;以下的语句是错误的 mon:=1;c:=sun;read(d1,d2,c);write(d1,d2,c);writeln(blue);三、枚举类型的应用Turbo Pascal不允许直接读写枚举值，所以枚举值的输出常用case语句间接的输出。枚举值的输入，则要一一判断读入字符是否是枚举类型的标识符。若是才能赋给枚举变量，否则就会出错。例如：输入今天是星期几的序号（星期天的序号为0），输出明天是星期几的单词。program ex1(input,output);typedaytype=(sun,mon,tue,wed,thu,fri,sat);var k:integer;today,tomorrow:daytype;beginreadln(k);case k of0: today:=sun;1: today:=mon;2: today:=tue;3: today:=wed;4: today:=thu;5: today:=fri;6: today:=sat;end;if today=sat then tomorrow:=sunelse tomorrow:=succ(today);write(‘tomorrow is’);case tomorrow ofsun:writeln(‘Sunday’);mon:writeln(‘Monday’);tue:writeln(‘Tuesday’);wed:writeln(‘Wednesday’);thu:writeln(‘Thursday’);fri:writeln(‘Friday’);sat:writeln(‘Saturday’);end;En