Đề số 2
Trường THPT Lê Hồng Phong (Biên Hòa) 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:(7đ) (Hãy khoanh tròn vào câu trả lời đúng nhất)
Câu 1: Hàm Eoln(f) cho kết quả là:
A. Cho kết quả FALSE khi con trỏ tệp nằm ở cuối tệp, ngược lại cho kết quả TRUE
B. Cho kết quả FALSE khi con trỏ tệp nằm ở cuối dòng, ngược lại cho kết quả TRUE
C. Cho kết quả TRUE khi con trỏ tệp nằm ở cuối dòng, ngược lại cho kết quả FALSE
D. Cho kết quả TRUE khi con trỏ tệp nằm ở cuối tệp, ngược lại cho kết quả FALSE
Câu 2: Cho chương trình sau:
Var f: text;
Begin
Assign(f,'baitap.txt');
Rewrite(f);
a:= 3; b:= 5;
Write(f, ‘a b’ );
Close(f);
End.
Câu 3: Cho f là một biến tệp văn bản. Khai báo nào sau đây là đúng ?
A. Var f : byte; B. Var f : text; C. Var : f text; D. Var f = text;
Câu 4: Để gán tệp vidu.txt cho biến tệp f ta sử dụng câu lệnh
A. assign(‘f , D:\vidu.txt’); B. assign(f , vidu .txt);
C. assign(‘vidu.txt’,f ); D. assign(f , ‘vidu .txt’);
Câu 5: Khẳng định nào sau đây là đúng?
A. Một chương trình con nhất thiết phải có tham số hình thức
B. Một chương trình con nhất thiết phải có biến cục bộ
C. Một chương trình con có thể không có tham số hình thức, không nhất thiết phải có biến cục bộ
D. Một chương trình con nhất thiết phải có tham số hình thức không nhất thiết phải có biến cục bộ
Câu 6: Khai báo nào sau đây là đúng:
A. CLOSE(tênbiếntệp, têntệp); C. CLOSE(tênbiếntệp; têntệp);
B. CLOSE(tênbiếntệp); D. CLOSE(tênbiếntệp1, tênbiếntệp2, …, tênbiếntệpn);

Var x, S: integer; ch:char;
Procedure TT(y:integer; kytu:char);
Vậy lệnh gọi thủ tục nào dưới đây là đúng:
A. S:= TT(x, ch); B. TT(ch, x); C. TT; D. TT(x, ch);
GV: QVH
Sau khi thực hiện chương trình bên, tập tin
baitap.txt có nội dung như thế nào?
A. a’ ’b B. 8
C. 3 5 D. a b
2 3
3 4
2 3 7
2 3
3 4
3 2 7
2 3
3 4
4 3 7
2 3
3 4
3 3 7
Đề số 2
Trường THPT Lê Hồng Phong (Biên Hòa) KIỂM TRA HỌC KỲ II
Họ và tên: Lớp: 11… Môn: Tin học Thời gian: 45’
Câu 10: Cho x, y là 2 biến nguyên, hãy xem thủ tục sau:
Var x, y: integer;
Procedure Doicho(Var a:integer; b: integer);
Var tg: integer;
Begin
tg:=a; a:=b; b:=tg;
GV: QVH