奥赛信息学竞赛班进阶篇pascal-05集合与记录ppt课件.ppt

《奥赛信息学竞赛班进阶篇pascal-05集合与记录ppt课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、PASCAL——集合、记录集合集合例如：TYPEletter=setof‘A’..‘Z’;varch1,ch2:letter;也可以直接写成：varch1,ch2:setof‘A’..‘Z’;集合集合的表示：[‘A’,‘B’,‘C’,‘D’]是四个字符的集合[1..20]表示1到20的所有整数的集合[‘0’]是单元素集[]表示空集集合集合的运算赋值：ch1:=[0..7];ch2:=[1,4,6];ch3:=[2,7]交：ch4:=ch1*ch2;并：ch4:=ch2+ch3;差：ch4:=ch1-ch2;比较：ch

2、1>ch2集合检查（in）运算：用来检查某一元素是否属于某一集合1in[0..4]结果为true5in[]结果为false‘A’in[‘A’..‘Z’]结果为true记录typestu=recordn:integer;name:strang[20];age:12..20;xb:‘X’..’Y’;yw,sx,yy,zong:real;end;vars:array[1..70]ofstu;a:stu;学号姓名年龄性别语文数学英语总分记录fori:=1to70dobeginreadln(s[i].n);readln(s[i

3、].name);readln(s[i].age);readln(s[i].x);readln(s[i].yw,s[i].sx,s[i].yy);s[i].zong:=s[i].yw+s[i].sx+s[i].yy;end;记录with语句fori:=1to70dowiths[i]dobeginreadln(n);readln(name);readln(age);readln(x);readln(yw,sx,yy);zong:=yw+sx+yy;end;