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;

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;