聰明人的游戲上課稿第.ppt

記錄比賽成績,比賽成績小檔案 姓名：楊帆 性別：男 班級：六（2）班 項目： 跳高 短跑 跳遠 成績： 1.4m 11s 2.2m 分數(shù)： 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、開域語句 在程序中對記錄進行處理時，經(jīng)常要引用同一記錄中的不同域。Pascal提供了一個with語句。 格式：with do 此語句的作用是在do后的語句中引用with后的記錄中的域時，只需要寫出域名即可。,探索奧秘,本屆校運會如果每個班的同學(xué)都可以參加m項運行，請設(shè)計一個班的基本情況表并求出這個班的平均分，無人參加項目記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）的學(xué)生記錄。 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.,展示實力（編寫程序）,生日卡片：小明為幫班中每個同學(xué)制作了一套