Sở GD - ĐT Quảng BìnhTrờ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 đú
Trang 1Sở 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
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];
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];
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:
5 Cho hai xâu 'Cong cha' 'cong on' Chọn dấu thích hợp điền vào dấu
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);
Trang 29 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);
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:
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ệ:
II Điền vào dấu
Câu 1:
' Xanh' 'Truong em Sach Đep' 'Truong em Xanh Sach Đep'
Câu 2:
'Chien thang Đien Bien Phu' Delete(St,13,13)
Trang 3Câu 3:
' 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