Sở GD - ĐT Quảng Bình Trờng THPT Số I Bố Trạch Đề kiểm tra chất lợng học kì II Môn: Tin học Khối 11 Thời gian: 45 phút Đề số 2 Câu I: Câu hỏi lựa chọn (Khoanh tròn câu trả lời đúng)- Trong ngôn ngữ lập trình Turbo Pascal 1.Trong ngôn ngữ Pascal khai báo nào sau đây là đúng: a. Var st: String[275]; c. Var Khoi 11: String[25]; b. Var ten: String; d. Var const: String[50]; 2. Trong các hàm sau, hàm nào cho kết quả là độ dài thực sự của xâu st a. Upcase(ch) b. Length(st) c. Pos(st1,st2) c. Copy(st1,m,n) 3. Chọn khai báo đúng: a. Type HS = Record; c. Type HS = Record; hoten: string[30]; hoten: string[30]; Diachi: String[50]; Diachi: String[50]; DTB: Real; DTB: Real; End; End; Var a: HS; Var a: HS; b. Type HS = Record d. Type HS = Record hoten: string[30]; hoten: string[30]; Diachi: String[50]; Diachi: String[50]; DTB: Real; DTB: Real; End; End; Var a: HS Var a: HS; 4. Giả sử có một biến bản ghi HS, để tham chiếu đến trờng Hoten của biến bản ghi HS ta viết: a. HS.Hoten b. HS:Hoten c. Hoten. HS d. HS Hoten 5. Cho hai xâu 'Cong cha' . 'cong on'. Chọn dấu thích hợp điền vào dấu . a. > b. < c. = d. <> 6. Giả sử k là một biến có kiểu dữ liệu kí tự. Chọn câu đúng trong các câu sau: a. k:= 'hoc'; b. k:= 'A'; c. k:= A; d. k:=1; 7. Có thể xem kiểu dữ liệu xâu là mảng một chiều. khi đó một phần tử của mảng là một: a. số b. xâu c. Kí tự d. Tất cả các câu trên 8. Giả sử trên đĩa đã tồn tại một tệp F chứa các số nguyên có tên KQ.DAT, để đọc dữ liệu từ tệp ta lần lợt thực hiện các thao tác: a. Assign(F, 'KQ.DAT'); Reset(F); Read(F,x); Close(F); b. Reset(F); Read(F,x); Assign(F, 'KQ.DAT'); Close(F); d. Assign(F, 'KQ.DAT'); Reset(F); Readln(F,x); Close(F); c. Assign(F, 'KQ.DAT'); Rewrite(F); Read(F,x); Close(F); 9. Giả sử trên đĩa đã tồn tại một tệp định kiểu F chứa các số nguyên có tên SN.DAT. Trong các thao tác sau đối với tệp F, thao tác nào sai: a. Assign(F, 'SN.DAT'); c. Readln(F,x); b. Reset(F); d. Close(F); 10. Giả sử tệp định kiểu F có tên SOLIEU.DAT đang mở bởi thủ tục RESET(F); Muốn chuyển con trỏ tệp đến phần tử thứ 9 của tệp ta viết: a. Seek(F,10); c. Seek(F,9); b. Seek(F,8); d. Seek(F,0); 11. Trong các khai báo sau, khai báo nào sai: a. Procedure P (n:integer ; k:real); b. Procedure M (n:integer ; k:real); c. Procedure P (h:char ; n:integer); d. Procedure KT (M: Array[1 10] of Byte ; Var x: String[25]); 11.Chọn khai báo đúng: a. Procedure Loai bo (Var st: string); b. Function Chuvi (a,b: Real); c. Procedure P (Var x,y:integer) d. Function Tong (x,y: Real): Real; 12. Cho chơng trình sau: Program CT; Var M,N:Integer; Procedure HD (Var x:integer; y:integer); Var tg: Integer; Begin tg:= x; x:= y; y:= tg; end; Begin m:=7; n:=8; HD(m,n); Writeln(m:5,n:5); Readln; End. Trong chơng trình trên lời gọi thủ tục HD nào sau đây không hợp lệ: a. HD(m,10); c. HD(m,n+3); b. HD(10,n); d. HD(m,n); II. Điền vào dấu . Câu 1: Giá trị S1 Giái trị S2 Thao tác Kết quả ' Xanh' 'Truong em Sach Đep' . 'Truong em Xanh Sach Đep' Câu 2: Giá trị của St Thao tác Kết quả 'Chien thang Đien Bien Phu' Delete(St,13,13) . 'Hoc sinh' . 'Hoc' Câu 3: Giá trị của St Biểu thức Kết quả ' Khoi 11' Length(st) . 'Truong em co 38 lop' Pos('38',st) . 'Truong em co 38 lop' Copy(st, ., .) '38 lop' III. Đọc chơng trình và cho biết kết quả hiển thị lên màn hình khi chạy chơng trình. (Ghi vào dòng kẻ .) 1. Đọc chơng trình sau và cho biết kết quả hiển thị lên màn hình khi chạy chơng trình. Program KTHK; Var x,y:integer; Procedure M(Var A:integer; B:integer); Begin A:=A*2; B:=B*B; Writeln(A,' ',B); end; Begin x:=4; y:=8; M(x,y); Writeln(x,' ',y); Readln; End. . . 2. Đọc chơng trình sau và cho biết kết quả hiển thị lên màn hình khi chạy chơng trình. Program vd; Var m:integer; Procedure vd1; Begin m:=100; end; Begin m:= 1; vd1; Writeln(m); Readln; End. . . -------------------Hết--------------------- Thí sinh không đợc sử dụng tài liệu. . Quảng Bình Trờng THPT Số I Bố Trạch Đề ki m tra chất lợng học kì II Môn: Tin học Khối 11 Thời gian: 45 phút Đề số 2 Câu I: Câu hỏi lựa chọn (Khoanh tròn. sau đây là đúng: a. Var st: String [27 5]; c. Var Khoi 11: String [25 ]; b. Var ten: String; d. Var const: String[50]; 2. Trong các hàm sau, hàm nào cho kết