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

記錄比賽成績,比賽成績小檔案 姓名：楊帆 性別：男 班級(jí)：六（2）班 項(xiàng)目： 跳高 短跑 跳遠(yuǎn) 成績： 1.4m 11s 2.2m 分?jǐn)?shù)： 8 9 7.8,記錄運(yùn)動(dòng)員成績,Program P1_19_1； type ydy=record 定義運(yùn)動(dòng)員為記錄類型 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.,及時(shí)充電（記錄類型）,1、定義記錄類型 在Pascal中，記錄由一組稱為“域”的分量組成，其中每個(gè)域可以具有不同的類型。 格式： record :; :; :; end; 說明： 1、域名也稱域變量標(biāo)識(shí)符，在同一個(gè)記錄中，各個(gè)域名不能相同，但在不同的記錄類型中，兩個(gè)類型的域名可以相同。 2、記錄類型的定義和記錄變量可以合并為一個(gè)定義。 3、對(duì)記錄的操作，除了可以進(jìn)行體賦值，只能對(duì)記錄的分量域變量進(jìn)行。 4、域變量的使用和一般變量一樣。 2、開域語句 在程序中對(duì)記錄進(jìn)行處理時(shí)，經(jīng)常要引用同一記錄中的不同域。Pascal提供了一個(gè)with語句。 格式：with do 此語句的作用是在do后的語句中引用with后的記錄中的域時(shí)，只需要寫出域名即可。,探索奧秘,本屆校運(yùn)會(huì)如果每個(gè)班的同學(xué)都可以參加m項(xiàng)運(yùn)行，請(qǐng)?jiān)O(shè)計(jì)一個(gè)班的基本情況表并求出這個(gè)班的平均分，無人參加項(xiàng)目記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.,展示實(shí)力(完善程序),下面程序輸入運(yùn)動(dòng)員的比賽編號(hào)和成績，請(qǐng)輸出成績高于給定值（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.,展示實(shí)力（編寫程序）,生日卡片：小明為幫班中每個(gè)同學(xué)制作了一套