高中信息技术 信息学奥赛 PASCAL语言 字符串记录类型课件.pptVIP

本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 * * 集合类型作业：P188 8.1 编程序，且写出结果 定义集合st=set of 1..10 且编一个print的过程， 输出集合的元素 8.2 字母 ‘a’..‘z’ 数字 ‘0’..‘9’ 8.1 将集合a赋值成[1,2,3,4,5,7,9]，集合b赋值成[4,5,6,7,8,10]，计算c=a+b，d=a-b，e=a*b，以及a=b的值，输出集合a，b，c，d，e及a=b的值。 提示：为便于输出各集合的元素，可以定义一个输出集合元素的过程。 a=[1,2,3,4,5,7,9] b=[4,5,6,7,8,10] c=a+b=[1,2,3,4,5,6,7,8,9,10] d=a-b=[1,2,3,9] e=a*b=[4,5,7] a=b false program ex81(input,output); type st=set of 1..10; var a, b, c, d, e : st; procedure print(s:st); var i:integer; begin for i:=1 to 10 do if i in s then write(i:2); writeln end; begin a:=[1..5,7,9]; b:=[4..8,10]; c:=a+b; d:=a-b; e:=a*b; write(a=); print(a); write(b=); print(b); write(c=); print(c); write(d=); print(d); write(e=); print(e); writeln(a=b: ,a=b) end. 8.2 读入一串字符，以“？”结束，分别组成字母与数字两个集合，然后分别输出两个集合中的元素及元素个数。 program ex82(input,output); var s1:set of 0..9; s2:set of a..z; s3:set of A..Z; n1,n2:integer; ch:char; begin s1:=[];s2:=[];s3:=[]; n1:=0;n2:=0; read(ch);write(ch); while ch? do begin if ch in [0..9] then s1:=s1+[ch] else if ch in [a..z] then s2:=s2+[ch] else if ch in [A..Z] then s3:=s3+[ch]; read(ch);write(ch) end; writeln; for ch:=0 to 9 do if ch in s1 then begin write(ch); n1:=n1+1 end; writeln;