1 H é i g i ¶ n g Mïa xu©n Viết 1 chương trình dùng để quản lí kết quả kiểm tra chất lượng của học sinh với 2 môn Toán và Văn Chương trình cần quản lí gồm: STT, SBD Họ và tên, Ngày sinh, Giới tính, Điểm môn Toán, điểm môn Văn, tổng, kết quả Bài toán đặt vấn đề Bảng kết qủa kiểm tra chất lượng Bài toán đặt vấn đề STT Họ và tên Toán Văn Tổng Kết quả 1 Phạm Thị An 7.5 6.0 2 Vũ Thị Bích 6.5 7.5 48 Trần Hải Triệu 8.0 6.5 49 Bùi Văn Trường 6.0 5.5 50 Nguyễn Thị Yến 8.5 8.0 Bản ghi (Record) Trường (Field) Yêu cầu: Nhập vào các thông tin của từng học sinh. Tính tổng và xét kết quả, biết nếu tổng >=12 thì kết quả là Đạt §13.kiÓu b¶n ghi 1. Kh¸i niÖm Lµ 1 kiÓu d÷ liÖu cã cÊu tróc dïng ®Ó m« t¶ c¸c ®èi t­îng cã cïng 1 sè thuéc tÝnh mµ c¸c thuéc tÝnh cã thÓ cã c¸c kiÓu d÷ liÖu kh¸c nhau 2. Khai b¸o Type <Tªn kiÓu b¶n ghi> = record <Tªntr­êng1>:<kiÓutr­êng1>; … …………… … ……. <Tªntr­êngk>:<kiÓutr­êngk>; end; Var <tªnbiÕnb¶n ghi>: <Tªn kiÓu b¶n ghi>; CÊu tróc STT Họ và tên Toán Văn Tổng Kết quả 1 Phạm Thị An 7.5 6.0 2 Vũ Thị Bích 6.5 7.5 48 Trần Hải Triệu 8.0 6.5 49 Bùi Văn Trường 6.0 5.5 50 Nguyễn Thị Yến 8.5 8.0 Type Hocsinh = record Hoten, ketqua : string[30]; STT : Integer; Toan, Van, Tong: real; end; Var Lop : array[1 Max] of Hocsinh; i, n :Byte; Ví dụ: Khai báo kiểu dl cho các trường Khai báo biến kiểu bản ghi Đ13.kiểu bản ghi 2. Khai báo 3. Tham chiếu đến từng trường của biến bản ghi Ví dụ: Lop[i].hoten Lop[i].Toan Tên_biến_bản_ghi . Tên_trường 1. Khái niệm 4. Gán giá trị cho biến bản ghi - Gán nguyên cả biến bản ghi - Gán lần lượt từng trường Ví dụ: A:= B; A.hoten := B.hoten; A.Toan := B.Toan; Chú ý: Hai biến A và B phải được khai báo cùng 1 kiểu bản ghi Đ13.kiểu bản ghi a, Nhập thông tin học sinh Các bước Thể hiện bằng Pascal - Nhập số học sinh - Nhập dữ liệu (các thuộc tính ) của từng bản ghi Write( Nhap vao so hoc sinh trong lop); readln(n); For i:=1 to n do Begin Write( So thu tu ); readln(Lop[i].STT); Write( Ho va ten); readln(Lop[i].hoten); Write( Diem Toan); readln(Lop[i].Toan); Write( Diem Van); readln(Lop[i].Van); End; 5. Ví dụ về các thao tác với bản ghi (bài toán đặt vấn đề) Đ13.kiểu bản ghi Nhập giá trị trường cho SBD của học sinh thứ 1 nằm ở bản ghi đầu tiên Tư ơng tự như vậy nhập cho các trường còn lại. STT Họ và tên Toán Văn Tổng Kết quả 1 Phạm Thị An 7.5 6.0 Quá trình nhập kết thúc khi nhập hết dữ liệu cho bản ghi thứ n. Người 1 Người 2 Người 3 Người n Lớp Khi i=1 Lop[1].SBD b, Các thao tác xử lí trong bản ghi. Đ13.kiểu bản ghi Tính tổng điểm Toán và Vă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; Kiểm tra điều kiện để đưa ra kết quả: For i:=1 to n do If Lop[i].Tong >=12 then Lop[i].ketqua := Dat else Lop[i].ketqua := Khongdat; c, In d÷ liÖu kiÓu b¶n ghi §13.kiÓu b¶n ghi C¸c b­íc ThÓ hiÖn b»ng Pascal - Th«ng b¸o in - 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); Writeln(‘ Bang ket qua kt chat luong’); [...]... Writeln( Bang ket qua kt chat luong); 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 Củng cố Hãy 1.nhớniệm Khái 2 Khai báo 3 Tham chiếu đến từng trường của biến bản ghi Type = record :; :; Tên_biến_bản _ghi Tên_trường 4 Gán giá trị cho biến bản ghi. .. = record :; :; Tên_biến_bản _ghi Tên_trường 4 Gán giá trị cho biến bản ghi end; Var : ; Yêu cầu về nhà: Xem phần cấu trúc câu lệnh Withdo (sgk- tr134) và làm bài tập 11- sgk tr 80 Kính chúc các thầy giáo, cô giáo và các em học sinh mạnh khoẻ, hạnh phúc Thực hiện: Nguyễn Ngọc Trung Gv: Trư STT Toán 1 Phạm Thị An 7.5... Phạm Thị An 7.5 6.0 2 Vũ Thị Bích 6.5 7.5 48 Trần Hải Triệu 8.0 6.5 49 Bùi Văn Trường 6.0 5.5 50 Ví dụ: Họ và tên Nguyễn Thị Yến 8.5 8.0 B1: Tạo kiểu dl, khai báo biến B2: - Nhập dl cho mảng các bản ghi - Tính tổng điểm Toán- Văn - Dựa vào tổng để đưa ra kết quả Type Văn Tổng Kết quả Hocsinh = record Hoten, ketqua : string[30]; STT : Integer; Toan, Van, Tong: real; end; Var Lop : array[1 Max] of . biến kiểu bản ghi Đ13.kiểu bản ghi 2. Khai báo 3. Tham chiếu đến từng trường của biến bản ghi Ví dụ: Lop[i].hoten Lop[i].Toan Tên_biến_bản _ghi . Tên_trường. bản ghi Đ13.kiểu bản ghi a, Nhập thông tin học sinh Các bước Thể hiện bằng Pascal - Nhập số học sinh - Nhập dữ liệu (các thuộc tính ) của từng bản ghi