Kiểm tra học kỳ II - Tin Học 11 - Đề 4

Đề số 4 Trường THPT Nguyễn Du KIỂM TRA HỌC KỲ II Họ và tên: ………… Lớp: 11… Môn: Tin học Thời gian: 45’ A. PHẦN TRẮC NGHIỆM:(6đ) (Hãy khoanh tròn vào câu trả lời đúng!) Câu 1: Cho xâu kí tự sau: a:= ‘nguyen du’. Lệnh nào sau đây cho kết quả ‘nguyen ’ : A/ Copy(a,6,5); B/ Delete(a,8,2); C/ Delete(a,7,3); D/ Copy(a,4,2); Câu 2: Trong NNLT Pascal, để đọc dữ liệu từ tệp thì thứ tự thực hiện nào sau đây là đúng? A/ Gắn tên tệp, đọc DL từ tệp, mở tệp mới, đóng tệp. B/ Gắn tên tệp, mở tệp đã có, đọc DL từ tệp, đóng tệp. C/ Gắn tên tệp, đọc DL từ tệp, mở tệp đã có, đóng tệp. D/ Gắn tên tệp, mở tệp mới, ghi DL từ tệp, đóng tệp. Câu 3: Trong NNLT Pascal, khai báo nào trong các khai báo sau là đúng khi khai báo xâu ký tự? A/ Var st:String[0]; B/ Var st:String[265]; C/ Var st:String; D/ Var st:String[]; Câu 4: st có kiểu DL Logic, sau khi thực hiện câu lệnh: st:= ‘HocTap’ < ‘HocViet’; thì cho kết quả xâu st là: A/ FALSE B/ ‘FALSE’ C/ TRUE D/ ‘TRUE’ Câu 5: Trong NNLT Pascal, để truy cập vào từng trường của bản ghi ta viết: A/ <Tên biến bản ghi>.<Giá trị của trường>; B/ <Tên kiểu bản ghi>.<Giá trị của trường>; C/ <Tên biến bản ghi>.<Tên trường>; D/ <Tên kiểu bản ghi>.<Tên trường>; Câu 6: Nếu xâu st:= ‘- Hau hoc van’ ; sau khi thực hiện lệnh write(length(st)); sẽ cho kết quả là: A/ 11 B/ 12 C/ 13 D/ 14 Câu 7: Sau khi thực hiện câu lệnh st:=copy(‘Tien hoc le’,6,6); kết quả xuất ra màn hình xâu st là: A/ xâu rỗng B/ Ký tự rỗng C/ học lễ D/ Tien h Câu 8: Trong NNLT Pascal về mặt cú pháp khai báo mảng nào sau đây là sai? A/ Type A=array[n+1 n-1] of Char; C/ Type A=array[‘A’ ’Z’] of Byte; Var y:A; Var x:A; B/ Var A: array[-n+1 n+1] of Integer; D/ Var A: array[1 100] of Char; Câu 9: Tệp kiemtra.doc , thủ tục gắn tên tệp nào sau đây là đúng? A/ assign(‘kiemtra.doc’,tep1); B/ assign(tep1,’C:\kiemtra.doc’); C/ assign(tep1,’kiemtra.doc’); D/ assign(tep1,kiemtra.doc); Câu 10: Với khai báo mảng :Var MyArray:Array[1 100,1 100] of Integer; thì việc truy xuất đến phần tử của mảng là: A/ MyArray<i,j>; B/ MyArray[i,j]; C/ MyArray[i],[j]; D/ MyArray[i:j]; Câu 11: Cho chuỗi kí tự sau: a:= ‘thanh oai’. Sau khi thực hiện length(delete(a,7,3)) kết quả sẽ như thế nào? A/ 8 B/ 7 C/ 6 D/ 5 Câu 12: Trong NNLT Pascal, khai báo nào sau đây là đúng khi khai báo tệp văn bản? A/ Var f = record B/ Var f: String; C/ Var f: Text; D/ Var f: byte; B. PHẦN TỰ LUẬN (4đ): (HS viết nội dung chương trình sang mặt sau) Câu 1: (2đ) Cho tệp thuchanh.txt nằm trong Ổ đĩa C trong tệp có lưu các cặp giá trị nguyên a, b, Viết chương trình thực hiện đọc các giá trị nguyên a,b. Tính và đưa ra màn hình giá trị biểu thức (a+b)/(a-b). Câu 2: (2đ) Viết chương trình nhập vào từ bàn phím một dãy A gồm 18 phần tử. In ra màn hình các phần tử âm và chia hết cho 5, tính và in ra tổng của các phần tử này. . Đề số 4 Trường THPT Nguyễn Du KIỂM TRA HỌC KỲ II Họ và tên: ………… Lớp: 11 Môn: Tin học Thời gian: 45 ’ A. PHẦN TRẮC NGHIỆM:(6đ) (Hãy khoanh tròn. A: array[-n+1 n+1] of Integer; D/ Var A: array[1 100] of Char; Câu 9: Tệp kiemtra.doc , thủ tục gắn tên tệp nào sau đây là đúng? A/ assign(‘kiemtra.doc’,tep1); B/ assign(tep1,’C:kiemtra.doc’); C/. ghi>.<Tên trường>; Câu 6: Nếu xâu st:= - Hau hoc van’ ; sau khi thực hiện lệnh write(length(st)); sẽ cho kết quả là: A/ 11 B/ 12 C/ 13 D/ 14 Câu 7: Sau khi thực hiện câu lệnh st:=copy(‘Tien