[第12课]枚举和子界型要素.ppt

NOI辅导之 枚举和子界型 复习：三种循环语句的相同点与不同点 枚举型 （1）格式： type 枚举类型标识符=（标识符1，标识符2，…标识符n); (2) 特点： 枚举元素只能是标识符，不能是数值常量或字符常量 同一枚举元素不能出现在两个及以上枚举型定义中 枚举类型有顺序，序列号从0开始 ord(Monday)=0, succ(Friday)=Saturday, pred(Friday)=Thursday 枚举类型只能进行赋值和关系运算 枚举变量不允许用read或readln语句进行赋值，也不能被write或writeln输出。 例T6_4: 有红、橙、黄、绿、蓝5种顔色的小旗，每次取出3种不同顔色表示不同的信号，输出所有信号的方案及方案总数。 分析：枚举值的输入，一般先输入序号，通过CASE语句将枚举值相应地赋值给枚举变量；输出时，通过CASE语句判断枚举类型变量的值，输出相应的字符串。 子界类型 type 子界类型标识符=常量1..常量2 注释： 常量2必须大于常量1； 可以是整型、字符型、布尔型、枚举型等顺序型的两个常量，且必须是同一类型的数据。 子界型常量上下界不可以是实数型。 2、类型说明语句： 定义形式： type 类型名=数据类型； 例如 type index = 1..100; ｛子界类型｝ number=(one,two,three,four); ｛枚举类型｝ 类型index是用户自定义的子界类型，该类型的变量可取从1到100区间的任一整数值。类型number 是用户的枚举类型，该类型的变量仅可取one，two，three，four四个标识符之一。 枚举类型只能是标识符，不能是数值或字符常数。 例以下定义是错误的： type days=(‘sun’,’mon’,’tue’,’wed’,’thu’,’fri’,’sat’) month=(1,2,3,4,5,6,7,8,9,10,11,12) 类型定义：type ren=‘A’..’F’; Program T6_5; Var m,n:’A’..’F’; s: integer; begin s:=0; for m:=‘A’ to ‘E’ do for n:=succ(m) to ‘F’ do begin s:=s+1; writeln (m,’------’,n); end; writeln (‘zhongshu=‘,s); end. 练习：[问题描述]：输入年、月、日，输出它是该年的第几天？v[输入输出示例]：§输入：1999 3 19§输出：78 programxingqiji(input,output); var year:1..10000; month:1..12; days:1..31; t0,i:integer; begin read(year,month,days); t0:=days; for i:=1 to month-1 do ?? begin?? case i of 1,3,5,7,8,10,12:days:=31; 4,6,9,11:days:=30; 2 :if(year mod 4 =0) and (year mod 1000) or (year mod 400=0) then days:=29 else days:=28 ； end; t0:=t0+days; end; write(t0) end. 一家水果店出售4种水果，每千克价格分别是：苹果3.6元，桔子1.2元，香蕉2.2元，菠萝1.5元；编写一个程序，使得售货员从键盘上打入货品的代码和重量，计算机将显示货品的名称、单价、重量和总价。 * * 多语句时，不需用BEGIN和END 多语句时，需用BEGIN和END 多语句时，需用BEGIN和END 循环体 不确定，由循环体后的布尔表达式决定，当值为“真”时结束循环。 至少有一次循环 不确定，由循环体前的布尔表达式决定，当值为“假”时，结束循环。 可能一次循环也没有 确定，由初值和终值决定 循环次数 无循环变量 布尔表达式 赋值 循环变量 REPEAT 循环体 UNTIL 布尔表达式