枚举类型定义和例子.docVIP

枚举类型　　Pascal程序不仅用于数值处理，还更广泛地用于处理非数值的数据。例如，性别、月份、星期几、颜色、单位名、学历、职业等。? 1、枚举类型的定义?? 格式:　type 枚举类型标识符=(标识符1,标识符2,…,标识符n) 2、枚举类型数据特点 枚举元素只能是标识符； 例如，下列类型定义是合法的：　　??? 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); 定义枚举类型时列出的所有枚举元素构成了这种枚举类型的值域（取值范围）。? 枚举类型属于顺序类型　? 根据定义类型时各枚举元素的排列顺序确定它们的序号，且序号从0开始。 例如，定义type days=(sun,mon,tue,wed,thu,fri,sat); 则， ord(sun)=0,ord(mon)=1,……，以此类推。 枚举类型中的第一个元素无前趋，最后一个元素无后继。 ?????? pred(sat)=fri; succ(sun)=mon; ord(sat)=6;?? 同一个枚举元素不能出现在两个或两个以上的枚举类型定义中。如下列定义是错误的:　　 type color1=(red,yellow,white);　　　　? color2=(blue,red,black);　 ?因为red属于枚举类型color1和 color2?  枚举类型变量只能进行赋值运算和关系运算，不能进行算术运算和逻辑运算。　　在枚举元素比较时，实际上是对其序号的比较。 　例如定义如下：　　? 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);　而下面语句是不合法的: mon:=1;?????????? 错把枚举值当成变量名； weekday:=blue；?? 枚举值blue不属于枚举变量weekday的值域； read(color);????? 枚举类型变量 不能用读语句进行赋值； write(weekday); writeln(blue);不能通过写语句输出枚举类型的变量值和枚举值。? 可以把变量的说明与类型的定义合并在一起，如:　　var holiday,workday:(sun,mon,tue,wed,thu,fri,sat);　　　? color:(red,yellow,blue,white,black,green); 对枚举数据的输入与输出可通过间接方式进行。输入时，一般可输入一个代码，通过程序进行转换，输出时，也只是打印出与枚举元素相对应的字符串。这在后面的例题中将有使用示例。? 二、枚举类型的应用例1、输入今天是星期几的序号，输出明天是星期几的英文单词（星期天序号为0）。　　type weekday=(sun,mon,tue,wed,thu,fri,sat);　　 var i : integer;　　　　 today,tomorrow : weekday;　　begin　　　writeln(What date is it); readln(i);　　　case i of????????????????????????????? { 根据输入转换成枚举型 }　　　　0: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:=sun? else tomorrow:=succ(today);　　? write(The tomorrow is );??? 　　　case tomorrow of　　　　sun:writeln(sunday);　　　　mon:write