Bai 14: Kiểu bản ghi

SBD Họ tên Ngày sinh Văn Toán Xếp loại 01 Lê Tuấn Anh 12/12/1990 8 10 02 Đào Thị Bình 02/01/1990 9 8.5 40 Lê Thị Tuyết 20/10/1991 7 8 B I TO N T V N À Á ĐẶ Ấ ĐỀ B¶ng kÕt qu¶ thi Đề bài: Một lớp gồm N học sinh (N 40) Quản lý học sinh với các thuộc tính trên. Biết rằng việc xếp loại được xác định như sau: - Nếu tổng điểm toán và văn lớn hơn hoặc bằng 18 thì xếp loại A. - Nếu tổng điểm toán và văn lớn hơn hoặc bằng 14 và nhỏ hơn 18 thì xếp loại B. - Nếu tổng điểm toán và văn lớn hơn hoặc bằng 10 và nhỏ hơn 14 thì xếp loại C. - Nếu tổng điểm toán và văn nhỏ hơn 10 thì xếp loại D. ≤ CHƯƠNG IV: KIỂU DỮ LIỆU CÓ CẤU TRÚC Gi¸o viªn: lª thÞ tuyÕt mai SBD Họ tên Ngày sinh Văn Toán Xếp loại 01 Lê Tuấn Anh 12/12/1990 8 10 02 Đào Thị Bình 02/01/1990 9 8.5 40 Lê Thị Tuyết 20/10/1991 7 8 B I TO N T V N À Á ĐẶ Ấ ĐỀ B¶ng kÕt qu¶ thi Trường (Field) Bản ghi (Record) a. Khái niệm: 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. b. Khai báo: Type < tên kiểu 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; Var <tên biến > : <tên kiểu bản ghi>; 1. DỮ LIỆU KIỂU BẢN GHI (RECORD) SBD Họ tên Ngày sinh Văn Toán Xếp loại 01 Lê Tuấn Anh 12/12/1990 8 10 02 Đào Thị Bình 02/01/1990 9 8.5 40 Lê Thị Tuyết 20/10/1991 7 8 Type Hoc sinh = record SBD: byte; Hoten: string[30]; Ngaysinh: string[10]; Van, Toan: real; Xeploai: char; end; Var LOP: ARRAY[1 40] of Hoc sinh; i,n : integer; Type < tên kiểu 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; Var <tên biến > : <tên kiểu bản ghi>; c) Tham chiếu đến trường của bản ghi Ví dụ: Để tham đến điểm toán của học sinh thứ i trong lớp ta viết: Lop[i].Toan 1. DỮ LIỆU KIỂU BẢN GHI (RECORD) <Tên biến bản ghi>. <Tên trường> d) Nhập các phần tử của kiểu bản ghi Write(‘ Nhap vao so hoc sinh’ ); readln(n); For i:=1 to n do Begin writeln(‘ Nhap thong tin cho hoc sinh thu‘,i:); Write(‘ SBD: ‘); readln(LOP[i].SBD); Write(‘Ho ten: ‘); readln(LOP[i].Hoten); Write(‘Ngay sinh: ‘); readln(LOP[i].Ngaysinh); Write(‘ Diem toan: ‘);readln(LOP[i].Toan); Write(‘ Diem Van: ‘);readln(LOP[i].Van); end; 108 Lê Tuấn Anh 01 8.59 Đào Thị Bình 02 … … ………… ………….… 87 Lê Thị Tuyết 40 ToanVan Ho ten SBD Ngaysinh 02/01/1990 ………… 20/10/1991 12/12/1990 e) Xuất các phần tử của kiểu bản ghi Writeln(‘ BANG KET QUA THI ‘); For i:=1 to n do Writeln(Lop[i].Hoten:20,’ xep loai:’,Lop[i].Xep loai:5); a. Gán trực tiếp: A:= B ( A, B là hai biến bản ghi cùng kiểu) b. Gán giá trị cho từng trường 2. GÁN GIÁ TRỊ - Nhập vào từ bàn phím: Ví dụ: write(‘nhap ho ten:’); readln(Lop[i].Hoten); - Dùng câu lệnh gán: Ví dụ: Lop[i].Hoten := ‘Le TuấnAnh’ [...]... Lop[i].Xeploai:=C else Lop[i].Xeploai:=D; End; CNG C Type = record : ; : ; end; Var : ; 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: . 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 . tên kiểu bản ghi& gt; = record <tên trường 1> : < ;kiểu trường 1>; <tên trường n> : < ;kiểu trường n>; end; Var <tên biến > : <tên kiểu bản ghi& gt;; 1. DỮ LIỆU KIỂU. < tên kiểu bản ghi& gt; = record <tên trường 1> : < ;kiểu trường 1>; <tên trường n> : < ;kiểu trường n>; end; Var <tên biến > : <tên kiểu bản ghi& gt;; c). Tham chiếu đến trường của bản ghi Ví dụ: Để tham đến điểm toán của học sinh thứ i trong lớp ta viết: Lop[i].Toan 1. DỮ LIỆU KIỂU BẢN GHI (RECORD) <Tên biến bản ghi& gt;. <Tên trường> d)