《广东省汕头市金山中学2018年高中信息技术 奥林匹克信息学竞赛班进阶篇 pascal-05-集合与记录课件》由会员分享,可在线阅读,更多相关《广东省汕头市金山中学2018年高中信息技术 奥林匹克信息学竞赛班进阶篇 pascal-05-集合与记录课件(8页珍藏版)》请在金锄头文库上搜索。
1、PASCAL集合、记录,集合,集合,例如: TYPE letter = set of A Z; var ch1, ch2 : letter; 也可以直接写成: var ch1, ch2 : set of A Z;,集合,集合的表示: A, B , C , D 是四个字符的集合 1 20 表示1到20的所有整数的集合 0 是单元素集 表示空集,集合,集合的运算 赋值: ch1:= 07; ch2:=1,4,6; ch3:=2,7 交: ch4:=ch1*ch2; 并: ch4:=ch2+ch3; 差: ch4:=ch1-ch2;,比较: ch1ch2,集合,检查(in)运算: 用来检查某一元素是
2、否属于某一集合,1 in 0 4 结果为 true 5 in 结果为 false A in A Z 结果为 true,记录,type stu=record n: integer; name: strang20; age: 1220; xb: XY; yw,sx,yy,zong: real; end; var s: array 170 of stu; a : stu;,记录,for i:=1 to 70 do begin readln(si.n); readln(si.name); readln(si.age); readln(si.x); readln(si.yw,si.sx,si.yy); si.zong:=si.yw+si.sx+si.yy; end;,记录,with 语句,for i:=1 to 70 do with si do begin readln(n); readln(name); readln(age); readln(x); readln(yw,sx,yy); zong:=yw+sx+yy; end;,