OI爱好者（OIFans.cn）

OI爱好者（OIFans.cn）
www.oifans.cn

    子界类型是由整型、字符型、枚举型、布尔型的两个常量指定该类型的值域区间。子界类型的形式：
      常量．．常量
    两个常量必须是同一种顺序类型。例如：a．．b，要求a<=b

  例如：
    type a=1..3;
    b='a'..'d';

    一个子界类型继承它的常量类型的运算符和标准函数，常量类型相容的不同子界类型可以混合运算，可以赋值。可以将子界类型的定义和变量的定义结合在一起。例如：var a:1．．9
  例　按月、日、年顺序读入一日期，输出该日期是这一年中的第几天。
  program date;
　　var year:0..2010;
　　　　month,i:1..12;
　　　　day:1..31;
　　　　dayth:integer;
　begin
　　read(month,day,year);
　　dyath:=0;
　　for i:=1 to month-1 do
　　　case i of
　　　　1,3,5,7,8,10,12:dayth:=dayth+31;
　　 2:if ((year mod 4=0)and(year mod 100<>0)or(year mod 400 =0)
　　　　　then dayth:=dayth+29
　　　　　else dayth=:=dayth+28;
　　　　4,6,9,11:dayth:=dayth+30;
　　　end;
　　dayth:=dayth+day;
　　writeln(dayth)
　end.