聪明人的游戏 上课稿第18课.pptVIP

报名参加比赛 一年一度的校运会又开始了，你能帮忙统计报名参加田赛和径赛各有多少人吗？ 统计参加田赛和径赛的人数 分析：田径比赛项目分为田赛和径赛两类。一般以时间来计算成绩的项目为径赛，其余为田赛。我们可以先设定田赛和径赛所包含的项目，然后在读入每个项目时就判断属于哪类比赛并作出统计。 及时充电（集合类型） 集合的几种运算 一、集合的交、并、差运算 设两个集合a:=[1,2,4,6]和b:=[4,6,7,8] 1、并运算符为”+”,取两个集合不重复的元素。a+b的结果[1,2,4,6,7,8] 2、交运算符为”*”,取两个集合公共元素。a*b的结果[4,6 ] 3、并运算符为”-”,取在a中但不在b中的元素。a-b的结果[1,2] 二、集合的比较 1、相等：表示形式a=b。当两个集合中元素个数相等，每个元素相同则相等。 2、不等：表示形式ab。 3、包含：a=b 表示a集合包含b集合中的所有元素; a=b 表示a集合是b集合的子集。 三、集合的测试运算：检测某个数据是否在集合中，在集合中为true，否则为false。 如：6 in [6,2,1]结果为true，2 in[1,3]结果为false. 探索奥秘 小明刚输入一长串字符，你能帮他统计出其中数字、字母和其他字符的个数吗？ 探索奥秘 用筛选法求200以内的素数。 展示实力(阅读程序) 展示实力（编写程序） 统计一个字符串中大写字母、小写字母和数字的个数。 统计输入的一串字符中有多少个元音字母？（a,e,i,o,u） * * f 接力 e 短跑 d 跨栏 c 铅球 b 跳远 a 跳高 代号 项目 比赛项目小档案 Program P1_18_1； var xm1: set of char; xm2: set of char; ch:char; countts,countjs:integer; begin xm1:=[‘a’..’c’];xm2:=[‘d’..’f’]; countts:=0; countjs:=0; repeat readln(ch); if ch in xm1 then countts:=countts+1; if ch in xm2 then countjs:=countjs+1; until ch=‘.’; writeln(countts,countjs); end. 具有某些共同特征的元素构成的一个集体，叫做集合。集合中必须是由具有同一类型的一组数据所组成，集合中成员的类型称为这个集合的基类型。 集合的定义和变量说明 1、定义集合类型 type 标识符=set of 基类型; 说明：集合的基类型必须是有序类型，如整型、字符型、布尔型，但不能是实型或其他构造类型；同时基类型的数据不得超过255. 集合的值放在一对方括号中，各元素用逗号隔开，与排列顺序无关。因此[2,5,8]与[5,8,2]的值相等。没有任何元素的集合是空集，用[]表示。如果集合元素是连续的可用子界表示，如[1,2,3,4,5,6,7,8]可表示为[1..8] 2、集合的赋值 集合变量名:=集合表达式; Pascal中无专门的语句来进行集合的输入输出，而只能通过集合的赋值与运算来完成。 下面语句能是集合ch1，age和ch2获得相关元素。 ch1:=[1,3]; age:[4..50];ch2=[5]+ch1; 而集合的输出需要借助测试运算，把集合基类型的所有值从头到位测试一遍，若这个值在集合中则打印输出。 for chart:=‘a’ to ‘f ’ do if chart in ch then writeln(chart:4); 上面语句功能是测试集合ch中是否有字母a~f，有则输出。 Program P1_18_2； var letter: set of char; digit: set of ‘0’..‘9’; ch:char; id,il,io:integer; begin letter:=[‘a’..’z’,’A’..’Z’]; digit:=[‘0’..’9’]; id:=0; il:=0;io:=0; repeat readln(ch); if ch in letter then il:=il+1;