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 Tr¾c nghiÖm
Thêi gian: 15 phót
§Ò gåm 02 trang – Tr¾c nghiÖm sè c©u hái 10 c©u
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
Trang 2A.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à:
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à:
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 :
c) A.hoanh :=B.tung ; d) With A do hoanh:= B.hoanh ;