§4自定义数据类型Pascal语言允许用户按语法规则自己定义一些数据类型。数据类型定义的一般形式为：TYPE<类型标识符>=<类型>;§4.1枚举类型在程序设计中常用到一些非数值的数据，如：月份、星期、颜色、科目等。在程序中直接用自然语言来代表这些数据，将使程序易读易理解。枚举类型是用户自定义类型，用户能够直接用标识符来依次列举枚举类型的每一种可取值。1．枚举类型定义的一般形式为：TYPE<类型标识符>=(标识符表);其中标识符表是一串用逗号隔开的标识符，它列举了枚举类型所有可取的值。2．上面仅仅是类型的定义，使用枚举类型的变量还需进行类型说明：VAR<变量名>:<类型标识符>;例如：typedays=(sun,mon,tue,wed,thur,fri,satur);colors=(red,yellow,blue,green,black,white);operator=(plus,minus,times,divide)vartoday,holiday:days;f:colors;p1,p2,p3:operator;上例中，首先进行类型定义，days定义了一星期中的各天，由星期日、一、二、…、六共七各成份组成；命名为colors的枚举类型由红、黄、蓝、绿、黑、白六种颜色；operator型由加、减、乘、除四个成份组成。接下来的变量说明中，today、holiday被说明为days类型，即这两个变量只能在组成days的七种成份中取值。f被说明为colors型，p1、p2、p3被说明为operator型。枚举型的定义可以不预先在类型定义中定义类型标识符，而在说明中直接定义枚举类型，如上例中，可省去type类型定义，将变量说明改为：varp1,p2,p3:(plus,minus,times,divide)【注意】①每个枚举类型所允许的枚举值，必须全部列在其后的括号中；②枚举值只能是标识符（单个字符或以字母开头的字母数字组合）；③每个枚举值只能出现在一个枚举类型定义中，并且只能在该定义中出现一次；④枚举变量只能在该枚举类型定义的值中取，即变量的取值受变量的类型限制；如下列枚举类型定义都是错误：typezm=(‘a’,‘b’,‘c’,‘d’);②sz=(1,2,3,4,5,6,7,8,9);②t1=(sum,mon,tue,wed,sun);t2=(wed,thu,fri,sat);3．枚举类型的变量不能用read或write语句直接读写。如：read(p1);或write(p2);都是错误的。但枚举变量可以赋值，如：f:=blue;p1:=plus;p2:=p1;4．枚举类型是有序类型，即在类型定义中列出的值是有序的。它的序号从0开始，按自左至右，从小到大的顺序编排。如在days类型中，sun的序号为0，mon为1，……，satur为6。因此枚举类型的量可以进行关系比较运算，如monj)thenfork:=redtoblackdo{列举第3次取球的所有可能}if(k<>i)and(k<>j)thenbeginn:=n+1;write(n,’:’);forloop:=1to3dobegincaseloopof1:pri:=i;2:pri:=j;3:pri:=k;end;casepriof{根据pri的值输出对应字符串}red:write(‘red’);yellow:write(‘yellow’);blue:write(‘blue’);white:write(‘white’);black:write(‘black’);end;end;{for}writeln;end;{if}writeln(‘total:’,n);{输出方案总数}end.§4.2子界类型Pascal语言允许说明变量的范围，通过定义子界类型来限定数据的取值...
