đề thi HK2!

SỞ GIÁO DỤC VÀ ĐÀO TẠO
Trường THPT Nguyễn Thông
ĐỀ THI TRẮC NGHIỆM HKII
MÔN TIN HỌC 11 – NĂM HỌC: 2007 - 2008
Thời gian làm bài:30 phút;
(20 câu trắc nghiệm)
Mã đề thi 357
Họ, tên thí sinh:..........................................................................
Số báo danh:...............................................................................
Câu 1: Cho các thao tác sau:
1. Đóng tệp. 2. Mở tệp để đọc. 3. Đọc dữ liệu từ tệp 4. Gán tên tệp với biến tệp.
Trong pascal, thứ tự các thao tác trên như thế nào để có thể đọc được dữ liệu từ tệp:
A. 2431 B. 4321 C. 1234 D. 4231
Câu 2: Với câu 4: {biểu thức} phải là câu nào dưới đây?
A. S1[i]>='0' B. S1[i]>= 0 C. S1[i] <= 0 D. S1[i]<='0'
Câu 3: Cho xâu S có nội dung là: 'Que huong toi'. Kết quả của hàm length (s) là:
A. 14 B. 12 C. 15 D. 13
Câu 4: Cho chương trình gợi ý sau là chương trình nhập từ bàn phím xâu kí tự S1, tạo xâu S2
gồm tất cả các chữ số có trong xâu S1 và in các chữ số đó ra màn hình.
{Câu lệnh 1} phải là câu lệnh nào trong các câu lệnh dưới đây?
A. S1, S2: string; B. S1, S2: integer; C. S1: String; D. S2: String;
Câu 5: Trong Pascal, đoạn chương trình nào là 1 hàm đúng để tìm Max của 2 số a và b?
A. Function max (a, b:real): real; B. Function max (a, b:real): integer;
Begin begin
If a<b then Max:=b If a<b then Max:=b
else Max:= a; else Max:= a;
End; end;
C. Function max (a, b:real); D. Function max (a, b:real): real;
Begin Begin
If a<b then Max:=b If a<b then GTLN:=b
else Max:= a; else GTLN:= a;

End; End;
Câu 6: Với câu 4: {câu lệnh 4} là câu lệnh nào trong các câu lệnh dưới đây?
A. Write (S2); B. Write(S2[i]);
C. Write (S1[i]); D. Write(S1);
Câu 7: Khai báo xâu nào dưới đây là SAI?
A. type xau:string; B. Var xau: string; C. Var s1, s2: string;D. type xau=string[30];
Var s1, s2: xau; Var s1, s2: xau;
Câu 8: Trong pascal, S là 1 biến xâu, để truy xuất đến phần tử cuối của xâu S ta viết:
A. S(length (s)) B. S[i] C. Length(s[i]) D. S[length(s)]
Câu 9: Trong Pascal, cho s là 1 biến xâu đoạn chương trình sau thực hiện công việc gì?
For i:= length(s) downto 1 do
Write(S[i]);
A. In ra kí tự cuối của xâu S. B. In ra xâu đảo ngược của xâu S.
Trang 1/3 - Mã đề thi 357
Var {câu lệnh1}
i: integer;
Begin
Write(' Nhap vao xau :'); Readln (S1);
{ câu lệnh 2}
For i:= 1 to length (S1) do
If ({biểu thức}) and (s1[i] <='9') then
S2:=S2 + S1[i];
{ câu lệnh 4}
Readln
End.
C. In ra xâu S. D. Không thực hiện gì vì chương trình có lỗi
Câu 10: Phát biểu nào sau đây là SAI?
A. Sau khi mở tệp, con trỏ tệp ở vị trí đầu tệp.
B. Muốn đọc / ghi dữ liệu trong tệp, sau khi gắn biến tệp với tên tệp ta cần phải thực hiện thao tác
mở tệp đó.

