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

记录比赛成绩 记录运动员成绩 及时充电（记录类型） 探索奥秘 本届校运会如果每个班的同学都可以参加m项运行，请设计一个班的基本情况表并求出这个班的平均分，无人参加项目记0分？ 展示实力(完善程序) 展示实力（编写程序） 生日卡片：小明为帮班中每个同学制作了一套如下所示生日卡片。现在小明想将卡片按生日先后次序排列出来。你能编个程序帮帮他吗？ * * 比赛成绩小档案 姓名：杨帆 性别：男 班级：六（2）班 项目： 跳高 短跑 跳远 成绩： 1.4m 11s 2.2m 分数： 8 9 7.8 Program P1_19_1； type ydy=record {定义运动员为记录类型} name:string[8]; sex:char; bb:string[8]; xm:string[4]; cj:real; var a:array[1..5] of ydy; i:integer; begin for i:=1 to 5 do readln(a[i].name,a[i].sex,a[i].bb,a[i].xm,a[i].cj); writeln(‘name’:8,’sex’:2,’bb’:6,’xm’:4,’cj’:3); for i:=1 to 5 do writeln (a[i].name:8,a[i].sex:2,a[i].bb:6,a[i].xm:4,a[i].cj:3); end. 1、定义记录类型 在Pascal中，记录由一组称为“域”的分量组成，其中每个域可以具有不同的类型。 格式： record 域名1:类型1; 域名2:类型2; …… 域名n:类型n; end; 说明： 1、域名也称域变量标识符，在同一个记录中，各个域名不能相同，但在不同的记录类型中，两个类型的域名可以相同。 2、记录类型的定义和记录变量可以合并为一个定义。 3、对记录的操作，除了可以进行体赋值，只能对记录的分量——域变量进行。 4、域变量的使用和一般变量一样。 2、开域语句 在程序中对记录进行处理时，经常要引用同一记录中的不同域。Pascal提供了一个with语句。 格式：with 记录变量名表 do 语句 此语句的作用是在do后的语句中引用with后的记录中的域时，只需要写出域名即可。 Program P1_19_2； const n=2;m=3; type Studa=record nu:string[5]; na:string[8]; se:char; s:array[1..m] of real; ave:real; end; sarr=array[1..n] 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(s[i]); t:=t+s[i]; end; readln; ave:=t/m; stu[k]:=a end; for i:=1 to n do with stu[i] do begin write(nu:5,na:9,se:3,’ ’); for k:=1 to m do write(s[k]: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