枚举子界集合(pascal程序语言基础).ppt

,枚举、子界、集合,pascal语言中的数据类型,目前为止我们所用到的数据类型包括:,整型（integerlongint）实型（realdouble）布尔型（boolean）字符型（char）,以上数据类型是pascal规定的标准数据类型，只要用相应的关键字，pascal编译系统就能识别并按这些类型来处理,pascal语言中的数据类型,除以上标准数据类型之外，pascal还允许用户自定义数据类型,变量与类型：,vari:integer;r:real;,其表示的类型含义为：,确定一个值域，即取值范围（i变量为整型，表示i只能在整型数规定的-3276832767这个范围内取值，超过此范围就会出错确定数据的存储方式（整型数据和实型数据在计算机中的存储方式是不同的)规定的相应运算种类（例如实型不能进行DIV，MOD运算）,算法+数据结构=程序,即：不同的数据类型所使用的操作方法（算法）是不同的。,因此，针对具体的问题选择相应的数据类型是程序设计的关键,枚举类型,为什么要使用枚举类型：,如性别，月份，颜色，星期几等一系列非数值问题时，我们应当怎样处理？,例如：使变量sex为整型变量,ifsex=1thenwriteln(heisaman)elsewriteln(sheisawomen);,缺点：不直观，可读性差,ifsex=manthenwriteln(heisaman)elsewriteln(sheisawomen);,如果写成：,事先考虑到某一变量尽可能取的值，尽量用自然语言中含义清楚的单词来表示它的每一个值，这种方法称作枚举方法，这种方法定义的类型称为枚举类型。,枚举类型,枚举类型的定义：,type枚举类型标识符=（标识符1，标识符2）；,typecolor=(red,yellow,blue,white,black);xingbie=(man,women);,例如：定义颜色的枚举类型和性别的枚举类型,枚举类型,枚举类型的应用举例：,programex1;typesextype=(man,woman);varsex:sextype;beginsex:=women;ifsex=manthenwriteln(heisaman)elsewriteln(heisawomen);end.,programex2;typecolortype=(red,yellow,blue);varcolor:colortype;begincolor=red;casecolorofred:writeln(thecolorisred);yellow:writeln(thecolorisyellow);blue:writeln(thecolorisblue);end;end.,枚举类型,枚举类型的数据性质：枚举元素只能是标识符，而不能是数字常量和字符常量，例如下面的定义是错误的,typecolortpye=(red,yellow,blue);numtype=(1,2,3,4,5);,类型标识符和枚举元素不得使用pascal中的保留字和关键字，否则编译时将出错误,同一个枚举元素不能出现在两个或两个以上的枚举类型定义中,typecolor1=(red,yellow,blue);color2=(red,black,white);是不允许的，因为red同属于了两个枚举类型。,不要把作为枚举元素的标识符视为变量名，它是不能被赋值的，下面的赋值是错误的,Red=redwoman=0,枚举类型,枚举类型属于顺序类型。根据定义类型时个枚举元素的排列顺序确定它们的序号。（前面的序号小，从0开始）例如：,typecolortype=(red,yellow,blue,white,black);则ord(red)=0succ(red)=yellowpred(black)=white,枚举类型,枚举型数据只能进行关系运算（=,=）不能进行算术运算（+,-,*）和逻辑运算（and,or),枚举变量的值只能用赋值语句来获得，不能对枚举变量进行读写。如下语句都是不合法的：,typecolortype=(red,yellow,blue,white,black);Varcolor:colortype;Beginread(color);或write(color);,总之：枚举类型的数据不能用read和write语句进行读写,枚举变量可以作为循环变量。枚举元素可以作为循环的初值和终值。,如：forcolor:=redtoblackdo共执行5次循环（color=red-yellow-blue-white-black),枚举类型,教材例6-1的分析,如：forcolor:=redtoblackdo共执行5次循环（color=red-yellow-blue-white-black),枚举类型的应用,Fori:=appletoorangedoforj:=succ(i)tobananadofork:=succ(j)dopineappledo可改成：Fori:=appletopineappledoforj:=appletopineappledoifijthenfork:=appletopineappledoif(ik)and(jk)thenbegin,枚举类型的应用例6-1解法2,constft:array1.4ofstring=(苹果,橙子,香蕉,菠萝);vari,j,k,l:0.1;beginfori:=0to1doforj:=0to1dofork:=0to1doforl:=0to1doifi+j+k+l=3thenbeginifi=1thenwrite(ft1);ifj=1thenwrite(ft2);ifk=1thenwrite(ft3);ifl=1thenwrite(ft4);writeln;end;end.,课堂练习,取球问题：求从红、黄、蓝、白、黑五种颜色的球中，取三种颜色的球的可能的取法，用red、yellow、blue、white、black描述三种上颜色的所有可能的取法。输入格式：无输出格式：输出每种取法的序号(占4个字符位，左对齐)和三种颜色(每种颜色占10个字符位，左对齐)输出样例：RedyellowblueRedyellowwhite,子界类型,实际问题:,一年中有多少个月?每一个月最多有多少天?一个班最多有多少个人?,integer类型所表示的范围是多少?,如果我们能在程序中对所有的变量的值域(取值范围)作具体规定的话,就便于检查出那些不合法的数据,例如一月中的日期只能是1-31之间的一个数值,由于误操作输入了32,pascal就能指出这个错误,不需要人工的干预.,子界类型,子界类型:规定的值域的上界和下界及其类型的一种数据类型,子界类型的定义:,Typedays=1.31;Varsomeday:days,定义了一个days类型的变量somedaysomeday变量值的数据类型（基类型）为整型someday的值只能在131范围,子界类型,子界类型定义说明：,上界和下界必须是顺序类型，且为同一顺序类型。也就是说整型，字符型，布尔型，枚举型数据都可以作为上、下界。并且上界序号必须大于下界序号。,Typeage=0.5.100letter1=0.zletter2=a.zletter3=z.a,以上定义的子界类型中哪些正确、哪些错误？为什么？,子界类型的上、下界确定了子界类型的基类型。,由于1和31都是属整型数据，因此days类型的基类型为整型；someday变量的值为整型其值范围在131之间,Typedays=1.31;Varsomeday:days,子界类型,如果子界类型的基类型为枚举型，则应在类型中先定义枚举类型,typeweek=(mon,tue,wed,thu,fri,sat,sun);studyday=mon.fri;varday1:studyday;,day1变量的值只能取mon,tue,wed,thu,fri之一,子界类型,子界类型的作用：,在程序设计中对数据“界”的检查是很重要的一项工作而又常常被人忽略。定义子界类型后，就可以把界的检查工作交给编译器完成，不需要人工进行。节省内存空间，增强程序的可读性。,子界类型,子界类型的运算规则：,凡可以使用子界类型的基类型数据之处，均可以使用子界类型的数据。,typer=1.10;Varradius:r;,问sqr(radius)合法吗？,对基类型的运算规则同样适用于该类型的子界类型。,Typeperson=1.100;Vartotal:person；问：totaldiv100totalmod100合法吗？,基类型相同的不同子界类型数据，可以出现在同一个表达式内，即混合运算,typea=1.100;b=1.1000;c=1.500;varx:a;y:b;z:c;t:integer;beginread(x,y,z);t:=x+y+z；writeln(t=,t);end.,输入：50100150,问：将红色标出部分改为z:=x+y+z;合法吗？,子界类型,结论：在上例中当然也可以将表达式的值赋给一个子界类型变量，因为表达式中的几个子界类型的变量的基类型都是整型，但是要注意：运算结果不能超出它在类型说明中定义的范围,上例中如果将红色标出部分改为x:=x+y+z;合法吗？,X为50，y为100，z为150，将运算结果x+y+z的值300赋给x，这超出了x的取值范围（0.100），就会出错。,子界类型,programcas;varc:char;beginreadln(c);casecof0.9:writeln(digits);A.Z:writeln(UPPER-CASELETTERS);a.z:writeln(lower-caseletters);elsewriteln(specialcharactors);end;end.,可以利用子界类型作为情况语句标号,对数字，大小写字母和特殊字符进行判别的程序,集合,1.集合的定义2.集合的表示3.集合的运算,集合(数学),集合的概念：某些具有共性,又相互区别的对象汇集在一起所构成的整体,020之间的所有素数；共性：小于20的素数，相互区别：各元素有不同的值26个小写英文字母；（共性：小写英文字母，相互区别：各自的写法和读法都不同。,集合的表示方法（数学）,1.枚举法：将集合中的所有元素列举出来,对于上例1可写成：,元素,2，3，5，7，11，13，17，19,集合,集合的特点：1.同一性；2.无序性；3.唯一性,集合的特征：,无序性：,1，3，5，7=1，5，3，7,唯一性：,1，3，5，7=1，5，3，3，7,元素与集合的关系,2.不属于,52，3，5，7，11，13，17，19,1.属于,一个元素可以属于和不属于某一个集合，分别用和表示,52，4，6，8，10，12，14，16,集合和集合间的关系,1.相等关系,两个集合的成员完全相同时，称这两个集合相等。,2，3，5，7=2，3，5，7,2，3，5，7=2，5，3，7,2，3，5，7=2，5，3，3，7,集合和集合间的关系,集A的所有成员都是集B的所有成员时，称B蕴含A，或称A是B的子集合,2.蕴涵关系,2，32，3，5，7,2，3，5，72，3，5，7,2，3，92，3，5，7,问,集合和集合间的关系,3.空集：,空集是任何集合的子集,4.幂集：一个集合的所有子集所组成的集合称为此集合的幂集。,1，2，3的幂集是：,，1，2，3，1，2，1，3，2，3，1，2，3,集合的运算,1.交运算,AB,1，2，32，3，5，72，3,集A和集B共有的成员所组成的集合,集合的运算,1.并运算,AB,2，3，55，72，3，5，7,集A和集B的所有成员并起来（重复的只算一个）所组成的一个新集合,集合的运算,1.差运算,A-B,2，3，5-5，72，3,集A的成员去掉集B中也包含的成员所组成的一个新集合；（相当于A-（AB）,A,B,1集合的定义：,基类型：表示集合中元素的类型，可以是整数类型的某一子界，字符型，布尔型，枚举型。注意：pascal规定一个集合里的元素必须是同一数据类型。,Pascal定义集合类型的一般形式:,=setof基类型,2、在pascal中怎么表示和使用集合,typeint1=0.255;weekday=(sun,mon,tue,wed,thu,fri,sat,sun);weekset=setofweekday;intset=setofint1varwvar:weekset;ivar:intset;或写成varwvar:setofweekday;ivar:setofint1;,规则：pascal规定一个集合的元素个数不能超过256个；（也就是说基类型所表示的值（整数）的范围不能超过256）2基类型的序数值必须在0255的范围内。,思考typeint0=setofinteger;int1=setof-20.100;int2=setof50.300;int3=1，sqrt(4)，sqrt(4)+1,sqr(4),在pascal中使用集合的一些规则：,1表示集合的符号是。例如：2，32集合的值放在一对中，各元素用“，”隔开。3集合内的值与内元素出现的次序无关。2，3=3，24集合中的同一元素的重复出现对集合的值没有影响。2，2，3=2，35“”用来表示空集。6集合中，如果元素的值是连续的，则可用“.”来表示。1，2，3，4，5，7，8，9=1.5，7.97每个元素可以用基类型的表达式来表示。1，succ(4)，ord(a),pred(4),集合的运算的数学符号和pascal符号对照表,3、集合类型的运算规则,集合变量的读入：,只能通过赋值语句给集合变量赋值，不能用read语句给集合变量赋值。(跟枚举类型变量一样）,color:=；color2:=red,black;,集合并，交，差运算：,，,A:=1，3，4；B:=1，2，4;A+B=?A-B=?A*B=?,集合的关系运算：,=，=，,1，3，5=1，51，3，5=1，5，3，7=1，5，3,集合元素的测试：（in）,判断一个元素是否在某个集合当中。,1in1，5，3，77in1，5，3,集合的输出：不能直接用write语句对集合变量进行输出,4、集合例题,1.若a是a,c,f,u，b是c,d,e,f,g,h，c是f,m,p,计算下列各语句中x的值。(1)x:=a+b(2)x:=(c-a)*b(3)x:=a+a*a-a,2.若a是k,l,m,n，b是l,m,n,k，c是i.p，d是，e是k，计算下列布尔表达式的值(判断哪些是错的）。c=b(4)a=b(5)bc(6)Iinc,1.输入一段句子并以“”结尾，统计元音字母和辅音字母出现的次数。Input:HelloKitty.Output:yuan=3fu=7,2.用集合筛选法1求自然数M与N之间（小于256）的素数。程序文件：(gray6e1.pas)Input:(gray6e1.in)1020Output:(gray6e1.out)11131719,编程练习,3.任意给出一个正整数N，找出一个正整数M，使得N*M的值的数字由0、1、C（C=9）组成，且这些数字至少出现一次。编写程序在整数的范围内找出满足条件的最小M。若没有信息，则输出NOFOUND。程序文件：(test.pas)Input:(test.in)C=3N=65C=3N=10C=8N=125Output:(test.out)65*48=321010*123=1230NOFOUND,