枚举子界集合记录.pptVIP

枚举子界集合记录;枚举;枚举的特点：

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函数求出枚举值的序号。

如：vard:(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可以作为循环控制变量

如：forc:=redtobluedowrite(ord(c));

将输出4个枚举值的序号：0、1、2。

3.4可以作为case语句的选择表达式

如：casecof

red:writeln(‘thecarisred.’);

yellow:writeln(‘thecarisyellow.’);

blue:writeln(‘thecarisblue.’);

end;;枚举的特点：

4、枚举值不允许直接输入输出，常通过case语句间接地输入输出。输入时，一般先读入序号，通过case语句将枚举值相应地赋给枚举变量；输出时，通过case语句判断枚举类型变量的值，输出相应的字符串。

如：输入颜色的首字母，输出相应的英文单词。

varc:(red,yellow,blue);

ch:char;

begin

read(ch);

casechof

‘r’:c:=red;

‘y’:c:=yellow;

‘b’:c:=blue;

end;

casecof

red:writeln(‘Red’);

yellow:writeln(‘Yellow’);

blue:writeln(‘Blue’);

end;

end.

;例：现有四种水果：苹果、橘子、香蕉、菠萝。从四种水果中任取三种，

不能重复和不计顺序。编程列出一切组合。;var

i,j,k,p,l:integer;

begin

fori:=1to2do

forj:=i+1to3do

fork:=j+1to4do

begin

forl:=1to3do

begin

caselof

1:p:=i;

2:p:=j;

3:p:=k;

end;

casepof

1:write(apple:12);

2:write(orange:12);

3:write(banana:12);

4:write(pineapple:12);

end;

end;

writeln;

end;

end.;【解法二思路简析】：

三重for循环分别设定i,j,k变量的值。由于水果总数是4种，为表达方便，分别设为1号、2号、3号、4号。现在想象，有个大佬(i)带了一个副手(j)和一个小弟(k)来了，大佬的等级观念特强。他先取，他会取什么呢，他只会取1号2号两种之一，为什么不取3号或4号呢，他得留两个给手下啊。〔他真要是取了3号或4号，手下岂不要取前面的1号或2号吗，这一来等级就混乱了。〕所以fori:=1to2就是这意思。现在轮到副手来取了，他会取什么呢？作为大佬的手下，是绝不会越级的，