Kieu Record

GV: Ph¹m Quang Th¾ng
GV: Ph¹m Quang Th¾ng
Tr­êng THPT CÈm
Tr­êng THPT CÈm
Thñy 3
Thñy 3
Líp
Líp
:
:
11A2.
11A2.
TiÕt theo ppct
TiÕt theo ppct
: 32
: 32
.
.




GV: Phạm Quang Thắng
GV: Phạm Quang Thắng
Trường THPT Cẩm
Trường THPT Cẩm
Thủy 3

Thủy 3
*
*
Xét bài toán:
Xét bài toán:
Họ tên
Họ tên
SBD
SBD
Toán
Toán
Lý
Lý
Hóa
Hóa
ĐTB
ĐTB
Nguyễn A
Nguyễn A
01
01
6.0
6.0
6.0
6.0
6.0
6.0
Phạm B
Phạm B
02

02
6.0
6.0
1.5
1.5
2.5
2.5


.
.


.
.


..
..


.
.




.
.

.
.


..
..


.
.




.
.
50
50
6.0
6.0
2.5
2.5
3.5
3.5
Bản ghi
Bản ghi
Trường
Trường
-

-
Yêu cầu:
Yêu cầu:
Viết chương trình nhập vào kết quả của từng học sinh,
Viết chương trình nhập vào kết quả của từng học sinh,
tính điểm trung bình và đưa ra màn hình học sinh có điểm trung bình
tính điểm trung bình và đưa ra màn hình học sinh có điểm trung bình
cao nhất.
cao nhất.
- Cho bảng kết quả điểm thi học kỳ I năm học 2007 2008:
- Cho bảng kết quả điểm thi học kỳ I năm học 2007 2008:




GV: Ph¹m Quang Th¾ng
GV: Ph¹m Quang Th¾ng
Tr­êng THPT CÈm
Tr­êng THPT CÈm
Thñy 3
Thñy 3
1.D÷ liÖu 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
- 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.
mµ c¸c thuéc tÝnh cã thÓ cã kiÓu d÷ liÖu kh¸c nhau.
2.Khai b¸o d÷ liÖu kiÓu b¶n ghi

2.Khai b¸o d÷ liÖu kiÓu b¶n ghi
:
:
Type
Type


< tªn kiÓu b¶n ghi> =
< tªn kiÓu b¶n ghi> =
record
record
<tªn tr­êng 1> : kiÓu d÷ liÖu 1;
<tªn tr­êng 1> : kiÓu d÷ liÖu 1;
< tªn tr­êng 2> : kiÓu d÷ liÖu
< tªn tr­êng 2> : kiÓu d÷ liÖu
2;
2;


……………… … ……………
……………… … ……………
.
.


end;
end;
Var
Var
<tªn biÕn > : <tªn kiÓu b¶n ghi>;

<tªn biÕn > : <tªn kiÓu b¶n ghi>;
<tªn m¶ng > : ARRAY[1..Max] of < tªn kiÓu b¶n
<tªn m¶ng > : ARRAY[1..Max] of < tªn kiÓu b¶n
ghi>;
ghi>;




GV: Ph¹m Quang Th¾ng
GV: Ph¹m Quang Th¾ng
Tr­êng THPT CÈm
Tr­êng THPT CÈm
Thñy 3
Thñy 3
2.Khai b¸o d÷ liÖu kiÓu b¶n ghi.
2.Khai b¸o d÷ liÖu kiÓu b¶n ghi.
TT Häc sinh.
TT Häc sinh.
Hä tªn
Hä tªn
Sè b¸o danh
Sè b¸o danh
§iÓm To¸n
§iÓm To¸n
§iÓm Lý
§iÓm Lý
§iÓm Hãa
§iÓm Hãa
§iÓm TB

§iÓm TB
Type
Type




< tªn kiÓu b¶n ghi> =
< tªn kiÓu b¶n ghi> =
record
record
<tªn tr­êng 1> : kiÓu d÷ liÖu 1;
<tªn tr­êng 1> : kiÓu d÷ liÖu 1;
< tªn tr­êng 2> : kiÓu d÷ liÖu 2;
< tªn tr­êng 2> : kiÓu d÷ liÖu 2;
…… … …… … …… …
…… … …… … …… …


end;
end;
Var
Var


<tªn biÕn > : <tªn kiÓu b¶n ghi>;
<tªn biÕn > : <tªn kiÓu b¶n ghi>;


<tªn m¶ng > :

<tªn m¶ng > :
ARRAY[1..Max] of < tªn kiÓu
ARRAY[1..Max] of < tªn kiÓu
b¶n ghi>;
b¶n ghi>;
CÊu tróc BG
CÊu tróc BG
Có ph¸p
Có ph¸p




GV: Phạm Quang Thắng
GV: Phạm Quang Thắng
Trường THPT Cẩm
Trường THPT Cẩm
Thủy 3
Thủy 3
3.Các thao tác với bản ghi.
3.Các thao tác với bản ghi.
a.Nhập thông tin cho biến kiểu bản ghi.
a.Nhập thông tin cho biến kiểu bản ghi.
- Để nhập dữ liệu vào biến bản ghi ta có thể tiên hành theo một
- Để nhập dữ liệu vào biến bản ghi ta có thể tiên hành theo một
trong hai cách:
trong hai cách:
Cách 1:
Cách 1:
Dùng lệnh gán trực tiếp: Nếu hai biến bản ghi có

Dùng lệnh gán trực tiếp: Nếu hai biến bản ghi có
cùng kiểu, thì có thể gán giá trị cảu biến B cho biến A bằng câu
cùng kiểu, thì có thể gán giá trị cảu biến B cho biến A bằng câu
lệnh:
lệnh:
A:=B.
A:=B.
Cách 2:
Cách 2:
Nhập dữ liệu cho từng trường bằng câu lệnh gán
Nhập dữ liệu cho từng trường bằng câu lệnh gán
hoặc từ bàn phím.
hoặc từ bàn phím.
- Để truy xuất vào các trường của bản ghi ta sử dụng cấu
- Để truy xuất vào các trường của bản ghi ta sử dụng cấu
trúc cú pháp:
trúc cú pháp:
<Tên biến bản ghi>.<Tên trường>
<Tên biến bản ghi>.<Tên trường>