聪明人的游戏上课稿第.ppt

记录比赛成绩,比赛成绩小档案 姓名：杨帆 性别：男 班级：六（2）班 项目： 跳高 短跑 跳远 成绩： 1.4m 11s 2.2m 分数： 8 9 7.8,记录运动员成绩,Program P1_19_1； type ydy=record 定义运动员为记录类型 name:string8; sex:char; bb:string8; xm:string4; cj:real; var a:array15 of ydy; i:integer; begin for i:=1 to 5 do readln(,ai.sex,ai.bb,ai.xm,ai.cj); writeln(name:8,sex:2,bb:6,xm:4,cj:3); for i:=1 to 5 do writeln (:8,ai.sex:2,ai.bb:6,ai.xm:4,ai.cj:3); end.,及时充电（记录类型）,1、定义记录类型 在Pascal中，记录由一组称为“域”的分量组成，其中每个域可以具有不同的类型。 格式： record :; :; :; end; 说明： 1、域名也称域变量标识符，在同一个记录中，各个域名不能相同，但在不同的记录类型中，两个类型的域名可以相同。 2、记录类型的定义和记录变量可以合并为一个定义。 3、对记录的操作，除了可以进行体赋值，只能对记录的分量域变量进行。 4、域变量的使用和一般变量一样。 2、开域语句 在程序中对记录进行处理时，经常要引用同一记录中的不同域。Pascal提供了一个with语句。 格式：with do 此语句的作用是在do后的语句中引用with后的记录中的域时，只需要写出域名即可。,探索奥秘,本届校运会如果每个班的同学都可以参加m项运行，请设计一个班的基本情况表并求出这个班的平均分，无人参加项目记0分？,Program P1_19_2； const n=2;m=3; type Studa=record nu:string5; na:string8; se:char; s:array1m of real; ave:real; end; sarr=array1n of Studa; var stu:sarr; i,j,k:integer; t:real; a:studa; begin for k:=1 to n do begin with a do begin write(k:2, nu: );readln(nu); write(k:2, na: );readln(na);,write(k:2, se: );readln(se); t:=0; for i:=1 to m do begin write(s,i,=); read(si); t:=t+si; end; readln; ave:=t/m; stuk:=a end; for i:=1 to n do with stui do begin write(nu:5,na:9,se:3, ); for k:=1 to m do write(sk:6:1); writeln(ave:6:1); end; end.,展示实力(完善程序),下面程序输入运动员的比赛编号和成绩，请输出成绩高于给定值（60）的学生记录。 const rs=30; average=60; type students =record; no:integer; aver:real; end; var stud:_; count:integer; begin for _:=1 to _ do begin readln(_); readln(_); end; for count:=1 to _ do if _ then writeln(_,_); end.,展示实力（编写程序）,生日卡片：小明为帮班中每个同学制作了一套