枚举子界集合记录资料.pptVIP

* 枚举子界集合记录 枚举 定义：有些变量的取值是确定的一些内容，例如一周有7天，一年有12个月， 可以将其逐一列举出来。 格式一：type 枚举类型名=(枚举值1,枚举值2,…,枚举值n); var 枚举变量名:枚举类型名; 格式二：var 枚举变量名:(枚举值1,枚举值2,…,枚举值n); 例题： type daytype=(sun,mon,tue,wed,thu,fri,sat); colortype=(red,yellow,blue,black); var d1,d2:daytype; c:colortype; 或：var d1,d2:(sun,mon,tue,wed,thu,fri,sat); c:(red,yellow,blue,black); 枚举的特点： 1、枚举值只能是标识符，而不能是数值常量或字符常量，也不能被赋值。 如：以下两种定义都是错误的。 type monthtype=(1,2,3,4,5,6,7,8,9,10,11,12); colortype=(’red’,’yellow’,’blue’,’black’); 2、同一枚举元素不能出现在两个或两个以上的枚举类型定义中。 如：以下定义是错误的，black既属于color1，又属于color2。 type color1=(red,yellow,blue,black); color2=(black,green,white); 枚举的特点： 3.1枚举类型属于顺序类型，序号从0开始，可用ord函数求出枚举值的序号。 如：var d:(sun,mon,tue,wed,thu,fri,sat); c:(red,yellow,blue); ord(sun)的值为0,ord(fri)的值为5,ord(blue)的值为2。 3.2可用succ和pred函数求出枚举值的后继和前趋。 枚举类型的第一个元素没有前趋，最后一个元素没有后继。 如：pred(tue)的值为mon，succ(red)的值为yellow。 3.3可以作为循环控制变量 如：for c:=red to blue do write(ord(c)); 将输出4个枚举值的序号：0、1、2。 3.4可以作为case语句的选择表达式 如：case c of red:writeln(‘the car is red.’); yellow:writeln(‘the car is yellow.’); blue:writeln(‘the car is blue.’); end; 枚举的特点： 4、枚举值不允许直接输入输出，常通过case语句间接地输入输出。输入时，一般先读入序号，通过case语句将枚举值相应地赋给枚举变量；输出时，通过case语句判断枚举类型变量的值，输出相应的字符串。 如：输入颜色的首字母，输出相应的英文单词。 var c:(red,yellow,blue); ch:char; begin read(ch); case ch of ‘r’:c:=red; ‘y’:c:=yellow; ‘b’:c:=blue; end; case c of red:writeln(‘Red’); yellow:writeln(‘Yellow’); blue:writeln(‘Blue’); end; end. 例：现有四种水果：苹果、橘子、香蕉、菠萝。从四种水果中任取三种， 不能重复和不计顺序。编程列出一切组合。 type fruit=(apple,orange,banana,pineapple); var i,j:fruit; begin for i:=apple to pineapple do begin for j:=apple to pineapple do if ij then case j of apple:write(apple:12); orange:write(orange:12); banana:write(ban