TRẦN HỮU TRANG
TRƯỜNG TRUNG HỌC PHỔ THÔNG

TIN HỌC 11
Đặng Hữu Hoàng
BÀI 13
KIỂU BẢN GHI
Thời gian 1 tiết
BÀI TOÁN NÊU VẤN ĐỀ
Bản ghi
(Record)
Trường
(Field)
Yêu cầu: Nhập vào thông tin của từng học sinh, tính tổng và xét kết quả, biết rằng nếu tổng >=10 thì kết quả là “Đạt”
1. KHÁI NIỆM KIỂU BẢN GHI
Nghiên cứu sách giáo khoa, em hiểu như thế nào là bản ghi?
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ó các kiểu dữ liệu khác nhau.
Mỗi đối tượng mô tả bằng một bản ghi.
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ó các dữ liệu khác nhau.
Những yếu tố nào để xác định bản ghi?
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.
2. KHAI BÁO KIỂU BẢN GHI
Cấu trúc khai báo kiểu bản ghi trong Pascal?
TYPE
= record
: < kiểu trường 1>;
: < kiểu trường 2>;
………………………………….;
: < kiểu trường n>;
end;
VAR
: ;
: array [1..max] of :
Cấu trúc khi tham chiếu đến từng trường của biến bản ghi?
. ;
A.Hoten
B.NgaySinh
Lop[i].Toan
Lop[i].Ly
Ví dụ:
3. THAM CHIẾU TỚI KÍ TỰ CỦA XÂU
Với i là chỉ số nào đó của mảng Lop
Type
Hocsinh = record
SBD: integer;
Hoten: string[30];
Ngaysinh:String[10]; Gioitinh:Boolean;
Toan,Van,Tong: real;
Ketqua: string[10];
end;
Var LOP: ARRAY[1..50] of Hocsinh;
i,j,n : integer;
Khai báo dữ liệu cho các trường (field)
Khai báo biến kiểu bản ghi (record)
4. CÁC THAO TÁC VỚI BẢN GHI
1. Nhập thông tin cho từng học sinh
Thuật toán
Chương trình Pascal
Write(‘ Nhap vao so hoc sinh trong lop : ‘);
readln(n);
- Nhập số học sinh
For i:=1 to n do
Begin
writeln(‘ Nhap du lieu cho hoc sinh thu ‘,i);
Write(‘ SBD : ‘); readln(LOP[i].SBD);
Write(‘Ho va ten : ‘); readln(LOP[i].Hoten);
Write(‘Ngay Sinh : ‘); readln(LOP[i].Ngaysinh);
Write(‘Gioi tinh : ‘); readln(LOP[i].Gioitinh);
Write(‘ Diem toan : ‘);readln(LOP[i].Toan);
Write(‘ Diem van : ‘);readln(LOP[i].Van);
end;
- Nh?p d? ki?u (cỏc tru?ng) c?a b?n ghi
2. Các thao tác xử lí trong bản ghi
Thuật toán
Chương trình Pascal
- Tính tổng điểm Văn và điểm toán của từng học sinh trong lớp
- Di?n ch? "Dat" v�o c?t k?t qu? cho nh?ng h?c sinh cú t?ng >= 10, ngu?c l?i di?n ch? "Khong dat"
For i:=1 to n do
LOP[i].Tong:= LOP[i].Toan + LOP[i].Van;
For i:=1 to n do
IF LOP[i].Tong>=10 then LOP[i].Ketqua=‘Dat’
else LOP[i].Ketqua=‘Khong dat’;
3. In dữ liệu kiểu bản ghi
Thuật toán
Chương trình Pascal
Thông báo in
Writeln(‘ Bang ket qua thi ‘);
For i:=1 to n do
In bảng dữ liệu
Writeln(LOP[i].SBD:5,LOP[i].Hoten:30, LOP[i].Ngaysinh:15, LOP[i].Gioitinh:7, LOP[i].Toan:5:1,LOP[i].Van:5:1,
LOP[i].Tong:8:1,LOP[i].Ketqua:15);
1. Dùng lệnh gán trực tiếp để gán giá trị cho biến
5. GÁN GIÁ TRỊ
Tên biến 1, tên biến 2: là hai biến bản ghi cùng kiểu
. ;
Ví dụ:
A:=B;
B:=A;
2. Dùng lệnh gán để gán giá trị cho từng trường
Câu lệnh gán gán giá trị cho các trường hoặc nhập vào từng bàn phím
Ví dụ:
A.Hoten:=‘Nguyen Thi Minh Hue’;
. :=
Quan sát sách giáo khoa trang 77_Chương trình nhập vào từ bàn phím thông tin của từng học sinh trong lớp, thực hiện xếp loại và đưa ra màn hình kết quả xếp loại học sinh
DẶN DÒ
1. Học tiếp §14 “Kiểu dữ liệu file” _Trang 82 _ Sách giáo khoa.
2. Thực hiện bài tập 11 _ trang 80 _Sách Giáo khoa
Thực hiện tháng 02 năm 2008
Thân ái chào các em
Bài học đã
KẾT THÚC
E_mail: dhhoang03@yahoo.co.uk