Bài 13. Kiểu bản ghi

Giáo viên thực hiện : Nguyễn Như Sơn
Lớp : 11A7
chào mừng quý cô thầy cùng tất các em đến với môn tin học lớp 11
Nêu cách khai báo biến
và tham chiếu đến từng phần tử của xâu.
Mỗi yêu cầu cho một ví dụ
- Cách khai báo biến kiểu xâu:
Var : String[độ dài lớn nhất];
Var S : String[30];
Ví dụ
- Tham chiếu tới phần tử của xâu
[chỉ số];
S[10];
Ví dụ
Bài 13
Kiểu bản ghi
chào mừng quý cô thầy cùng tất các em đến với môn tin học lớp 11
Bài 13

Kiểu bản ghi
Bảng kết quả kiểm tra chất lượng
Thuộc tính
Đối tượng
Bài cũ
Đặt vấn đề
Khai báo biến
Gán giá trị
Củng cố bài
Bài 13

Kiểu bản ghi
- Kiểu bản ghi:
- Trong kiểu bản ghi:
+ Mỗi thuộc tính (cột):
+ Mỗi đối tượng (hàng):
+ Các trường khác nhau có thể có kiểu dữ liệu khác nhau
được gọi là một trường
được gọi là một bản ghi
Bài cũ
Đặt vấn đề
Khai báo biến
Gán giá trị
Củng cố bài
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ó các
kiểu dữ liệu khác nhau
Bài 13

Kiểu bản ghi
Bảng kết quả kiểm tra chất lượng
Trường
(field)
Bài cũ
Đặt vấn đề
Khai báo biến
Gán giá trị
Củng cố bài
Bản ghi
(record)
Bài 13

Kiểu bản ghi
- Tên kiểu bản ghi
Quy tắc, cách thức xác định kiểu bản ghi gồm:
- Tên các thuộc tính (trường)
- Kiểu dữ liệu của mỗi trường
- Cách tham chiếu đến từng trường
Khai báo biến
Bài cũ
Đặt vấn đề
Khai báo biến
Gán giá trị
Củng cố bài
Bài 13

Kiểu bản ghi
Type = Record
1. Khai báo biến kiểu bản ghi
:
:
...........
:
End;
Var

;
:
Bài cũ
Đặt vấn đề
Khai báo biến
Gán giá trị
Củng cố bài
;
;
;
Bài 13

Kiểu bản ghi
:
Trong đó
,.., :
,..,:
:
Là tên kiểu bản ghi do người lập trình đặt
Là tên các thuộc tính
Là kiểu dữ liệu của thuộc tính
Là tên biến kiểu bản ghi do người lập trình đặt
Bài cũ
Đặt vấn đề
Khai báo biến
Gán giá trị
Củng cố bài
Bài 13

Kiểu bản ghi
Ví dụ: Hãy viết khai báo biến gồm các thuộc tính
sau: Hoten, Toan, Van, TB, Ketqua cho 1 học sinh
Bài cũ
Đặt vấn đề
Khai báo biến
Gán giá trị
Củng cố bài
Bài 13

Kiểu bản ghi
Type = Record
: ;
: ;
...........
: ;
End;
Var : ;
Type Hocsinh = Record
Hoten : String[30];
Toan : Real;
Van : Real;
TB : Real;
Ketqua : String[10];
Var A :
Hãy viết khai báo biến gồm các thuộc tính sau: Hoten, Toan, Van, TB, Ketqua cho 1
học sinh

Hocsinh
;
Bài cũ
Đặt vấn đề
Khai báo biến
Gán giá trị
Củng cố bài
Bài 13

Kiểu bản ghi
Tham chiếu đến từng trường của bản ghi
.
Ví dụ
A.Hoten
: Tham chiếu đến trường Hoten của biến bản ghi A
A.Toan
: Tham chiếu đến trường Toan của biến bản ghi A
Bài cũ
Đặt vấn đề
Khai báo biến
Gán giá trị
Củng cố bài
Bài 13

Kiểu bản ghi
2. Gán giá trị
- Có hai cách:
+ Dùng lệnh gán trực tiếp
+ Gán giá trị cho từng trường
Bài cũ
Đặt vấn đề
Khai báo biến
Gán giá trị
Củng cố bài
Bài 13

