集合類型 完整版課件

1、集合類型信息學(xué)奧賽培訓(xùn)資料 隆回一中信息技術(shù)組 范明問(wèn)題1： 輸入今天是星期幾的序號(hào)，給今天和昨天賦成枚舉值，并輸出昨天是星期幾的枚舉值。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.問(wèn)題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. 標(biāo)準(zhǔn)數(shù)據(jù)類型實(shí)型、整型、字符型、布爾型 用戶定義類型 枚舉類型、子界類型 結(jié)構(gòu)類型 數(shù)組類型、集合類型、記錄類型、文件類型 指針類型 數(shù)組類型格式:TYPE = ARRAY OF ;VAR

5、 : ; 或 VAR :ARRAY OF ;VAR :ARRAY OF ; 數(shù)組例子: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; 基類型必須是有序類型?？梢允钦妥咏?、字符型、布爾型、枚舉型。整型、實(shí)型、數(shù)組不能作為集

6、合的基類型。 集合類型說(shuō)明: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; 集合運(yùn)算：（并、交、差）運(yùn)算符運(yùn)算名稱運(yùn)算方法并產(chǎn)生一個(gè)包含兩個(gè)集合元素的集合交產(chǎn)生一個(gè)只包含兩個(gè)集合元素公共元素的集合差產(chǎn)生一個(gè)包含所有屬于第一個(gè)集合但不屬于第二個(gè)集合的元素的集合 并 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 集合關(guān)系運(yùn)算 = =關(guān)系運(yùn)算符關(guān)系運(yùn)算

8、名稱關(guān)系運(yùn)算的含義set1=set2相同檢查兩個(gè)集合所包含的元素相同set1set2不相同檢查兩個(gè)集合不相同set1=set2包含set1是包集檢查第一個(gè)集合中的元素是否包含第二個(gè)集合中的所有元素in屬于檢查集合基類型的一個(gè)元素是否屬于集合 判斷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 輸入一串字符，以？結(jié)束，組成元音字母集合、輔音字母集合，然后輸出兩集合元素及其元素個(gè)數(shù)。（思路：定義兩個(gè)集合變量s1、s2，分別表示元音字母集合和輔音字母集合，基類型是字符的子界a.z。再定義兩個(gè)

9、整型變量n1、n2，用來(lái)記錄兩集合的元素個(gè)數(shù)。定義字符變量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 輸出元音字母集合及其個(gè)數(shù) if ch IN s1 then begin write(ch); n1:=n1+1 end; writeln; writeln(n1=,n1); for ch:=a to z do 輸出輔音字母集合及其個(gè)數(shù) if