集合与记录类型(第二十一课).pptVIP

集合和记录类型;集合和记录类型;集合类型;集合类型的定义和变量的说明 ;集合的值;集合的运算 ;例7.1 设有如下说明： 　 type weekday=(sun,mon,tue,wed,thu,fri,sat); week=set of weekday; subnum=set of 1..50; 写出下列表达式的值: ⑴［sun,sat］+［sun,tue,fri］ ⑵［sun,fri］*［mon,tue］ ⑶［sun,sat］*［sun..sat］ ⑷［sun］-［mon,tue］ ⑸［mon］-［mon,tue］ ⑹［sun..sat］-［mon,sun,sat］ ⑺［1,2,3,5］=［1,5,3,2］ ⑻［1,2,3,4］［1..4］ ⑼［1,2,3,5］=［1..3］ ⑽［1..5］=［1..4］ ⑾［1,2,3］=［1..3］ ⑿ 2 in［1..10］;例7.3 调用随机函数产生10个互不相同的随机整数（0=x=40）,放入集合中并一起输出（5个一行）。 program ex7_3; var a:set of 0..40; I,m,n:integer; Begin a:=[]; n:=0; Randomize; Repeat M:=random(41); If not(m in a) then begin a:=a+[m]; N:=n+1; End; Until n=10; N:=0; For I:=0 to 40 do If I in a then begin write(I:4); n:=n+1; If (n mod 5=0) then writeln; End; End.;例7.4 编制用筛选法求1-n(n≤200)以内素数的程序。 【分析】 由希腊著名数学家埃拉托色尼提出的所谓“筛选法”，步骤如下： ①将所有候选数放入筛中； ②找筛中最小数（必为素数）next，放入集合primes中； ③将next的所有倍数从筛中筛去； ④重复②～④直到筛空。 编程时，用集合变量sieve表示筛子，用集合primes存放所有素数。;program ex7_4; const n=200; var sieve,primes:set of 2..n; next,j:integer; begin sieve:=[2..n]; //将所有候选数放入筛中 primes:=[]; //素数集合置空 next:=2; repeat //找筛sieve中最小一个数 while not(next in sieve) and(next=n)do next:=succ(next); primes:=primes+[next]; //将最小数放入素数集合中 j:=next; ;记录类型;记录类型的定义; 说明： ①域名也称域变量标识符， 应符合标识符的语法规则。在同一个记录中类型中，各个域不能取相同的名，但在不同的记录类型中，两个类型中的域名可以相同。 ②记录类型的定义和记录变量可以合并为一个定义，如： type date=record year:1900..1999; month:1..12; day:1..31 end; var x:date; 可以合并成: ?var x: record year:1900..1999; month:1..12; day:1..31 end; ;③对记录的操作,除了可以进行整体赋值， 还能对记录的分量──域变量进行。 ④域变量的表示方法如下： 记录变量名.域名 如