Kiểu bản ghi
* Gán giá trị trực tiếp:
- Nếu A và B là hai biến bản ghi cùng kiểu, thì ta có
thể gán giá trị của B cho A bằng lệnh :
* Gán giá trị cho từng trường:
- Thực hiện bằng lệnh gán hoặc nhập từ bàn phím
cho từng trường
+ Thực hiện bằng lệnh gán, VD:
A.Hoten
+ Nhập từ bàn phím, VD:
Write(`Nhap Hoten`) ;
Readln(A.Hoten) ;
Bài cũ
Đặt vấn đề
Khai báo biến
Gán giá trị
Củng cố bài
A: = B;
:= `Dao Van Binh`
Bài 13

Kiểu bản ghi
Ví dụ
Viết chương trình nhập vào Hoten, Toan, Van, của một
học sinh trong lớp. Tính điểm TB và đưa ra màn hình
kết quả là `Do` nếu điểm TB của học sinh đó >= 5 và
ngược lại là `Hong`
Bài cũ
Đặt vấn đề
Khai báo biến
Gán giá trị
Củng cố bài
Bài 13

Kiểu bản ghi
Khai báo biến
Type = Record
: ;
: ;
...........
: ;
End;
Var : ;
End;
Type Hocsinh = Record
Hoten : String[30];
Toan : Real;
Van : Real;
TB : Real;
Ketqua : String[30];
Var A : Hocsinh;
Bài cũ
Đặt vấn đề
Khai báo biến
Gán giá trị
Củng cố bài
Bài 13

Kiểu bản ghi
Nội dung chương trình
B1: Nhập dữ liệu cho học sinh
Writeln(`Nhap Hoten`);
Lệnh trong Pascal
Các bước thực hiện
Readln(A.Hoten);
Writeln(`Nhap diem Toan`);
Readln(A.Toan);
Writeln(`Nhap diem Van`);
Readln(A.Van);
B2: Tính điểm TB
A.TB := (A.Toan + A. Van)/2;
B3: Kiểm tra kết quả
If A.TB >= 5 Then A.Ketqua := `Do`
Else A.Ketqua := `Hong`
Writeln( `Ket qua la ` , A.Ketqua);
B4: Đưa kết quả ra màn hình
Bài cũ
Đặt vấn đề
Khai báo biến
Gán giá trị
Củng cố bài
Bài 13 Kiểu bản ghi
Chương trình hoàn chỉnh
End;
Type Hocsinh = Record
Hoten, Ket qua : String[30];
Toan, Van, TB : Real;
Var A : Hocsinh;
Program Vidu1 ;
Uses Crt ;
Begin
Clrscr;
Writeln(`Nhap Hoten`);
Readln(A.Hoten);
Writeln(`Nhap diem Toan, Van`);
Readln(A.Toan, A. Van);
A.TB := (A.Toan + A. Van)/2;
If A.TB >= 5 Then A.Ketqua := `Do`
Else A.Ketqua := `Hong`
Writeln( `Ket qua la ` , A.Ketqua);
Readln;
End.
Bài cũ
Đặt vấn đề
Khai báo biến
Gán giá trị
Củng cố bài
Bài 13. Kiểu bản ghi
Hãy nhớ
1. Khai báo biến bản ghi
Type = Record
: ;
: ;
............
: ;
End;
Var : ;
2. Tham chiếu đến trường
của biến bản ghi
.
3. Gán giá trị
- Dùng lệnh gán trực tiếp
- Gán giá trị cho từng trường
Bài cũ
Đặt vấn đề
Khai báo biến
Gán giá trị
Củng cố bài
Bài 13

Kiểu bản ghi
Nhiệm vụ về nhà
Nhiệm vụ 1: Viết chương trình nhập vào các thông tin: Hoten, Toan, Van cho 50 học sinh trong một lớp. Tính điểm TB cho 50 học sinh đó và đưa ra màn hình kết quả là Hoten của những người đỗ. (biết rằng kết quả là `Do` nếu điểm TB >= 5)
Nhiệm vụ 2: Xem thêm về câu lệnh With trang 134 SGK
Bài cũ
Đặt vấn đề
Khai báo biến
Gán giá trị
Củng cố bài
Bài 13

Kiểu bản ghi
Hướng dẫn bài 1
1. Định nghĩa kiểu bản ghi Hocsinh gồm các trường: Hoten, Ketqua - String[30]; Toan, Van, TB - Real;
2. Khai báo kiểu bản ghi: Mảng gồm 50 phần tử, mỗi phần tử là một bản ghi có kiểu là Hocsinh
3. Dựa vào bài toán đã làm cho một học sinh, từ đó phát triển cho 50 học sinh
Bài cũ
Đặt vấn đề
Khai báo biến
Gán giá trị
Củng cố bài