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

BÀI 13. KIỂU BẢN GHI
ĐẶC VẤN ĐỀ
BẢNG KIỂM TRA CHẤT LƯỢNG
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 tổng >= 10, thì kết quả là đạt
1.Một Số Khái Niệm
Kiểu bản ghi được dùng để mô tả cho 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ản ghi thường gọi là Record, mỗi Record sẽ lưu dữ liệu về một đối tượng cần quản lí
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.
Type
= record
:
…………………….
:
end;
2. Khai báo
Var < tên biến bản ghi> : < tên kiểu bản ghi>
: ARRAY [1.. Max] of < tên kiểu bản ghi>
Cách khai báo kiểu:
Cách khai báo biến:
2. Khai Báo
Type
hossinh = record
SBD: integer;
hoten: string [30];
toan, van, tong : real;
ketqua: string [8];
Var A,B : LOP;
LOP : ARRAY [1..43] of hocsinh;
i,j,n : integer;
Học sinh
Số báo danh
Họ Và Tên
Điểm môn tóan văn
Kết quả
Mỗi cột là một trường
Mỗi hàng là một bản ghi
3. Các thao tác với bản ghi
Các bước
a. Nhập thông tin học sinh
Nhập thông tin học sinh
Nhập dữ liệu ( các thuộc tính ) của từng bản ghi
Write(‘ Nhap vao so hoc sinh trong lop : ‘); readln(n);
Thể hiện bằng pascal
For i:=1 to n do
Begin
writeln(‘ Nhap du lieu cho hoc sinh thu ‘,i);
Write(‘ SBD : ‘); readln(LOP[i].SBD);
Write(‘HO TEN : ‘); readln(LOP[i].Hoten);
Write(‘ Diem toan : ‘);readln(LOP[i].Toan);
Write(‘ Diem van : ‘);readln(LOP[i].Van);
end;
Khi i = 1 LOP[1].SBD
giá trị trường cho SBD của học sinh thứ nhất nằm ở bản ghi đầu tiên.
Tương tự như vậy nhập các giá trị còn lại.( họ tên, điểm văn, tóan)
quá trình nhập kết thúc khi nhập hết dữ liệu của bản ghi
a. Nhập thông tin học sinh
b.Các thao tác xử lí trong bản ghi
Tính tổng điểm văn, tóan của từng hoc sinh
For i:=1 to n do
LOP[i].Tong:= LOP[i].Toan + LOP[i].Van;
Nếu tổng lớn hơn 10 thì điền từ “ đạt ” vào kết quả, nếu tổng nhỏ hơn 10 thi in từ “ không đạt”

For i:=1 to n do
IF LOP[i].Tong>=10 then
LOP[i].Ketqua=‘Dat’
else LOP[i].Ketqua=‘Khong dat’;

4.Gán Giá Trị
Có 2 cách gán giá trị cho biến bản ghi :
Dùng lệnh gán trực tiếp: Với A,B cùng kiểu bản ghi
VD: A := B
Dùng lệnh gán trực tiếp: thực hiện câu lệnh bằng lệnh gán hoăc nhập từ bàn phím
VD: A.hoten:= “ Le Nhat Duy”;
5. Một Số Ví Dụ
VD1: Một địa chỉ (ở thành phố HCM) bao gồm : số nhà, tên đường,phường, quận, ta mô tả Record diachi như sau:
Type
Diachi = RECORD
sonha: string [10] ;
tenduong: string [30];
phuong: string [30];
quan: string [10];
end;
VD2: để mô tả thời gian ta có 3 trường hợp: ngày, tháng, năm
5. Một Số Ví Dụ
TYPE
date = RECORD
ngay: 1..31;
thang: 1..12;
nam: integer;
end;
6.Bài Tập Về Nhà
2. Mô tả số học sinh của 1 lớp học với sỉ số của lớp là 40, ta dùng các trường số thứ tự, họ và tên, giới tính, năm sinh, địa chỉ. Giả sử ta đã có mô tả kiểu date, diachi ở ví dụ 1, ví dụ 2.
1.Mô tả 1 điểm trong không gian 3 chiều.