Bài 13 : Kiểu bản ghi

Bµi 16 Gi¸o ¸n ®iÖn tö tin häc líp 11 Gi¸o viªn thùc hiÖn CHÀO MỪNG NGÀY THÀNH LẬP ĐOÀN 26 THÁNG 3 Giáo án điện tử tin học lớp 11 KIM TRA BI C Yêu cầu: Viết chương trình nhập vào thông tin của N học sinh (N nhập từ bàn phím và N<=50) . Thông tin về mỗi học sinh bao gồm họ và tên, năm sinh, điểm trung bình học kì 1. CT Giáo án điện tử tin học lớp 11 Bài 13(T33) Kiểu bản ghi Nội dung Nội dung 1. Khái niệm 1. Khái niệm 2. Khai báo 2. Khai báo 3. Các thao tác với bg 3. Các thao tác với bg Củng cố Củng cố 1. Khái niệm - Kiểu dữ liệu có cấu trúc. - Gồm các thành phần (gọi là trường) có thể thuộc các kiểu dữ liệu khác nhau. => 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 Gi¸o ¸n ®iÖn tö tin häc líp 11 Bµi 13(T33) KiÓu b¶n ghi Néi dung Néi dung 1. Kh¸i niÖm 1. Kh¸i niÖm 2. Khai b¸o 2. Khai b¸o 3. C¸c thao t¸c víi bg 3. C¸c thao t¸c víi bg Cñng cè Cñng cè 2. Khai b¸o a. Khai b¸o kiÓu Type < Tªn kiÓu b¶n ghi> = record <tªn tr­êng 1> : <kiÓu tr­êng 1>; < tªn tr­êng 2> : <kiÓu tr­êng 2>; . < tªn tr­êng n> : <kiÓu tr­êng n>; end; Gi¸o ¸n ®iÖn tö tin häc líp 11 Bµi 13(T33) KiÓu b¶n ghi Néi dung Néi dung 1. Kh¸i niÖm 1. Kh¸i niÖm 2. Khai b¸o 2. Khai b¸o 3. C¸c thao t¸c víi bg 3. C¸c thao t¸c víi bg Cñng cè Cñng cè 2. Khai b¸o a. Khai b¸o kiÓu b. Khai b¸o biÕn. Cách 1: Var <Tªn biÕn > : <tªn kiÓu b¶n ghi>; <Tªn m¶ng > : ARRAY[1 Max] of < Tªn kiÓu b¶n ghi>; Cách 2: VAR <Tên biến bản ghi> = RECORD <tên trường 1>:<Kiểu trường 1>; … … <tên trường n>:<Kiểu trường n>; END; . . Tổng 4.56.0 Phan Vân 50 7.55.0 Đặng Anh Tuấn 49 6.57.0 Trần Thu Trà 48 5.08.5 Vũ Ngọc Bình 02 9.010.0 Nguyễn An 01 Kết quả TinToánHọ tênSBD Type Hocsinh = record 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) Ví dụ SBD: Hoten: Toan,Tin,Tong: Ketqua: end; integer; String[30]; String[10]; real; Var LOP: ARRAY[1 50] of Hocsinh; I,j,n : integer; cc Gi¸o ¸n ®iÖn tö tin häc líp 11 Bµi 13(T33) KiÓu b¶n ghi Néi dung Néi dung 1. Kh¸i niÖm 1. Kh¸i niÖm 2. Khai b¸o 2. Khai b¸o 3. C¸c thao t¸c víi bg 3. C¸c thao t¸c víi bg Cñng cè Cñng cè 3. C¸c thao t¸c víi b¶n ghi 3. C¸c thao t¸c víi b¶n ghi b.G¸n gÝa trÞ. a:=b; a.ketqua:= DAT ;‘ ’ a.hoten:=b.hoten; Type Hocsinh = record SBD: integer; Hoten: string[30]; Toan,Tin,Tong: real; Ketqua: string[10]; end; Var LOP: ARRAY[1 50] of Hocsinh; a, b :hocsinh I,j,n : integer; a. Tham chiÕu. a.sbd a.hoten a.toan a.Tin a.tong a.ketqua Tªn biÕn b¶n ghi.tªn tr­êng 3. C¸c thao t¸c víi b¶n ghi Readln(a.sbd); Readln(a.hoten); Readln(a.toan); Readln(a.Tin); Type Hocsinh = record SBD: integer; Hoten: string[30]; Toan,Tin,Tong: real; Ketqua: string[10]; end; Var LOP: ARRAY[1 50] of Hocsinh; a, b :hocsinh I,j,n : integer; XuÊt gÝa trÞ. NhËp gÝa trÞ. a.tong:=a.toan+a.Tin; If a.tong>=10 then a.ketqua:= DAT ;‘ ’ Writeln(a.sbd); Writeln(a.hoten); Writeln(a.toan); Writeln(a.Tin); Writeln(a.tong); Writeln(a.ketqua); c. NhËp/xuÊt gi¸ trÞ a.sbd a.hoten a.toan a.Tin a.tong a.ketqua d. Vận dụng Nhập và hiển thị thông tin học sinh của n (n<=45). Write( Nhap vao so hoc sinh trong lop : ); readln(n); Các bước: Thể hiện bằng pascal - Nhập số học sinh 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].Tin); end; - Nhập dữ liệu (các thuộc tính) của từng bản ghi Type Hocsinh = record SBD: integer; Hoten: string[30]; Toan,Tin,Tong: real; Ketqua: string[10]; end; Var LOP: ARRAY[1 50] of Hocsinh; I,j,n : integer; [...]... LOP[i].tong: 8:1 ,LOP[i].Ketqua:15); Write(HO VA TEN : ); readln(LOP[i].Hoten); Readln; Write( Diem toan : );readln(LOP[i].Toan); END Write( Diem van : );readln(LOP[i].Tin); end; Hãy nhớ! Type Hocsinh = record SBD : integer; Hovaten : string[30]; Toan,Tin,Tong:real; Ketqua :string[10]; end; Var LOP: ARRAY[1 50] of hocsinh; LOP[i].SBD Bài tập trắc nghiệm Khai báo: tên biến bản ghi, tên và kiểu dữ liệu... >=10, ngư bản ghi nhỉ ? ợ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; d Vận dụng Xuất dữ liệu kiểu bản ghi Các bước: Thông báo xuất Xuất bảng dữ liệu Thể hiện bằng pascal Writeln( Bang ket qua kiem tra chat luong ); writeln( LOP TOAN TIN K20 ); For i:=1 to n do Writeln(LOP[I].sbd:5,LOP[i].Hoten:30, LOP[i].Toan: 5:1 ,LOP[i].Tin: 5:1 , LOP[i].Tong: 8:1 ,LOP[i].Ketqua:15);... 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 Kết quả Kết quả Hãy chỉ rõ những khai báo sai, giải thích? a Var Sach = Record b Var Sach = Record; đúng sai c Var Sach : Record d Var Sach = Record Tensach: String[100]; Tacgia: String[30]; MaPL: String[10]; End; sai Tensach: String[100]; Tacgia: String[30]; MaPL: String[10]; End;... LOP[i].Toan: 5:1 ,LOP[i].Tin: 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,Tin,Tong:real; LOP[i].Tong := LOP[i].Toan + LOP[i].Tin; Hãy viết chương Ketqua: string[10]; trình hoàn chỉnh { dien ket qua cho tung ban ghi } end; Var LOP: ARRAY[1 100]để giải bài toán i:=1 to n do of Hocsinh;... i,n: integer; BEGIN LOP[i].Ketqua:=Dat Clrscr; { nhap so hoc sinh } else LOP[i].Ketqua:=Khong dat; Write( Nhap vao so hoc sinh trong lop : ); readln(n); { In bang du lieu } { nhap du lieu tung ban ghi} Writeln( Bang ket qua kiem tra ); For i:=1 to n do For i:=1 to n do Begin Writeln(LOP[I].sbd:5,LOP[i].Hoten:30, writeln( Nhap so lieu hoc sinh thu ,i); LOP[i].toan: 5:1 ,LOP[i].Tin: 5:1 , Write( SBD : );... Tensach: String[100]; Tacgia: String[30]; MaPL: String[10]; End; sai Tensach: String[100]; Tacgia: String[30]; MaPL: String[10]; End; Tensach: String[100]; Tacgia: real; MaPL: String[10]; End; Hãy viết phần khai báo để khai báo thông tin của n (n=10 then a.ketqua:=DAT else a.ketqua=khong dat a.tong:=a.toan+a.Tin; 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].Tin;... CÔ GIáO Đã THAM Dự TIếT HọC 1 Khái niệm Trường (Field) Bảng kết quả kiểm tra chất lượng Lớp Toán tin-K20 SBD Họ tên Toán Tin 01 Nguyễn An 10.0 Vũ Ngọc Bình 8.5 5.0 7.0 Kết quả 9.0 02 Tổng Bản ghi (Record) 6.5 48 Trần Thu Trà 49 Đặng Anh Tuấn 5.0 7.5 50 Phan 6.0 4.5 Vân Yêu cầu: Nhập vào thông tin của từng học sinh, tính tổng và Bảng gồm : 50 đối tượng (record) với 6 thuộc tính kết quả là xét . 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. 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].Tin: 5:1 , LOP[i].tong: 8:1 ,LOP[i].Ketqua:15); Readln; END.