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 ; . 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