集合类型 完整版课件

1、集合类型信息学奥赛培训资料 隆回一中信息技术组 范明问题1： 输入今天是星期几的序号，给今天和昨天赋成枚举值，并输出昨天是星期几的枚举值。Program ex61(input,output); Type day=(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday); Var today,yesterday: day; number: integer;Begin read(number); CASE number OF 0 : today:=Sunday; 1 : today:=Monday; 2 : today:=Tuesday;

2、 3 : today:=Wednesday; 4 : today:=Thursday; 5 : today:=Friday; 6 : today:=Saturday End; If today=Sunday Then yesterday:=Saturday Else yesterday:=pred(today); write( yesterday is ); CASE yesterday OF Sunday : writeln(Sunday); Monday : writeln(Monday); Tuesday : writeln(Tuesday); Wednesday : writeln(W

3、ednesday); Thursday : writeln(Thursday); Friday : writeln(Friday); Saturday : writeln(Saturday) End End.问题2 输入年、月、日，输出它是该年的第几天？PROGRAM ex62 ( input , output ) ; VAR year :1.10000; month:1.12; day:1.31; days:28.31; s:1.366; i:integer; BEGIN read( year , month , day ) ; s:=day; for i:= 1 to month-1 do

4、 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; s:=s+days end; writeln( It is , s, th)END. 标准数据类型实型、整型、字符型、布尔型 用户定义类型 枚举类型、子界类型 结构类型 数组类型、集合类型、记录类型、文件类型 指针类型 数组类型格式:TYPE = ARRAY OF ;VAR

5、 : ; 或 VAR :ARRAY OF ;VAR :ARRAY OF ; 数组例子:Var n : ARRAY 1 .10 OF real; num : ARRAY a . z OF integer; 集合类型格式:TYPE = SET OF ;VAR : ; 或 VAR : SET OF ;TYPE = SET OF ;VAR : ; 集合例子:TYPE digit = SET OF 1.9;VAR od,even : digit;BEGIN od:=1,3,5,7,9; even:=2,4,6,8; 基类型必须是有序类型。可以是整型子界、字符型、布尔型、枚举型。整型、实型、数组不能作为集

6、合的基类型。 集合类型说明:TYPE = SET OF ;VAR : ; 赋值Type month=(jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec); monthset = SET OF month;Var winter,summer : monthset; Begin winter:=dec,jan,feb; summer:=jun.aug; 全集 jan.dec 空集 赋值Type letterset = SET OF a . z;Var vowel,letter : letterset; Begin vowel:= a, e, i, o,

7、 u ; letter:= a . z; 集合运算：（并、交、差）运算符运算名称运算方法并产生一个包含两个集合元素的集合交产生一个只包含两个集合元素公共元素的集合差产生一个包含所有属于第一个集合但不属于第二个集合的元素的集合 并 1,3,4 + 1,2,4 1,3 + 2,4 a,c,f + b,c,d,f 交 1,3,4 * 1,2,4 1,3 * 2,4 a,c,f * b,c,d,f 差 1,3,4 - 1,2,4 1,3 - 2,4 a,c,f - b,c,d,f 1,2,3,4 1,2,3,4 a,b,c,d,f 1,4 c,f 3 1,3 a 集合关系运算 = =关系运算符关系运算

8、名称关系运算的含义set1=set2相同检查两个集合所包含的元素相同set1set2不相同检查两个集合不相同set1=set2包含set1是包集检查第一个集合中的元素是否包含第二个集合中的所有元素in属于检查集合基类型的一个元素是否属于集合 判断TRUE / FALSE a,b,c = a,b,c a,b,c c,b,a = a,b,c 2,3 = 2,3 1,2,3 = 1 in 1,2,3 例1 输入一串字符，以？结束，组成元音字母集合、辅音字母集合，然后输出两集合元素及其元素个数。（思路：定义两个集合变量s1、s2，分别表示元音字母集合和辅音字母集合，基类型是字符的子界a.z。再定义两个

9、整型变量n1、n2，用来记录两集合的元素个数。定义字符变量ch，存放读入的字符。）PROGRAM sets ( input , output ) ; VAR s1,s2 : set of a . z; n1,n2:integer; ch:char; BEGIN s1:= ; s2:= ; n1:=1; n2:=0; 初始化 read(ch); while ch ? do begin if ch IN a . z then if ch IN a, e, i, o, u then s1:=s1+ch else s2:=s2+ch; read(ch) end; 形成元音与辅音字母集合 for ch:=a to z do 输出元音字母集合及其个数 if ch IN s1 then begin write(ch); n1:=n1+1 end; writeln; writeln(n1=,n1); for ch:=a to z do 输出辅音字母集合及其个数 if