《枚举和子界类型》PPT课件.ppt

《《枚举和子界类型》PPT课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第六章枚举、子界河师大附中信息技术教研组以前章节简单地介绍了Pascal语言的数据类型，并较详细地讨论了整数类型、实数类型、字符类型和布尔类型等四种标准的数据类型。这些类型对应的常数、变量及函数的取值范围和它们所能执行的运算是由Pascal语言本身规定的（即程序员不必在程序中加以说明），因此称为标准类型。由于实际问题中出现的数据形式是多种多样的，若只局限于这四种标准类型来编写程序，将会限制语言的应用范围。从本章开始，将讨论其余的数据类型。这些类型的数据，可以完全由用户自已依据Pascal语言的语法规则来确定

2、，即进行类型定义。通过类型的定义，进一步确定它们各自的特性。本章仅仅介绍两种用户自定义型数据类型即枚举类型和子界类型。它们都属于简单数据类型。它们所包含的数据通常被称为这种类型的元素。第一节枚举通过预定义(type)列出所有值的标识符来定义一个有序集合，这些值的次序与枚举类型说明中的标识符的次序是一致的。枚举类型的一般形式：type<类型标识符>=(标识符表);其中括号内的标识符表是一串由逗号隔开的标识符，它列举了枚举类型所能取值的范围。例如：typecolors=(red,green,blue);days

3、=(sunday，monday，tuesday，wednesday，thursday，friday，saturday)；定义枚举类型时，需要注意的是：1．枚举元素只能是标识符，而不能是数值常量或字符常量。例如下面的定义是错误的。typedays=('sun'，'mon'，'tue'，'wed'，'thu'，'fri'，'sat')；number=(1，2，3，4，5)；2．枚举元素是标识符，不要把作为枚举元素的标识符视作变量名，它不能被赋值。3．同一个枚举元素不能出现在两个或两个以上的枚举类型定义中。如下面

4、的定义是错误的：typedaytype1=(sunday，monday，tuesday)；daytype2=(wednesday，tuesday，friday，saturday，sunday)；4．枚举类型属于顺序类型。根据定义类型时各枚举元素的排列顺序确定它们的序号，序号从0开始。例如在已定义的枚举类型days中，ord(sunday)=0、succ(sunday)=Monday、pred(monday)=sunday。枚举类型中的第一个元素无前趋，最末一个元素无后继，如pred(sunday)或succ

5、(saturday)是错误的。由于枚举类型常量的有序性，常常用枚举类型变量作为for语句的控制变量。假如,已有变量说明语句varday：days，则能使用forday：=sundaytosaturdaydo语句。case语句的表达式类型也经常使用枚举类型，而分情况常量为枚举类型的标识符。例如：casedayofsunday：write('SUNDAY')；monday：write('MONDAY')；tuesday：write('TUESDAY')；wednesday：write('WEDNESDAY')；

6、thursday：write('THURSDAY')；friday：write('FRIDAY')；saturday：write('SATURDAY')；end；{case}由于标准Pascal不允许直接读写枚举值，所以枚举值的输出常用case语句构造。例6-1一家水果店出售四种水果，每公斤价格是苹果1.5元，桔子1.40元，香蕉1.48元，波萝1.08元。编一个程序，使售货员只要在键盘上打入货品的代码及重量，计算机将显示货品名、单价、重量及总价。programexample7_1;constpriappl

7、e=1.50;priorange=1.40;pribanana=1.48;pripineapple=1.08;typefruittype=(apple,orange,banana,pineapple);varcode:integer;weight:real;fruit:fruittype;begin{main}repeatwriteln('1.apple;2.orange;3.banana,pineapple');writeln('inputcodeandweight:');readln(code,weig

8、ht);until(weight>0)and((code=1)or(code=2)or(code=3)or(code=4));casecodeof1:fruit:=apple;2:fruit:=orange;3:fruit:=banana;4:fruit:=pineapple;end;{case}casefruitofapple:writeln('apple',priapple:6:2,'*',weight:6: