GIÁO ÁN TIN HỌC LỚP 11
Giáo viên hướng dẫn: Cô Ngô Thị Tú Quyên
Sinh viên thực hiện: Thào Xuân Minh
Lớp : SP Tin K42 - Trường ĐHSP - ĐHTN
Tiết:…………………
Lớp:…………………
Ngày soạn:……………
Ngày giảng:…………
BÀI 13. KIỂU BẢN GHI
I. Mục đích, yêu cầu:
1. Về kiến thức:
− Biết khái niệm kiểu bản ghi
− Biết cách khai báo bản ghi, Truy cập trường của bản ghi.
− Biết cách gán và nhập giá trị cho bản ghi.
2. Về kĩ năng:
− Bước đầu biết mô tả 1 đối tượng bằng 1 số thuộc tính cần quản lí.
− Khai báo kiểu bản ghi.
− Nhận biết được trường (thuộc tính) của 1 biến bản ghi và bước đầu xác
định được 1 vài thao tác xử lí trên từng trường của bản ghi.
3. Về tư tưởng, tình cảm:
− Ham thích môn học và có ý thức tự giác trong học tập.
II. Đồ dùng dạy học:
1. Chuẩn bị của giáo viên:
− SGK Tin học lớp 11, giáo án, tài liệu tham khảo, SGV.
2. Chuẩn bị của HS:
− Vở ghi lý thuyết, SGK Tin học lớp 11.
III. Hoạt động dạy và học:
1. Ổn định tổ chức lớp: (1’)
− Yêu cầu lớp trưởng báo cáo sĩ số:
− Lớp:…… Tổng số: …… Vắng: …… Có lí do:……
2. Gợi động cơ mở đầu: (2’)

của 1 thí sinh thì có
kiểu dữ liệu như thế
- Theo dõi SGK và chú
ý lắng nghe.
- Lưu trữ thông tin của
1 thí sinh.
- Các kiểu dữ liệu là
khác nhau.
?
?
?
ghi tương ứng với
các đối tượng. Mỗi
thuộc tính của đối
tượng tương ứng với
một trường của bản
ghi, các trường khác
nhau có thể có dữ
liệu khác nhau.
- Ngôn ngữ lập trình
đưa ra quy tắc, cách
thức xác định:
• Tên kiểu bản ghi.
• Tên các thuộc tính
(trường).
• Kiểu dữ liệu của mỗi
trường.
• Cách khai báo biến.
• Cách tham chiếu đến
trường.

- Chú ý lắng nghe.
- Dữ liệu kiểu bản ghi
(Record) dùng để mô
tả các đối tượng có
cùng một số thuộc
tính mà các thuộc
?
?
Ngôn ngữ lập trình
đưa ra quy tắc, cách
thức xác định kiểu bản
ghi như thế nào?
Nói: Dưới đây sẽ giới
thiệu cách khai báo
kiểu, biến, tham chiếu
đến từng trường và
phép gán giá trị bản ghi
trong Pascal.
tính có thể có kiểu dữ
liệu khác nhau.
• Tên kiểu bản ghi.
• Tên các thuộc tính
(trường).
• Kiểu dữ liệu của mỗi
trường.
• Cách khai báo biến.
• Cách tham chiếu đến
trường.
- Chú ý lắng nghe
B, Hoạt động 2: (12’) Tìm hiểu phần 1, Khai báo sgk trang 75:

- Ví dụ:
Const Max:=60;
Type
Hocsinh=record
Hoten: string[30];
Ngaysinh:[10];
Gioitinh: Boolean;
Tin, Toan, Li, Hoa,
Van, Su, Dia: Real;
End;
var A,B: Hocsinh;
Lop:array[1 Max]
of Hocsinh;
- Nếu A là biến
kiểu bản ghi và X
Tên các thuộc tính, kiểu dữ liệu
của mỗi thuộc tính.
- Kiểu bản ghi thường được
định nghĩa như sau:
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;
- Sau khi có kiểu bản ghi biến
bản ghi sẽ được khai báo như
sau:
<tên biến bản ghi>: <tên kiểu bản
ghi>;
Với cách khai báo như vậy

- Để tham chiếu
đến điểm tin học
của 1 HS trong ví
dụ trên ta viết:
A.Tin
- Lưu ý: Vì lớp có tối đa là 60
HS nên có thể gán biến
Max=60.
Nếu A là biến kiểu bản ghi
và X là tên 1 trường của A thì
để tham chiếu đến trường X, ta
làm thế nào?
Để tham chiếu đến điểm
tin học của 1 HS trong ví dụ
trên ta viết như thế nào?
Muốn tham chiếu đến điểm
văn của HS thứ 30 trong ví dụ
trên ta viết như thế nào?
- Ta viết: A.X
- Ta viết: A.Tin
- Ta viết:
Lop[30].Van;
C, Hoạt động 3: (13’) Tìm hiểu về mục 2. Gán giá trị sgk trang 76.
− Mục tiêu: Nhằm giúp HS biết phân biệt giá trị của biến bản ghi và giá
trị của 1 trường trong bản ghi.
− Biết gán giá trị cho từng trường và biến bản ghi.
− Nội dung hoạt động:
Nội dung ghi bảng Hoạt động của
thầy
Hoạt động của trò

Const Max:=60;
Type Hocsinh=record
Hoten: string[30];
Ngaysinh:[10];
Diachi: string[50];
Toan, Van: Real;
Xeploai: char;
End;
var N,i: Byte;
Lop: array[1 Max] of
Hocsinh;
Begin
Clrscr;
Write(‘nhap so HS trong
lop:’ ); readln(N);
For i:=1 to N do
Begin
Write(‘nhap so lieu ve HS
thu’, i, ‘: ’);
Write(‘Ho va
ten:’);readln(Lop[i].Hoten);

If
Lop[i].Toan+Lop[i].Van>=18
then Lop[i].Xeploai:= ‘A’;

lưu ý cho HS:
Chỉ khi nào 2
biến cùng kiểu thì
mới gán cho nhau

dữ liệu bản ghi và
cách khai báo như
sau:
Type
Hocsinh=record
Hoten: string[30];
Ngaysinh:[10];
Diachi: string[50];
Toan, Van: Real;
?
?
End;
{thong bao ket qua}
End.
Để xếp loại cho
mỗi HS ta làm thế
nào và sử dụng câu
lệnh nào?
- Hướng dẫn HS
viết chương trình
lên bảng.
Xeploai: char;
End;
var N,i: Byte;
Lop: array[1 Max]
of Hocsinh;
- Ta tính tổng điểm
hai môn văn và
toán sau đó dùng
câu lệnh If Then