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:








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.