高中信息技術 信息學奧賽_PASCAL語言枚舉與子界類型課件

1、p枚舉子界作業(yè)：枚舉子界作業(yè)：P135 P135 6.1 (today yesterday) 6.1 (today yesterday) 6.2 6.2 6.1 6.1 輸入今天是星期幾的序號，給今輸入今天是星期幾的序號，給今天和昨天賦成枚舉值，并輸出昨天是天和昨天賦成枚舉值，并輸出昨天是星期幾的枚舉值。星期幾的枚舉值。Program ex61(input,output); Type day=(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday); Var today,yesterday: day; number: integer;

2、Begin read(number); CASE number OF 0 : today:=Sunday; 1 : today:=Monday; 2 : today:=Tuesday; 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 :

3、writeln(Sunday); Monday : writeln(Monday); Tuesday : writeln(Tuesday); Wednesday : writeln(Wednesday); Thursday : writeln(Thursday); Friday : writeln(Friday); Saturday : writeln(Saturday) End End.6.2 6.2 輸入年、月、日，輸出它是該年輸入年、月、日，輸出它是該年的第幾天？的第幾天？PROGRAM ex62 ( input , output ) ; VAR year :1.10000; month

4、: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 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

5、( It is , s, th)END.p 標準數(shù)據(jù)類型標準數(shù)據(jù)類型實型、整型、字符型、布爾型實型、整型、字符型、布爾型 p 用戶定義類型用戶定義類型 枚舉類型、子界類型枚舉類型、子界類型 p 結構類型結構類型 數(shù)組類型、集合類型、記錄類型、文件類型數(shù)組類型、集合類型、記錄類型、文件類型 p 指針類型指針類型書本第書本第25頁頁p 數(shù)組類型格式數(shù)組類型格式: :TYPE = ARRAY = ARRAY OF OF ;VAR : : ; ; 或或 VAR :ARRAY :ARRAY OF OF ;VARVAR :ARRAY :ARRAY OF OF ;p 數(shù)組例子數(shù)組例子:Var n : ARR

6、AY 1 .10 OF real; num : ARRAY a . z OF integer;p 集合類型格式集合類型格式: :TYPE = SET OF = SET OF ;VAR : : ; ; 或或 VAR : SET OF : SET OF ;TYPE TYPE = SET OF = SET OF ;VARVAR : : ;p 集合例子集合例子:TYPE digit = SET OF 1.9;VAR od,even : digit;BEGIN od:=1,3,5,7,9; even:=2,4,6,8;p 基類型必須是有序類型?？梢允钦妥咏?、字基類型必須是有序類型?？梢允钦妥咏纭⒆址?/p>

7、型、布爾型、枚舉型。整型、實型、數(shù)組不能符型、布爾型、枚舉型。整型、實型、數(shù)組不能作為集合的基類型。作為集合的基類型。p 集合類型說明集合類型說明: :TYPE TYPE = SET OF = SET OF ;VARVAR : : ; p 賦值賦值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;p 全集全集 jan.dec p

8、空集空集 p 賦值賦值Type letterset = SET OF a . z;Var vowel,letter : letterset; Begin vowel:= a, e, i, o, u ; letter:= a . z;p 集合運算：（并、交、差）集合運算：（并、交、差）運算符運算符運算名稱運算名稱運算方法運算方法并并產(chǎn)生一個包含兩個集合元素產(chǎn)生一個包含兩個集合元素的集合的集合交交產(chǎn)生一個只包含兩個集合元產(chǎn)生一個只包含兩個集合元素素公共元素公共元素的集合的集合差差產(chǎn)生一個包含所有產(chǎn)生一個包含所有屬于第一屬于第一個個集合但集合但不屬于第二個不屬于第二個集合集合的元素的集合的元素的集合

9、p 并并 1,3,4 + 1,2,4 1,3 + 2,4 a,c,f + b,c,d,f p 交交 1,3,4 * 1,2,4 1,3 * 2,4 a,c,f * b,c,d,f p 差差 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 ap 集合關系運算集合關系運算 = =關系運算關系運算符符關系運算名關系運算名稱稱關系運算的含義關系運算的含義set1=set2相同相同檢查兩個集合所包含的元素相檢查兩個集合所包含的元素相同同set1set2不相同不相同檢查兩個集合不相同檢查兩個集合

10、不相同set1=set2包含包含set1是包集是包集檢查第一個集合中的元素是否檢查第一個集合中的元素是否包含第二個集合中的所有元素包含第二個集合中的所有元素in屬于屬于檢查集合基類型的一個元素是檢查集合基類型的一個元素是否屬于集合否屬于集合p 判斷判斷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 例例8.1 8.1 輸入一串字符，以輸入一串字符，以？結束，結束，組成元音字母集合、輔音字母集合，組成元音字母集合、輔音字母集合，然后輸出兩集合元素及其元素個數(shù)。然后輸出兩集合元素及其元素個數(shù)。（

11、思路：定義兩個集合變量（思路：定義兩個集合變量s1s1、s2s2，分別表，分別表示示元音字母集合和輔音字母集合元音字母集合和輔音字母集合，基類型是，基類型是字符的子界字符的子界a.za.z。再定義兩個整型。再定義兩個整型變量變量n1n1、n2n2，用來記錄兩集合的，用來記錄兩集合的元素個數(shù)元素個數(shù)。定義字符變量定義字符變量chch，存放讀入的字符。），存放讀入的字符。）PROGRAM sets ( input , output ) ; VAR s1,s2 : set of a . z; n1,n2:integer; ch:char; BEGIN s1:= ; s2:= ; n1:=1; n2:

12、=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 輸出元音字母集合及其個數(shù)輸出元音字母集合及其個數(shù) if ch IN s1 then begin write(ch); n1:=n1+1 end; writeln; writeln(n1=,n1); for ch:=a to z do 輸出輔音字母集合及其個數(shù)輸出輔音字母集合及其個數(shù) if ch IN s2 then begin write(ch); n2:=n2+1 e