Đề kiểm tra tin học lớp 11 kỳ 2

KIỂM TRA 1 TIẾT
Môn Tin học
Thời gian làm bài: 45 phút;
Mã đề thi 179

(Thí sinh không được sử dụng tài liệu)
Họ, tên thí sinh:..................................................................... Lớp: .............................
I.
Phần trắc nghiệm (5 điểm)
Câu 1: Khi thực hiện xong đoạn chương trình sau, giá trị của biến S là:
S:= ‘Ha Noi’;
Insert(‘Mua Thu ’,S,1);
A. Tất cả đều sai.
B. ‘Mua Thu Ha Noi’; C. ‘Ha NoiMua Thu’; D. ‘Ha Noi Mua Thu’;
Câu 2: Để gắn biến tệp tep1 với tệp có tên Input.dat, ta sử dụng thủ tục:
A. Assign(tep1, input.dat);
B. Assign(input.dat,tep1);
C. Assign(tep1,’input.dat’);
D. Assign(‘input.dat’, tep1);
Câu 3: Để đọc giá trị xâu s từ tệp gắn với biến tệp f , ta viết:
A. Read(f,s);
B. Read(s,f);
C. Write(f,s);
D. Write(s,f);
Câu 4: Biểu thức Length(‘123’) - Length(‘ ’) trả về giá trị là:
A. 3;
B. 2;
C. 123.
D. 1;
Câu 5: Để đọc dữ liệu từ tệp thì cần sử dụng các thao tác là:
A. Gắn tên tệp =>mở tệp để ghi dữ liệu mới =>Ghi dữ liệu mới =>Đóng tệp.

B. Gắn tên tệp => mở tệp để đọc dữ liệu=> Đọc dữ liệu trong tệp => Đóng tệp.
C. Mở tệp để đọc => Đọc dữ liệu trong tệp => Gán biến tệp với tên tệp => Đóng tệp.
D. Mở tệp để đọc => Đọc dữ liệu trong tệp => Đóng tệp => Gán biến tệp với tên tệp.
Câu 6: Sau khi thực hiện đoạn chương trình sau thu được kết quả xâu S là gì?
begin
S := ‘GBCDEFA’;
Delete(S,4,2);
end;
A. ‘GBEFA’
B. ‘GBCFA’
C. ‘AGBEF’
D. ‘BEFAG’
Câu 7: Trong NNLT Pascal, hai xâu kí tự được so sánh dựa trên?
A. Độ dài tối đa của hai xâu
B. Mã của từng kí tự trong các xâu lần lượt từ trái sang phải
C. Độ dài thực sự cảu hai xâu
D. Số lượng các kí tự khác nhau trong xâu
Câu 8: Phát biểu nào là chính xác khi nói về xâu rỗng:
A. Cả b và c.
B. Là xâu có một dấu cách;
C. Là xâu không có ký tự nào;
D. Là xâu có độ dài là 1;
Câu 9: Trong ngôn ngữ lập trình Pascal, để in các kí tự trong xâu S ra màn hình ở dạng chữ in hoa(vd :
abcd thi in ra là ABCD), đoạn chương nào sau đây thực hiện việc gì ?
A. For i := length(S) downto 1 do write(Upcase(S[i]));
B. For i := 1 to length(S) do write(Upcase(S[i]));
C. For i := length(S) downto 1 do write(S);
D. For i := 1 to length(S) div 2 do write(S[i]);
Câu 10: Phát biểu nào dưới đây là đúng ?
A. Các kiểu dữ liệu đều được lưu trữ ở bộ nhớ trong (RAM);

B. Dữ liệu kiểu tệp được lưu trữ ở bộ nhớ trong;
C. Dữ liệu kiểu tệp được lưu trữ ở bộ nhờ ngoài (đĩa cứng, CD, thiết bị nhớ Flash).
D. Các dữ liệu trong máy tính đều bị mất đi khi tắt nguồn điện.
II. Phần tự luận (5 điểm)
Câu 1. Nêu cú pháp thủ tục gắn tên tệp? lấy ví dụ minh họa?
Câu 2. Viết chương trình nhập vào một xâu. Xóa các kí tự ‘a’ ở đầu xâu.
Trang 1/2 - Mã đề thi 179


Câu 3. Cho tệp văn bản Input.txt gồm 1 dòng chứa các số nguyên, các số cách nhau 1 dấu cách. Viết
chương trình đọc dữ liệu từ tệp và kiểm tra và thông báo ra màn hình số đó là số chẵn hay sô lẻ.
- Yêu cầu: Viết lại các câu lệnh sau để được 1 chương trình giải quyết yêu cầu trên.
a. Assign(f,’Input.txt’);
b. Var f:text;
x:byte;
c. If (x mod 2 = 0) then Write(‘x la so chan’) Else Writeln(‘ x la so le’);
d. Reset(f);
e. End;
f. While not eof(f) Do
g. Close(f);
h. Begin
i. Read(f,x);
-----------------------------------------------

----------- HẾT ----------

Trang 2/2 - Mã đề thi 179