CHÀO MỪNG QUÝ THẦY CÔ
ĐẾN THAM DỰ TIẾT THAO GIẢNG MÔN: TIN HỌC
GIÁO VIÊN GIẢNG DẠY: ĐINH CÔNG BÌNH
KIỂM TRA BÀI CŨ
Câu hỏi: Cho 2 xâu S và S1:
S:=‘THUC HANH TIN HOC’;
S1:=‘BAI TAP’;
Hãy cho biết kết quả của một số hàm và thủ tục chuẩn sau đây:
+Length(S);
+Insert(S1,S,1);
+Copy(S,11,7);
17
BAI TAP THUC HANH TIN HOC
TIN HOC
BẢNG KẾT QUẢ KIỂM TRA CHẤT LƯỢNG
Bài 13:
KIỂU BẢN GHI
GIÁO VIÊN GIẢNG DẠY : ĐINH CÔNG BÌNH
LỚP DỰ GIỜ : 11 A 5
1. Dữ liệu kiểu bản ghi
2. Khai báo
2.1. Khai báo kiểu bản ghi
2.2. Khai báo biến bản ghi
3. Tham chiếu đến từng trường của phần tử bản ghi
4. Gán giá trị
Bài 13:KIỂU BẢN GHI
…
…
...
...
.......
...
10.5
12.5
13.5
13.5
19
Tổng
Đạt
4.5
6.0
Phan Vân
50
Đạt
7.5
5.0
Đặng Anh Tuấn
49
Đạt
6.5
7.0
Trần Thu Trà
48
Đạt
5.0
8.5
Vũ Ngọc Bình
02
Đạt
9.0
10.0
Nguyễn An
01
Kết quả
Văn
Toán
Họ tên
SBD
BẢNG KẾT QUẢ KIỂM TRA CHẤT LƯỢNG
Bảng gồm : 50 đối tượng (record) với 6 thuộc tính (Field)
Trường
(Field)
Bản ghi
(Record)
Bài 13:KIỂU BẢN GHI
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.
Bài 13:KIỂU BẢN GHI
1. Dữ liệu kiểu bản ghi
2. Khai báo
2.1. Khai báo kiểu bản ghi
2.2. Khai báo biến bản ghi
3. Tham chiếu đến từng trường của phần tử bản ghi
4. Gán giá trị
Bài 13:KIỂU BẢN GHI
2. Khai báo:
2.1. Khai báo kiểu bản ghi:
- Cú pháp:
Type < tên kiểu bản ghi> = record
: ;
...........................................................
< tên trường k> : ;
end;
Bài 13:KIỂU BẢN GHI
Ví dụ:
2.1. Khai báo kiểu bản ghi:
2. Khai báo:
Bài 13:KIỂU BẢN GHI
Type Hocsinh = record
SBD: integer;
Hoten: string[30];
Toan,Van,Tong: real;
Ketqua: string[10];
end;
Ví dụ:
2.1. Khai báo kiểu bản ghi:
2. Khai báo:
Bài 13:KIỂU BẢN GHI
1. Dữ liệu kiểu bản ghi
2. Khai báo
2.1. Khai báo kiểu bản ghi
2.2. Khai báo biến bản ghi
3. Tham chiếu đến từng trường của phần tử bản ghi
4. Gán giá trị
Bài 13:KIỂU BẢN GHI
2.2. Khai báo biến bản ghi:
Ví dụ : Var A : Hocsinh;
a. Dạng có một phần tử bản ghi:
- Cú pháp: Var : ;
2. Khai báo:
Bài 13:KIỂU BẢN GHI
b. Dạng có nhiều phần tử bản ghi:
Cú pháp:
Var : ARRAY[1..n] of < tên kiểu bản ghi>;
Ví dụ : Var LOP: ARRAY[1..50] of Hocsinh;

a. Dạng có một phần tử bản ghi:
2.2. Khai báo biến bản ghi:
2. Khai báo:
Bài 13:KIỂU BẢN GHI
1. Dữ liệu kiểu bản ghi
2. Khai báo
2.1. Khai báo kiểu bản ghi
2.2. Khai báo biến bản ghi
3. Tham chiếu đến từng trường của phần tử bản ghi
4. Gán giá trị
Bài 13:KIỂU BẢN GHI
- Cú pháp: . ;


A.Toan
Ví dụ : Để tham chiếu đến trường điểm Toán của học sinh A?
3. Tham chiếu đến từng trường của phần tử bản ghi:
a. Dạng có một phần tử bản ghi:
Bài 13:KIỂU BẢN GHI
Lop[10].Hoten
Ví dụ : Để tham chiếu đến trường Hoten của học sinh thứ 10 trong lớp ?
- Cú pháp: [chỉ số] . ;
b. Dạng có nhiều phần tử bản ghi:
a. Dạng có một phần tử bản ghi:
3. Tham chiếu đến từng trường của phần tử bản ghi:
Bài 13:KIỂU BẢN GHI
1. Dữ liệu kiểu bản ghi
2. Khai báo
2.1. Khai báo kiểu bản ghi
2.2. Khai báo biến bản ghi
3. Tham chiếu đến từng trường của phần tử bản ghi
4. Gán giá trị
Bài 13:KIỂU BẢN GHI
Gán trực tiếp: gán nguyên cả biến bản ghi

4. Gán giá trị:
Ví dụ:
A:=B
Bài 13:KIỂU BẢN GHI
4. Gán giá trị:
Gán trực tiếp: gán nguyên cả biến bản ghi

Ví dụ:
Gán từng trường:
Ví dụ 1: gán lần lượt từng trường
Gán trực tiếp: gán nguyên cả biến bản ghi

4. Gán giá trị:
Bài 13:KIỂU BẢN GHI
A.Hoten:= B.Hoten; A.Toan:= B.Toan; A.Van:= B.Van;
4. Gán giá trị:
Gán trực tiếp: gán nguyên cả biến bản ghi

Gán từng trường:
Ví dụ 1: gán lần lượt từng trường
Bài 13:KIỂU BẢN GHI
Ví dụ 2: nhập lần lượt từng trường từ bàn phím
Ví dụ 1: gán lần lượt từng trường
Gán từng trường:
4. Gán giá trị:
Bài 13:KIỂU BẢN GHI
Readln(A.Hoten); Readln(A.Toan); Readln(A.Van);
1. Dữ liệu kiểu bản ghi
2. Khai báo
a. Khai báo kiểu bản ghi
b. Khai báo biến bản ghi
3. Tham chiếu đến từng trường của phần tử bản ghi
4. Gán giá trị
Bài 13:KIỂU 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.
 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
Type Hocsinh = record
SBD : integer; Hovaten : string[30];
Toan,Van,Tong:real;
Ketqua :string[10];
end;
Var
LOP: ARRAY[1..50] of hocsinh;
LOP[i].SBD
CỦNG CỐ
Bài 13:KIỂU BẢN GHI
Xem lại bài 13
-Chuẩn bị bài tập ví dụ trong SGK trang 76
DẶN DÒ
Bài 13:KIỂU BẢN GHI
CHÂN THÀNH CẢM ƠN
QUÝ THẦY CÔ
Bài 13:KIỂU BẢN GHI