C. Trong lệnh mở tệp, cần khai báo tên tệp để xác định đúng tệp trên đĩa.
D. Trong lệnh gán tên tệp với biến tệp, cần khai báo tên tệp để xác định đúng vị trí tệp trên đĩa.
Câu 11: Với chương trình câu 18 biến cục bộ là:
A. i B. a, b C. x, y D. x,y,i
Câu 12: Để khai báo thủ tục trong Pascal bắt đầu bằng từ khoá:
A. Pocedure B. Program C. Procedure D. Function
Câu 13: Cho S:='Viet Nam que huong toi';
Câu lệnh nào dưới đây để xoá các kí tự trong xâu S sao cho S còn nội dung 'Viet Nam':
A. Delete(S, 9,13); B. Delete(S, 8, 14); C. Delete(s,9,12); D. Delete(S, 9,14);
Câu 14: Trong Pascal, cho tệp văn bản Ktra.TXT chỉ có 1 dòng chứa dòng chữ: CHUC BAN
LAM BAI TOT ngay ở đầu dòng. Cho chương trình sau:
Thực hiện chương trình sau, trên màn hình sẽ hiện ra kết quả nào trong các kết quả sau:
A. CHUC BAN LAM B. CHUC BAN LAM BAI TOT
C. CHUC BAN D. CHUC
Câu 15: Trong các đoạn chương trình sau, đoạn chương trình nào là 1 thủ tục đúng để in ra màn
hình dòng chữ: Welcome to you!
A. Procedure B. Procedure Welcome;
Begin Begin
Write('Welcome to you!'); 'Welcome to you!';
End; End;
C. Procedure Welcome; D. Procedure welcome;
Begin Begin
Write('Welcome to you!'); Write('Welcome to you!');
End; End.
Câu 16: Cho khai báo: Var A:array[1..5] of byte;
i: byte;
Sau khi chương trình thực hiện lệnh: For i:=1 to 5 do A[i]:=i*2;
thì các phần tử của mảng A là:
A. 1 2 3 4 5 B. 2 4 6 8 10 C. 1 2 4 6 8 D. 4 6 8 10 12
Câu 17: Với câu 4:{câu lệnh 2} phải là câu lệnh nào trong các câu lệnh dưới đây?

A. S2:=' '; B. S2:=''; C. S2:=S1; D. S1:=S2;
Câu 18: Cho đoạn chương trình sau:
Khi thực hiện chương trình trên, màn hình cho kết quả nào?
Trang 2/3 - Mã đề thi 357
Uses crt;
Var f: text; s:
string[8];
Begin
Clrscr;
Assign (f,
'Ktra.txt');
Reset
(f);
Read ( f,
s);
Write
(s);
Close
(f);
End.
Var a, b: integer;
Procedure vidu ( var x:byte; y:
byte);
Var i: byte;
Begin
I:=5;
X:= x+I;
Y:=y*I;
End;
Begin

a:=2; b:=3;
vidu(a,b);
Write(a,' ',b);
End.
A. 2 15 B. 2 3 C. 7 3 D. 7 15
Câu 19: Trong lập trình Pascal, cho đoạn chương trình:
thực hiện xong đoạn chương trình trên, biến X có giá trị là gì?
A. 'Thong' B. 'Truong' C. 'Nguyen' D. Xâu rỗng.
Câu 20: Cho A là 1 mảng có n phần tử và đoạn chương trình:
d:=0;
For i: = 1 to n do
If a[i] mod 2 = 0 then d:= d+1;
Đoạn chương trình trên thực hiện công việc gì?
A. Tính tổng các phần tử là số lẻ trong mảng A.
B. Tính tổng các phần tử là số chẵn trong mảng A.
C. Đếm số lượng phần tử là số chẵn trong mảng A .
D. Đếm số lượng phần tử là số lẻ trong mảng A.
-----------------------------------------------
----------- HẾT ----------
Trang 3/3 - Mã đề thi 357
S:= 'Truong THPT Nguyen Thong';
X:='';
I:= 1;
While S[i] <>' ' do {' ' là 1khoảng
trắng}
Begin
X: =
X+S[i];
I:= i+1;
End;