pascal枚举定义

……的格式是什么？

有两种方式：
1、在type里定义
type
x=('a','b','c','d');
其中x是类型名，括号里的是枚举量，可以是任意数字或字符；
2、直接在var里定义
var
a:('a','b','c','d');
其中a是变量名，括号里的是枚举量，可以是任意数字或字符.

a:1..3;

type

随着计算机的不断普及，程序不仅只用于数值计算，还更广泛地用于处理非数值的数据。例如，性别、月份、星期几、颜色、单位名、学历、职业等，都不是数值数据。 在其它程序设计语言中，一般用一个数值来代表某一状态，这种处理方法不直观，易读性差。如果能在程序中用自然语言中有相应含义的单词来代表某一状态，则程序就很容易阅读和理解。也就是说，事先考虑到某一变量可能取的值，尽量用自然语言中含义清楚的单词来表示它的每一个值，这种方法称为枚举方法，用这种方法定义的类型称枚举类型。 枚举类型是一种很有实用价值的数据类型，它是pascal一项重要创新。 （一）枚举类型的定义 枚举类型是一种自定义类型，要使用枚举类型当然也要先说明枚举类型。 枚举类型的一般格式: (标识符1,标识符2,…,标识符n) 说明：①括号中的每一个标识符都称为枚举元素或枚举常量。 ②定义枚举类型时列出的所有枚举元素构成了这种枚举类型的值域（取值范围），也就是说，该类型的变量所有可能的取值都列出了。 例如，下列类型定义是合法的： 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); ty=(for,do,while); （二）枚举类型变量 定义了枚举类型，就可以把某些变量说明成该类型。如： var holiday,workday:day; incolor:colors; 也可以把变量的说明与类型的定义合并在一起,如: var holiday,workday:(sun,mon,tue,wed,thu,fri,sat); incolor:(red,yellow,blue,white,black,green); （三）枚举类型的性质 ⒈枚举类型属于顺序类型 根据定义类型时各枚举元素的排列顺序确定它们的序号，第一个枚举元素的序号为0。例如：设有定义： type days=(sun,mon,tue,wed,thu,fri,sat); 则: ord(sun)=0,ord(mon)=1,ord(sat)=6;succ(sun)=mon,succ(mon)=tue, succ(fri)=sat;pred(mon)=sun,pred(tue)=mon,pred(sat)=fri。 应注意的是：枚举类型中的第一个元素无前趋，最后一个元素无后继。 ⒉对枚举类型只能进行赋值运算和关系运算 一旦定义了枚举类型及这种类型的变量，则在语句部分只能对枚举类型变量赋值，或进行关系运算，不能进行算术运算和逻辑运算。 在枚举元素比较时，实际上是对其序号的比较。当然，赋值或比较时，应注意类型一致。 例如，设程序有如下说明： 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'); weekday<>sun 而下面比较或语句是不合法的: mon:=weekday; mon:=1; if weekday=sun or sat then write('rest'); sun>red weekday<>color ⒊枚举变量的值只能用赋值语句来获得 也就是说，不能用read(或readln)读一个枚举型的值。同样，也不能用write(或writeln)输出一个枚举型的值。如write(red)是非法的，会发生编译错误。千万不要误认为，该语句的结果是输出"red"三个字符。 但对枚举数据的输入与输出可通过间接方式进行。输入时，一般可输入一个代码，通过程序进行转换，输出时，也只是打印出与枚举元素相对应的字符串。这在后面的例题中将有使用示例。 ⒋同一个枚举元素不能出现在两个或两个以上的枚举类型定义中。 如: type color1=(red,yellow,white); color2=(blue,red,black); 是不允许的，因为red属于两个枚举类型。 （四）、枚举类型应用举例 例1 一周七天用sun,mon,tue,wed,thu,fri,sat表示， 要求利用枚举类型编程：当输入星期几的数字,能输出它的后一天是星期几(也用英文表示)。 源程序如下： program ex6_1; type week=(sun,mon,tue,wed,thu,fri,sat); var i : integer; day,sucday : week; begin write('What date is it');readln(i); case i of {根据输入i转换成枚举型} 1:day:=mon; 2:day:=tue; 3:day:=wed; 4:day:=thu; 5:day:=fri; 6:day:=sat; 7:day:=sun; end; {计算明天sucday} if (day=sat) then sucday:=sun else sucday:=succ(day); {输出明天是星期几} write('The next day is '); case sucday of sun:writeln('sunday'); mon:writeln('monday'); tue:writeln('tuesday'); wed:writeln('wednesay'); thu:writeln('thursday'); fri:writeln('friday'); sat:writeln('saturday'); end; end. 评注：程序中变量day、sucday分别表示今天、明天

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息