GV: Phạm Quang Thắng
Trường THPT Cẩm Thủy 3
Lớp: 11A2.
Tiết theo ppct: 32.
GV: Phạm Quang Thắng
Trường THPT Cẩm Thủy 3
* Xét bài toán:
Bản ghi
Trường
- Yêu cầu: Viết chương trình nhập vào kết quả của từng học sinh, tính điểm trung bình và đưa ra màn hình học sinh có điểm trung bình cao nhất.
- Cho bảng kết quả điểm thi học kỳ I năm học 2007 - 2008:
GV: Phạm Quang Thắng
Trường THPT Cẩm Thủy 3
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 dữ liệu kiểu bản ghi:
Type
< tên kiểu bản ghi> = record
: kiểu dữ liệu 1;
< tên trường 2> : kiểu dữ liệu 2;
.............
end;
Var : ;

: ARRAY[1..Max] of < tên kiểu bản ghi>;
GV: Phạm Quang Thắng
Trường THPT Cẩm Thủy 3
2.Khai báo dữ liệu kiểu bản ghi.













Type
< tên kiểu bản ghi> = record
: kiểu dữ liệu 1;
< tên trường 2> : kiểu dữ liệu 2;
.........
end;
Var
: ;
: ARRAY[1..Max] of < tên kiểu bản ghi>;
Cấu trúc BG
Cú pháp
GV: Phạm Quang Thắng
Trường THPT Cẩm Thủy 3
3.Các thao tác với bản ghi.
a.Nhập thông tin cho biến kiểu bản ghi.
- Để nhập dữ liệu vào biến bản ghi ta có thể tiên hành theo một trong hai cách:
Cách 1: Dùng lệnh gán trực tiếp: Nếu hai biến bản ghi có cùng kiểu, thì có thể gán giá trị cảu biến B cho biến A bằng câu lệnh: A:=B.
Cách 2: Nhập dữ liệu cho từng trường bằng câu lệnh gán hoặc từ bàn phím.
- Để truy xuất vào các trường của bản ghi ta sử dụng cấu trúc cú pháp: .
GV: Phạm Quang Thắng
Trường THPT Cẩm Thủy 3
3.Các thao tác với bản ghi.
b. In dữ lữ kiểu bản ghi.
- Để in dữ liệu kiểu bản Ghi ta phải tiến hành in từng trường của bản ghi. Việc tiến hành in dữ liệu của từng trường ta sử dụng cấu trúc cú pháp.
Write(.);
Hoặc Writeln (.);
GV: Phạm Quang Thắng
Trường THPT Cẩm Thủy 3
type HS=record
HT:String[30];
SBD:byte;
DT: real;
DL:real;
DH: real;
DTB:real;
End;
Var
HS1:array[1..50]of HS;
A:HS;
i:byte;









Begin
Writeln(`Nhap danh sach hoc sinh`);
For i:=1 to 10 do
Begin
Write(`Nhap ten cua hoc sinh`,i);
Readln(HS1[i].HT);
Write(`Nhap diem toan`,i);
Readln(HS1[i].DT);
Write(`Nhap diem ly`,i);
Readln(HS1[i].DL);
Write(`Nhap diem hoa`,i);
Readln(HS1[i].DH);
HS1[i].SBD:=i; HS1[i].DTB:=(HS1[i].DT+HS1[i].DL+HS1[i].DH)/3;
End;
A:=HS1[1];
for i:=1 to 10 do
If HS1[i].DTB>A.DTB then A:=HS1[i];
Writeln(` Danh sach hoc sinh co diem trung binh cao nhat la`);
for i:= 1 to 10 do
if A.DTB=HS1[i].DTB then writeln(HS1[i].HT);
readln;
End.
Chạy chương trình
GV: Phạm Quang Thắng
Trường THPT Cẩm Thủy 3
Tổng kết











? 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.
? 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