Đề: 1011A Sở Giáo Dục – Đào Tạo Đăk Lắk Trường THPT Nguyễn Bỉnh Khiêm Họ tên HS: ……………………… … Lớp : ……….……… Stt …… Điểm BẢNG TRẢ LỜI TRẮC NGHIỆM (THI KÌ II LỚP 11) 1……3:…… 5:…….7:.…….9:.……11: …13: .15: …17: 19:… …21:… 23: 2:… 4: … 6:.… 8:.… 10:… 12: … 14: ….16: … 18: 20:….…22:… 24: NỘI DUNG:(hoàn chỉnh nội dung câu 1, em chọn đáp án thích hợp điền vào bảng kết trên,) Câu Cho chương trình sau: Program kt; Var p,q,X : integer; Hãy cho biết? Procedure TD(Var a: integer; b: byte); + Biến toàn cục là: …… Var i: Byte; + Biến cục là: ……………… Begin + Tham số hình thức i:=5; - Tham số giá trị: ……… b:=b+i; - Tham biến: …………… a:=a+i; +Tham số thực sự: ………………… X:=a+b; + Khi chạy chương trình, nhập p = 5, q = kết quả: Writeln(a, ‘ ’,b); A B C D End; Begin Write(‘nhập p q:’); Readln(p,q); Writeln(p, ‘ ’,q); TD(p,q); Writeln(p,’ ‘,q,’ ‘,X); Readln; End Câu 2: Gắn tên tệp BT.TXT cho biến tệp văn tep1 ta dùng lệnh: A assign (BT.TXT, tep1); B assign (tep1, ‘BT.TXT’); C assign (‘BT.TXT’, tep1); D assign (tep1, “BT.TXT”); Câu Hàm tạo xâu gồm N kí tự liên tiếp vị trí vt xâu S viết: A Copy(S, N, vt) B Copy(S, vt, N) C Copy(vt, N, S) D Copy(vt, S, N) Câu Khẳng định sau đúng? A Chỉ có thủ tục có tham số hình thức B Cả thủ tục hàm có tham số hình thức C Chỉ có hàm có tham số hình thức D Thủ tục hàm phải có tham số hình thức Câu Dữ liệu kiểu tệp (Chọn câu nhất) A lưu trữ ROM B lưu trữ đĩa USB C lưu trữ RAM D lưu trữ nhớ Câu Để ghi kết vào tệp văn ta sử dụng thủ tục sau: A read(,); B read(,); C write(;); D write(,); Câu Kiểu liệu chương trình A Chỉ kiểu boolean,record, kiểu mảng B Chỉ kiểu integer, real, char C Có thể kiểu integer, real, char, boolean, string D Có thể integer, real, char, boolean, string, record, kiểu mảng Đề: 1011A Đề: 1011A Câu Cho khai báo đầu hàm: Function F( i : Integer) : String ; Begin If k mod 2=0 then F:=’Chan’ else F:=’Le’; End; Muốn in Write( F(a) ); biến a phải khai báo kiểu : a) Var a : Real; b) Var a : Integer; c) Var a : String; d) Var a : Char; Câu Khi chạy chương trình : Var x, y : Real; Function F(x, y:Real):Real; Begin F:=x; If x > y then F := y; End; BEGIN x:=15; y:=25; Write(F(x, y): 0:0); END -Kết qủa in ra: a) 40 b) 25 c) 15 d) F(x,y) Câu 10 Cho khai báo hàm đệ quy : Function F( a : Integer) : Integer; Begin If a=1 then F:=1 else F:= a*a+ F(a-1); End; Giá trị hàm F(3) là: a) b) 25 c) 30 d) 14 Câu 11 Chương trình chuẩn sau không thuộc thư viện GRAPH A SetColor(màu) B TextColor(màu) C PutPixel(x,y,màu) D MoveTo(x,y) Câu 12 Để biết hết dòng, người ta dùng hàm A EOFLN() B EOF() C FOE() D EOLN() Câu 13 Cho xâu st = ‘Nguyen Binh Khiem’) Kết thực thủ tục Delete(st,1,7) là: A st = ‘NguyenKhiem’ C st = ‘Binh Khiem’ B st = ‘Nguyen hiem’ D st = ‘Nguyen’ Câu 14 Cho S1 = ‘m’, S2 = ‘Lop Em’ (1 điểm) Kết thực hàm Pos(S1, S2) là: A.5 B C D Câu 15 Trong NNLT Pascal, để khai báo hai biến tệp văn f1, f2 ta viết: A Var f1,f2:Text; B Var f1; f2:Text; C Var f1:f2:Text; D Var f1 f2:Text; Câu 16 Nếu hàm EOF() cho giá trị True trỏ văn tệp nằm vị trí A đầu dòng B cuối tệp C cuối dòng D đầu tệp Câu 17 Nếu hàm EOLN() cho giá trị True trỏ văn tệp nằm vị trí A đầu dòng B đầu tệp C cuối tệp D cuối dòng Câu 18 Khai báo mảng chiều sau đúng? A var A : array[1 100; 100] of real; C var A = array[1 100, 100] of byte; B var A : array[1 100, 100] of real; D var A : array[1 100, 100] of byte; Câu 19 Với định nghĩa: type Kmang = array[1 20,1 19] of integer; khai báo biến sau đúng? A var Bang1 : Kmang2 ; B var Bang : Kmang ; C var 1Bang : Kmang2 ; D var 1Bang : Kmang; Câu 20 Khai báo xâu sau sai ? A var S : string ; C var S : string[257] ; B var S : string[100] ; D var S : string[1] ; Câu 21 Với khai báo type Arr = array[1 100,1 100] of real; var A : Arr; tham chiếu đến phần tử hàng 9, cột biến mảng A viết: A A [5;9] B Arr [9;5] C A [9,5] D Arr [5,9] Hết -3 ...Đề: 1011A Đề: 1011A Câu Cho khai báo đầu hàm: Function F( i : Integer) : String ; Begin If k mod 2=0 then... C FOE() D EOLN() Câu 13 Cho xâu st = ‘Nguyen Binh Khiem’) Kết thực thủ tục Delete(st,1,7) là: A st = ‘NguyenKhiem’ C st = ‘Binh Khiem’ B st = ‘Nguyen hiem’ D st = ‘Nguyen’