一：枚举类型
  枚举就是把程序要用的值全部罗列出来，定义如下：
  type
day=(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday);
month=(jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec);
  var
payday,firstday,today:day;
yearend,curmonth:month;
salary:real;
  用type说明类型，然后进行变量定义；枚举类型的一般定义如下：
  type
   =(,,…);
  var
：；
注意：①type写在常量定义和变量定义之间；
②必须将枚举值全部写在等号后面的括号中；
③每个枚举值用;号分开；
④枚举值只能是标识符；
⑤每个枚举值只能出现在一个枚举类型定义中，并且只能在该定义中出现一次。
  
⑥枚举值是有序的。
⑦枚举值不能直接输出。
  例如：
type
  t1=(‘a’,’b’,’c’,’d’);
  t2=(1,2,3,4,5);
  t3=(sun,mon,tue,wed,sun);
  t4=(wed,thu,fri,sat);
都是错误的。
  
二：枚举运算
  ⑴赋值运算，例如：
  yearend:=dec;  firstday:=mondy;payday:=Friday;today:=payday
  ⑵ord,pred,succ运算
   ord取序号  pred取前导  succ取后继
   ord(fan)=0  pred(firstday)=Sunday  succ(firstday)=Tuesday
三：程序实例
   输入今天是星期几的序号，给今天和明天赋枚举值，并输出明天是星期几。
  
[分析]：一星期只有七天，可以用枚举定义：
type
  day=(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday);
var
  today,tomorrow:day;
程序：
program todaytomorrow(input,output);
type
  day=(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday);
var
  today,tomorrow:day;
  num:integer;
begin
  read(number);
  case number of
   0:today:=Sunday;
   1:today:=Monday;
   2:today:=Tuesday;
   3:today:=Wednesday;
   4:today:=Thursday;
   5:today:=Friday;
   6:today:=Saturday;
  end;
if today=Saturday then tomorrow:=Sunday
                  else tomorrow:=succ(today);
write(‘tomorrow is’);
case tomorrow of 
  Sunday:writeln(‘Sunday’);
  Monday:writeln(‘Monday’);
  Tuesday:writeln(‘Tuesday’);
  Wednesday:writeln(‘Wednesday’);
  Thursday:writeln(‘Thursday’);
  Friday:weiteln(‘Friday’);
  Saturday:writeln(‘Saturday’);
End
End。
  
 
 。