Bµi
13
Gi¸o ¸n ®iÖn tö tin häc líp 11
GV Dinh Nguyen Thanh Tu
suu tam va gioi thieu voi CENTEA Data






 !
"#$"
%&'()*+,-'./0
1. Bµi to¸n ®Æt vÊn ®Ò:
B¶ng kÕt qu¶ kiÓm tra chÊt lîng
B¶n ghi
(Record)
Trêng
(Field)
)123456'789:+;<=>6'?'@9A6:B;<
C.3DE=+'F'6G'HI6J'@'=
KL'M&'()JN6&'O&'PQ"' M&'()B
R' “ ”

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.
2. Khai b¸o kiÓu b¶n ghi
Type
< tªn kiÓu b¶n ghi> = record

cho c¸c trêng (field)
Khai b¸o biÕn kiÓu
b¶n ghi (record)

3. C¸c thao t¸c víi b¶n ghi
DE'F'6I6
Write(‘ Nhap vao so hoc sinh trong lop : ‘);
readln(n);
C¸c bíc:
ThÓ hiÖn b»ng
pascal
SDEI5I6
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;
SDE;TB6U(c¸c
thuéc tÝnh) G
'HN)6

"#$"
*+,-='./0
%66Q"LOP[1].SBD

V,' DEM&''WM6DE&';TB6U+N)6
'X

trình hoàn chỉnh
để giải bài toán
đặt vấn đề ?
Program vd1;
Uses crt;
Type { Khai bao}
Hocsinh = record
SBD: integer;
Hoten: string[30];
Toan,Van,Tong:real;
Ketqua: string[10];
end;
Var LOP: ARRAY[1 100] of Hocsinh;
i,n: integer;
BEGIN
Clrscr; { nhap so hoc sinh }
Write( Nhap vao so hoc sinh trong lop : );
readln(n);
{ nhap du lieu tung ban ghi}
For i:=1 to n do
Begin
writeln( Nhap so lieu hoc sinh thu ,i);
Write( SBD : ); readln(LOP[i].SBD);
Write(HO VA TEN : ); readln(LOP[i].Hoten);
Write( Diem toan : );readln(LOP[i].Toan);
Write( Diem van : );readln(LOP[i].Van);
end;
{ tinh tong cho tung ban ghi }
For i:=1 to n do
LOP[i].Tong := LOP[i].Toan + LOP[i].Van;

Var
LOP: ARRAY[1 50] of hocsinh;
LOP[i].SBD