Trắc nghiệm kiểu bản ghi -có đáp án

Së GD & §T H¶i Phßng
Trêng THPT TrÇn Nh©n T«ng
Bé M«n Tin Häc
Bµi kiÓm tra
M«n: Tin häc 11 – Tr¾c nghiÖm
Thêi gian: 15 phót
§Ò gåm 02 trang sè c©u hái 10 c©u–
Hä vµ tªn :……………………………………………………….. Líp :………
TRẮC NGHIỆM KIỂU BẢN GHI
Câu 1: Chọn khai báo đúng :
a)Type Phanso = Record
Tu, Mau: Integer;
end ;
b) Type Phan so = Record
Tu so, Mau so : Integer;
end;
c)Var Phanso = Record ;
Tu, Mau: Integer;
end ;
d) Type Record = Phanso ;
Tu, Mau : Integer;
end;
Câu 2: Chọn khai báo đúng :
a)Type DIEM = Record
x,y : Real;
b)Type DIEM = Record
x,y : Real;
end;
c) Type DIEM = Record
x, y ;
end;

d)DIEM = Record
x, y : Real;
end;
Câu 3: Cho khai báo :
Type HS = Record
Ten :String[20];
Dtb:Real;
end;
Var X, Y : HS ;
-Chọn câu đúng :
a) HS.Dtb:= 4.5 ; b) X.Dtb:=’ Nguyen An’;
c) X.Ten:=’Nhu Quynh’; d) X := Y.Dtb;
Câu 4: Cho khai báo :
Type HS = Record
Ten :String[20];
Dtb:Real;
end;
Var X : HS ;
-Chọn câu đúng :
a) With X do Dtb:= 4.5 ; b) Dtb:= 4.5 ;
c) With HS do Dtb:=4.5 ; d) X := 4.5 ;
Câu 5: Cho khai báo :
Type HOCSINH = Record
Ten, Maso : String[10];
end;
-Câu nào đúng :
a)Var A : array [1..10] of Record; b)Var A : array [1..10] of HOCSINH;
c)Var A: array[1..10] of Ten ; d)A: array[1..10] of Maso ;
Câu 6: Khi chạy chương trình :
Type Vector = Record

x, y : Integer;
end;
Var A, B : Vector ;
Begin
A.x := 2 ; A.y := 1;
B.x := -1; B.y := -3 ;
Write( A.x*B.x+A.y*B.y) ;
End.
-Kết qủa in ra là:
a)2 b)-5 c) -7 d) -3
Câu 7: Khi chạy chương trình :
Type Vector = Record
x, y : Integer;
end;
Var A, B : Vector ;
Begin
A.x := 2 ; A.y := 4;
B.x := -1; B.y := 0 ;
Write( Sqr( A.x-B.x) + Sqr(A.y-B.y) );
End.
-Kết qủa in ra là:
a) 5 b) 16 c) 9 d) 25
Câu 8: Cho khai báo :
Type Vector = Record
x, y : Integer;
end;
Var S : Array[1..4] of Vector ;
i : Integer ;
-Lệnh nào đúng :
a) For i:=1 to 4 do S[i].x:= 3; y=4;

b) For i:=1 to 4 do With S[i] do x:= 3; y=4;
c) For i:=1 to 4 do begin S[i].x:= 3; S[i].y:=4; end ;
d) For i:=1 to 4 do begin S.x:= 3; S.y=4; end;
Câu 9: Cho khai báo :
Type Sach = Record
Masach : String[4];
Gia: Real;
end;
Var DS : Array[1..10] of Sach ;
Tien: Real; i : Integer ;
-Lệnh nào đúng :
a) For i:=1 to 10 do With DS [i] do Tien:=Tien+ Gia ;
b) For i:=1 to 10 do Tien:=Tien+ Gia ;
c) For i:=1 to 10 do Tien:=Tien+ DS[i].Masach ;
d) For i:=1 to 10 do Tien:=Tien+ Sach[i].Gia ;
Câu 10: Cho khai báo :
Type Toado = Record
hoanhdo, tungdo : Integer;
end;
Var A, B: Toado ;
-Lệnh nào SAI :
a) A:=B ; b) A:=A-1;
c) A.hoanh :=B.tung ; d) With A do hoanh:= B.hoanh ;