《廣東省汕頭市金山中學(xué)高中信息技術(shù) 奧林匹克信息學(xué)競(jìng)賽班進(jìn)階篇 pascal05集合與記錄課件》由會(huì)員分享，可在線閱讀，更多相關(guān)《廣東省汕頭市金山中學(xué)高中信息技術(shù) 奧林匹克信息學(xué)競(jìng)賽班進(jìn)階篇 pascal05集合與記錄課件（8頁(yè)珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、PASCAL集合、記錄集合集合 集合集合例如例如： TYPE letter = set of A. Z;var ch1, ch2 : letter;也可以直接寫(xiě)成： var ch1, ch2 : set of A. Z; 集合 集合的表示：集合的表示： A, B , C , D 是四個(gè)字符的集合是四個(gè)字符的集合 1 . 20 表示表示1到到20的所有整數(shù)的集合的所有整數(shù)的集合 0 是單元素集是單元素集 表示空集表示空集 集合 集合的運(yùn)算集合的運(yùn)算賦值：賦值： ch1:= 0.7; ch2:=1,4,6; ch3:=2,7 交：交： ch4:=ch1*ch2; 并：并： ch4:=ch2+ch3

2、; 差：差： ch4:=ch1-ch2;比較：比較： ch1ch2 集合 檢查（檢查（in）運(yùn)算：）運(yùn)算： 用來(lái)檢查某一元素是否屬于某一用來(lái)檢查某一元素是否屬于某一集合集合 1 in 0 . 4 結(jié)果為結(jié)果為 true 5 in 結(jié)果為結(jié)果為 false A in A .Z 結(jié)果為結(jié)果為 true 記錄type stu=record n: integer; name: strang20; age: 12.20; xb: X.Y; yw,sx,yy,zong: real; end;var s: array 1.70 of stu; a : stu;學(xué)號(hào)學(xué)號(hào)姓名姓名年齡年齡性別性別語(yǔ)文語(yǔ)文數(shù)學(xué)數(shù)學(xué)

3、英語(yǔ)英語(yǔ)總分總分記錄 for i:=1 to 70 do begin for i:=1 to 70 do begin readln(si.nreadln(si.n);); readln(si.namereadln(si.name);); readln(si.agereadln(si.age);); readln(si.xreadln(si.x);); readln(si.yw,si.sx,si.yreadln(si.yw,si.sx,si.yy y);); si.zongsi.zong:=:=si.yw+si.sx+ssi.yw+si.sx+si.yyi.yy; ;end;end;記錄 with 語(yǔ)句語(yǔ)句 for i:=1 to 70 do for i:=1 to 70 do with with sisi do begin do begin readln(nreadln(n);); readln(namereadln(name);); readln(agereadln(age);); readln(xreadln(x);); readln(yw,sx,yyreadln(yw,sx,yy);); zongzong:=:=yw+sx+yyyw+sx+yy; ; end; end;