Tin học 11-Kiểu bản ghi

      ! "#$" %&'()*+,-'./0 Bµi to¸n ®Æt vÊn ®Ò: B¶ng kÕt qu¶ kiÓm tra chÊt lîng B¶n ghi (Record) Trêng (Field) )123456'789:+;<=>6'?'@9A6:B;< C.3DE=+'F'6G'HI6J'@'= KL'M&'()JN6&'O&'PQ"' M&'()B R' “ ” Bài 13 Trửụứng THPT Long Khaựnh A GV: Nguyeón Hửừu Taõn 1. D÷ liÖu kiÓu b¶n ghi dïng ®Ó m« t¶ c¸c ®èi tîng cã cïng mét sè thuéc 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 ghi> = record <tªn trêng 1> : <kiÓu trêng 1>; . . . . . . . . . . . . . . . . . . . . . . . . . . . . < tªn trêng k> : <kiÓu trêng k>; end; Var <tªn biÕn bản ghi > : <tªn kiÓu b¶n ghi>; <tªn m¶ng > : ARRAY[1 Max] of < tªn kiÓu b¶n ghi>; D÷ liÖu kiÓu b¶n ghi Type Type Hocsinh = record Hoten: string[30]; Ngaysinh: string[10]; Gioitinh: string[5]; Tin,Toan,Li,Hoa,Van,Su,Dia: real; end; Var Var LOP: ARRAY[1 50] of Hocsinh; i,n : integer; Khai b¸o kiÓu d÷ liÖu cho c¸c trêng (field) Khai b¸o biÕn kiÓu b¶n ghi (record) Bảng kết quả thi TT Họ và tên NS GT Tin Toán Lí Hoá Văn Sử Địa 1 Nguyễn Văn An 1990 Nam 8 9 8 6 2 3 5 2 Đào Văn Bình 1991 Nam 9 6 5 8 1 8 2 … …… … … … … … … … … … 50 Nguyễn Thị Huệ 1988 Nữ 9 8 7 5 6 4 3         ! " #$ " %&'() *+,-'./0 Type Type Hocsinh = record SBD: integer; Hoten: string[30]; Toan,Van,Tong: real; Ketqua: string[10]; end; Var Var LOP: ARRAY[1 50] of Hocsinh; i,n : integer; Khai b¸o kiÓu d÷ liÖu cho c¸c trêng (field) Khai b¸o biÕn kiÓu b¶n ghi (record) 3. C¸c thao t¸c víi b¶n ghi DE'F'6I6 Write(‘ Nhap vao so hoc sinh trong lop : ‘); readln(n); C¸c bíc: ThÓ hiÖn b»ng pascal SDEI5I6 For i:=1 to n do Begin writeln(‘ Nhap du lieu cho hoc sinh thu ‘,i); Write(‘ SBD : ‘); readln(LOP[i].SBD); Write(‘HO TEN : ‘); readln(LOP[i].Hoten); Write(‘ Diem toan : ‘);readln(LOP[i].Toan); Write(‘ Diem van : ‘);readln(LOP[i].Van); end; SDE;TB6U(c¸c thuéc tÝnh) G 'HN)6 "#$" *+,-='./0 %66Q"LOP[1].SBD  V,' DEM&''WM6DE&';TB6U+N)6 'X * DE6,'Y'7Z+/0GI6'X' O2[N)64'6. \7]'^7=D#DE6,'Y,'7Z_BR6 N`,'+',KaB@'+N)6 Tính tổng điểm văn và toán của từng học sinh trong lớp. Dùng lệnh gì để tính tổng cho từng bản ghi ? For i:=1 to n do LOP[i].Tong:= LOP[i].Toan + LOP[i].Van; Điền chữ Dat vào cột kết quả cho những học sinh có tổng >=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; b;TB6UM6cN)6 C¸c bíc: ThÓ hiÖn b»ng pascal FN,+6 Writeln(‘ Bang ket qua kiem tra chat luong ‘); For i:=1 to n do bN);TB6U 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); Hãy viết chơng trình hoàn chỉnh để giải bài toán đặt vấn đề ? Program vd1; Uses crt; Type { Khai bao} Hocsinh = record SBD: integer; Hoten: string[30]; Toan,Van,Tong:real; Ketqua: string[10]; end; Var LOP: ARRAY[1 100] of Hocsinh; i,n: integer; BEGIN Clrscr; { nhap so hoc sinh } Write( Nhap vao so hoc sinh trong lop : ); readln(n); { nhap du lieu tung ban ghi} For i:=1 to n do Begin writeln( Nhap so lieu hoc sinh thu ,i); Write( SBD : ); readln(LOP[i].SBD); Write(HO VA TEN : ); readln(LOP[i].Hoten); Write( Diem toan : );readln(LOP[i].Toan); Write( Diem van : );readln(LOP[i].Van); end; { tinh tong cho tung ban ghi } For i:=1 to n do LOP[i].Tong := LOP[i].Toan + LOP[i].Van; { dien ket qua cho tung ban ghi } For i:=1 to n do if LOP[i].Tong>=10 then LOP[i].Ketqua:=Dat else LOP[i].Ketqua:=Khong dat; { In bang du lieu } Writeln( Bang ket qua kiem tra ); 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); Readln; END. [...]... ARRAY[1 50] of hocsinh; LOP[i].SBD Khai báo: tên biến bản ghi, tên và kiểu dữ liệu các trường Tham chiếu trường của bản ghi: Tên biến bản ghi. tên trường Gán giá trị cho từng trường của bản ghi hoặc giữa hai biến cùng kiểu Trong NNLT Pascal, khai bỏo kiu bn ghi x lý danh sỏch cỏn b ca mt c quan, khai bỏo kiu bn ghi no trong cỏc khai bỏo sau l ỳng? (Bn ghi cú cu trỳc gm 5 trng: H tờn, nm sinh, a ch, mc... Diachi : string[90]; Mucluong: Real; Phucap: Real; Diachi : string[90]; Mucluong: Real; Phucap: Real; End; End  truy cp vo tng trng ca bn ghi ta vit? A . B . C . D . BI TP V NH I Phn lý thuyt: Bi 1, 2, 3, 4 trang 79 II Phn bi tp v thc hnh: Bi 6, 7, 10 trang 79+80 . của bản ghi ta viết? A. <Tên biến bản ghi& gt;.<Giá trị của trường> B. <Tên kiểu bản ghi& gt;.<Tên trường> C. <Tên biến bản ghi& gt;.<Tên trường> D. <Tên kiểu bản ghi& gt;.<Giá. trị cho từng trờng của bản ghi hoặc giữa hai biến cùng kiểu. Khai báo: tên biến bản ghi, tên và kiểu dữ liệu các trờng. Tham chiếu trờng của bản ghi: Tên biến bản ghi. tên trờng Type Hocsinh. Trong NNLT Pascal, để khai báo kiểu bản ghi để xử lý danh sách cán bộ của một cơ quan, khai báo kiểu bản ghi nào trong các khai báo sau là đúng? (Bản ghi có cấu trúc gồm 5 trường: Họ tên,