Bài giảng Điện tử Tin học lớp 11: Bài 16

Bài giảng Điện tử Tin học lớp 11 - Bài 16: Kiểu bản ghi, giới thiệu với các em về dữ liệu kiểu bản ghi, khai báo dữ liệu kiểu bản ghi. Chúc các em học tốt.
Nội dung trích xuất từ tài liệu:
Bài giảng Điện tử Tin học lớp 11: Bài 16Bµi 16 Gi¸o ¸n ®iÖn tö tin häc líp 11 Bµi to¸n ® vÊn ® Æt Ò: B¶ng kÕt qu¶ kiÓm tra c hÊt lîng B¶n g hiTrê ng (Re c o rd)(Fie ld) S BD Hä tªn To ¸n V¨n Tæ ng KÕt qu¶ 01 Ng uyÔn An 10.0 9.0 02 Vò Ng äc B×nh 8.5 5.0 ... ....... ... ... 48 TrÇn Thu Trµ 7.0 6.5 49 §Æng Anh TuÊn 5.0 7.5 50 Phan V©n 6.0 4.5 B¶ng Çu: NhËp ®è i tîng (re c ord) víi 6 thué cstÝnh tÝnhld) ng vµ xÐt Yªu c gåm : 50 vµo th«ng tin c ña tõng häc inh, (Fie tæ kÕt qu¶, biÕt r»ng nÕu tæ ng >=10 th× kÕt qu¶ lµ “§¹t” D÷liÖu kiÓu b¶n ghi1. D÷liÖu kiÓu b¶n ghi dïng ® m« t¶ c¸c ® tîng cã cïng mét sè thuéc Ó èi tÝnh mµ c¸c thuéc tÝnh cã thÓ cã kiÓu d÷ liÖu kh¸c nhau.2. Khai b¸o kiÓu b¶n ghi Type < tªn kiÓu b¶n g hi> = re c o rd : kiÓu trê ng 1; < tªn trê ng 2> : kiÓu trê ng 2; e nd; Var : ; : ARRAY[1..Max] o f < tªn kiÓu b¶n g hi>; S BD Hä tªn To ¸n V¨n Tæ ng KÕt qu¶ 01 Ng uyÔn An 10.0 9.0 02 Vò Ng äc B×nh 8.5 5.0 ... ....... ... ... 48 TrÇn Thu Trµ 7.0 6.5 49 §Æng Anh TuÊn 5.0 7.5 50 Phan V©n 6.0 4.5Type Hocsinh =record SBD: integer; Khai b ¸o kiÓu d ÷ Hoten: string[30]; liÖu c ho c ¸c trê ng Toan,Van,Tong: real; (fie ld ) Ketqua: string[10]; end; Khai b ¸o b iÕn kiÓuVar LOP: ARRAY[1..50] of Hocsinh; b ¶n g hi (re c o rd ) I,j,n : integer;3. C¸c thao t¸c víi b¶n ghia. NhËp th«ng tin häc s inh C¸cbíc: ThÓhiÖnb»ngpascal Write(‘ Nhap vao so hoc sinh trong lop : ‘); NhËp s è häc s inh readln(n); For i:=1 to n do Begin NhËp d÷ liÖu (c ¸c writeln(‘ Nhap du lieu cho hoc sinh thu ‘,i); thué c tÝnh) c ña Write(‘ SBD : ‘); readln(LOP[i].SBD); tõng b¶n ghi Write(‘HO TEN : ‘); readln(LOP[i].Hoten); Write(‘ Diem toan : ‘);readln(LOP[i].Toan); Write(‘ Diem van : ‘);readln(LOP[i].Van); end; Khi i = 1  LOP[1].SBD * NhËp gi¸ trÞ trê ng c ho SBD c ña häc s inh thø nhÊt n»m ë b¶n ghi ®Çu tiªn. * T¬ng tù nh vËy nhËp gi¸ trÞ c ¸c trêng c ßn l¹i. S BD Hä vµ tªn To ¸n V¨n 01 Ng uyÔn An 10.0 9.0 Qu¸ tr×nh nhËp kÕt thóc khi nhËp hÕt d÷ liÖu c ho b¶n ghi thø n.b. C¸c thao t¸c xö lÝ tro ng b¶n g hi TÝnh tæng ®iÓm v¨n vµ to¸n cña tõng häc sinh trong líp. For i:=1 to n do LOP[i].Tong:= LOP[i].Toan + LOP[i].Van; Dïng lÖnh g × ®Ó tÝnh tæ ng c ho §iÒn ch÷ “§¹t” vµo cét kÕt qu¶ cho nh÷ häc sinh cã tæng ng tõ ng b ¶n g hi nhØ > 10, ngîc l¹i ® = iÒn ch÷ “Khong dat”. ? For i:=1 to n do IF LOP[i].Tong>=10 then LOP[i].Ketqua=‘Dat’ else LOP[i].Ketqua=‘Khong dat’;c . In d÷ liÖu kiÓu b¶n g hi C¸cbíc: ThÓhiÖnb»ngpascalTh«ng b¸o in Writeln(‘ Bang ket qua kiem tra chat luong ‘);In b¶ng d÷ liÖu For i:=1 to n do Writeln(LOP[I].sbd:5,LOP[i].Hoten:30, LOP[i].Toan:5:1,LOP[i].Van:5:1, LOP[i].Tong:8:1,LOP[i].Ketqua:15);Program vd1;Uses crt;Type { Khai bao} Hocsinh =record SBD: integer; { tinh tong cho tung ban ghi } Hoten: string[30]; For i:=1 to n do Toan,Van,Tong:real; LOP[i].Tong := LOP[i].Toan + LOP[i].Van; H·y v iÕt c h¬ng Ketqua: string[10]; end; ...