Trờng THPT Lê Quí Đôn
Họ và tên:
Lớp: STT:
Đề kiểm tra HK2 (45 phút)
Năm học: 2011-2012
Môn Tin Học Khối 11
Đề: 001
Điểm
1. Trắc nghiệm (5đ):
01 06 11 16
02 07 12 17
03 08 13 18
04 09 14 19
05 10 15 20
Câu 1 :
Cho khai báo sau :
Var a :array[0 16] of integer ;
Câu lệnh nào dới đây sẽ in ra tất cả các phần tử của mảng trên ?
A.
For k:=1 to 16 do write(a[k]);
B.
For k:=16 downto 0 do write(a[k]);
C.
For k:=16 downto 0 write(a[k]);
D.
For k:= 0 to 15 do write(a[k]);
Câu 2 :
S1 = tin hoc cho moi nguoi
Pos(o,S1) cho kết quả là?
A.
5

B.
6
C.
7
D.
11
Câu 3 : Đoạn chơng trình sau in ra kết quả nào ?
Program Welcome ;
Var a : string[10];
Begin
a := tinhoc;
writeln(length(a));
End.
A.
7;
B.
6;
C.
Chơng trình có lỗi;
D.
10;
Câu 4 :
Khai bỏo phn u mt hm l:
A. Function <tờn hm> [(<danh sỏch cỏc tham s>)] ;
B. Function <tờn hm> ;
C. Procedure <tờn hm> [(<danh sỏch cỏc tham s>)] : <kiu d liu>;
D. Function <tờn hm> [(<danh sỏch cỏc tham s>)] : <kiu d liu>;
Câu 5 :
Trong ngôn ngữ lập trình Pascal, đoạn chơng trình sau (kiểu xâu) thực hiện công việc gì ?
S1 := ;

For i :=1 to length(S) do
S1 :=S1 + upcase(S[i]);
A.
Tạo xâu S1 là chữ in hoa từ xâu S
B.
Tạo xâu S1 là chữ thờng từ xâu S
C.
Tạo xâu S1 từ xâu S
D.
Tạo xâu S1 là các kí tự chữ số
Câu 6 :
Cỏc bin dựng chung cho ton b chng trỡnh c gi l?
A.
Tham s thc s. B. Bin cc b.
C.
Tham s hỡnh thc D. Bin ton cc.
Câu 7 :
Khng nh no sau õy l ỳng?
A. Cỏc th tc (nu cú) phi c khai bỏo ngay t u ca chng trỡnh chớnh.
B. Cỏc th tc (nu cú) phi c khai bỏo sau Begin ca chng trỡnh chớnh.
C. Cỏc th tc (nu cú) c khai bỏo bt k trong chng trỡnh chớnh.
D. Cỏc th tc (nu cú) phi c khai bỏo v mụ t ngay sau phn khai bỏo bin v trc Begin ca
chng trỡnh chớnh.
Câu 8 :
Hãy chọn phơng án ghép đúng. Cho xâu S là Hanoi-Vietnam. Kết quả của hàm
Length(S) là
A.
12
B.
14

C.
13
D.
15
Câu 9 : Cho str là một xâu kí tự, đoạn chơng trình sau thực hiện công việc gì?
for i := length(str) downto 1 do write(str[i]) ;
A.
In xâu ra màn hình;
B.
In từng kí tự xâu ra màn hình;
C.
In từng kí tự ra màn hình theo thứ tự ngợc;
D.
In từng kí tự ra màn hình theo thứ tự ngợc,
trừ kí tự đầu tiên;
Câu 10 :
Trong ngôn ngữ lập trình Pascal, đoạn chơng trình (mảng một chiều) sau thực hiện công việc
gì ?
S := 0 ;
For i := 1 to n do
If (a[i] mod 3 =0) or (a[i] mod 5 = 0) then S :=S+a[i] ;
A.
Tính tổng các phần tử trong mảng chia hết cho 3 hoặc chia hết cho 5
B.
Tính tổng các phần tử chia hết cho 5
C.
Tính tổng các phần tử trong mảng
GV: Đinh Thị Minh Hiếu Năm học:2010-2011 trang
1
D.

Tính tổng các phần tử chia hết cho 3
Câu 11 : Cho khai báo mảng và đoạn chơng trình nh sau :
Var a : array[0 50] of real ;
k := 0 ;
for i := 1 to 50 do
if a[i] > a[k] then k := i ;
Đoạn chơng trình trên thực hiện công việc gì dới đây ?
A.
Tìm chỉ số của phần tử nhỏ nhất trong
mảng;
B.
Tìm phần tử nhỏ nhất trong mảng;
C.
Tìm chỉ số của phần tử lớn nhất trong
mảng;
D.
Tìm phần tử lớn nhất trong mảng;
Câu 12 :
Khai bỏo phn u mt th tc l:
A. Procedure [(<danh sỏch cỏc tham s>)] : <kiu d liu>;
B. Procedure <tờn th tc>: <kiu d liu>;
C. Procedure <tờn th tc> [(<danh sỏch cỏc tham s>)] : <kiu d liu>;
D. Procedure <tờn th tc> [(<danh sỏch cỏc tham s>)];
Câu 13 :
Mảng A dới đây chứa bao nhiêu phần tử ?
Const Rows=3 ;
Var A:array[0 rows+1] of integer ;
A.
5
B.

4
C.
3
D.
6
Câu 14 :
Cho x, y l hai bin nguyờn v khai bỏo th tc :
Procedure Doicho( Var a:Integer; b:Integer);
Var z : Integer;
Begin
z:=a; a:=b; b:=z;
End;
Sau khi thc hin cỏc lnh:
x:=7; y:=3;
Doicho(x, y);
thỡ giỏ tr ca x, y l:
A.
x=7, y=7 B. x=3, y=7
C.
x=3, y=3 D. x=7, y=3
Câu 15 :
Cho x, y l hai bin nguyờn v khai bỏo th tc :
Procedure Doicho( Var a,b:Integer);
Var z : Integer;
Begin
z:=a; a:=b; b:=z;
End;
Sau khi thc hin cỏc lnh:
x:=7; y:=3;
Doicho(x, y);

thỡ giỏ tr ca x, y l:
A.
x=7, y=7 B. x=3, y=3
C.
x=3, y=7 D. x=7, y=3
Câu 16 :
Trong mảng một chiều, đoạn chơng trình sau thực hiện công việc gì ?
Dem := 0 ;
For i := 1 to n do
If a[i] mod 2 = 0 then
Dem := Dem + 1 ;
A.
Đếm các phần tử chia hết cho 2 trong mảng
B.
Gán giá trị a[i] cho biến S
C.
Tính tổng các phần tử chia hết cho 2 trong
mảng
D.
Tính tổng các phần tử trong mảng
Câu 17 :
on chng trỡnh sau a ra mn hỡnh kt qu no:
for i:= 1 to 10 do write(i);
A.
1 2 3 4 5 6 7 8 9 10
B.
a ra 10 cu cỏch
C.
10 9 8 7 6 5 4 3 2 1
D.

Khụng a ra gỡ c
Câu 18 :
S1 abcd
S2= ghk
Insert(S1,S2,1) cho kết quả là ?
A.
abcdghk
B.
ghkabcd
C.
gabcdgha
D.
aghkbcd
Câu 19 :
Cỏc bin c khai bỏo cho d liu vo/ra c gi l?
A.
Bin cc b. B. Tham s thc s.
C.
Bin ton cc D.
Tham s hỡnh
thc.
Câu 20 : Hãy chọn phơng án ghép đúng nhất. Thủ tục chuẩn Insert(S1,S2,vt) thực hiện
GV: Đinh Thị Minh Hiếu Năm học:2010-2011 trang
2
A.
sao chép vào cuối S1 một phần của S2 từ vị
trí vt ;
B.
chèn xâu S1 vào S2 bắt đầu từ vị trí vt ;
C.

chèn xâu S2 vào S1 bắt đầu từ vị trí vt ;
D.
nối xâu S2 vào S1;
2. Tự luận (5đ):
Em hãy viết chơng trình nhập vào một mảng 1 chiều gồm 10 phần tử và tính tích các phần tử chẵn trong
mảng, xuất tích ra màn hình.
Bài làm

























Hết
GV: Đinh Thị Minh Hiếu Năm học:2010-2011 trang
3
Trờng THPT Lê Quí Đôn
Họ và tên:
Lớp: STT:
Đề kiểm tra HK2 (45 phút)
Năm học: 2011-2012
Môn Tin Học Khối 11
Đề: 002
Điểm
1. Trắc nghiệm (5đ):
01 06 11 16
02 07 12 17
03 08 13 18
04 09 14 19
05 10 15 20
Câu 1 :
Cho x, y l hai bin nguyờn v khai bỏo th tc :
Procedure Doicho( Var a:Integer; b:Integer);
Var z : Integer;
Begin
z:=a; a:=b; b:=z;
End;
Sau khi thc hin cỏc lnh:
x:=7; y:=3;
Doicho(x, y);
thỡ giỏ tr ca x, y l:
A.

x=7, y=7 B. x=3, y=7
C.
x=3, y=3 D. x=7, y=3
Câu 2 :
S1 abcd
S2= ghk
Insert(S1,S2,1) cho kết quả là ?
A.
aghkbcd
B.
ghkabcd
C.
gabcdgha
D.
abcdghk
Câu 3 : Cho str là một xâu kí tự, đoạn chơng trình sau thực hiện công việc gì?
for i := length(str) downto 1 do write(str[i]) ;
A.
In xâu ra màn hình;
B.
In từng kí tự ra màn hình theo thứ tự ngợc;
C.
In từng kí tự xâu ra màn hình;
D.
In từng kí tự ra màn hình theo thứ tự ngợc,
trừ kí tự đầu tiên;
Câu 4 :
Cho khai báo sau :
Var a :array[0 16] of integer ;
Câu lệnh nào dới đây sẽ in ra tất cả các phần tử của mảng trên ?

A.
For k:=16 downto 0 do write(a[k]);
B.
For k:=16 downto 0 write(a[k]);
C.
For k:=1 to 16 do write(a[k]);
D.
For k:= 0 to 15 do write(a[k]);
Câu 5 :
Mảng A dới đây chứa bao nhiêu phần tử ?
Const Rows=3 ;
Var A:array[0 rows+1] of integer ;
A.
4
B.
3
C.
5
D.
6
Câu 6 :
Cỏc bin dựng chung cho ton b chng trỡnh c gi l?
A.
Bin ton cc. B. Bin cc b.
C.
Tham s hỡnh thc D. Tham s thc s.
Câu 7 :
Khng nh no sau õy l ỳng?
A. Cỏc th tc (nu cú) phi c khai bỏo sau Begin ca chng trỡnh chớnh.
B. Cỏc th tc (nu cú) phi c khai bỏo v mụ t ngay sau phn khai bỏo bin v trc Begin ca

chng trỡnh chớnh.
C. Cỏc th tc (nu cú) c khai bỏo bt k trong chng trỡnh chớnh.
D. Cỏc th tc (nu cú) phi c khai bỏo ngay t u ca chng trỡnh chớnh.
Câu 8 :
Hãy chọn phơng án ghép đúng. Cho xâu S là Hanoi-Vietnam. Kết quả của hàm
Length(S) là
A.
12
B.
13
C.
15
D.
14
Câu 9 :
Khai bỏo phn u mt hm l:
A. Function <tờn hm> [(<danh sỏch cỏc tham s>)] : <kiu d liu>;
B. Function <tờn hm> ;
C. Function <tờn hm> [(<danh sỏch cỏc tham s>)] ;
D. Procedure <tờn hm> [(<danh sỏch cỏc tham s>)] : <kiu d liu>;
Câu 10 : Đoạn chơng trình sau in ra kết quả nào ?
Program Welcome ;
GV: Đinh Thị Minh Hiếu Năm học:2010-2011 trang
4
Var a : string[10];
Begin
a := tinhoc;
writeln(length(a));
End.
A.

6;
B.
Chơng trình có lỗi;
C.
7;
D.
10;
Câu 11 :
S1 = tin hoc cho moi nguoi
Pos(o,S1) cho kết quả là?
A.
6
B.
7
C.
5
D.
11
Câu 12 :
Trong ngôn ngữ lập trình Pascal, đoạn chơng trình (mảng một chiều) sau thực hiện công việc
gì ?
S := 0 ;
For i := 1 to n do
If (a[i] mod 3 =0) or (a[i] mod 5 = 0) then S :=S+a[i] ;
A.
Tính tổng các phần tử chia hết cho 5
B.
Tính tổng các phần tử trong mảng chia hết cho 3 hoặc chia hết cho 5
C.
Tính tổng các phần tử chia hết cho 3

D.
Tính tổng các phần tử trong mảng
Câu 13 : Cho khai báo mảng và đoạn chơng trình nh sau :
Var a : array[0 50] of real ;
k := 0 ;
for i := 1 to 50 do
if a[i] > a[k] then k := i ;
Đoạn chơng trình trên thực hiện công việc gì dới đây ?
A.
Tìm chỉ số của phần tử nhỏ nhất trong
mảng;
B.
Tìm chỉ số của phần tử lớn nhất trong
mảng;
C.
Tìm phần tử lớn nhất trong mảng;
D.
Tìm phần tử nhỏ nhất trong mảng;
Câu 14 :
Cho x, y l hai bin nguyờn v khai bỏo th tc :
Procedure Doicho( Var a,b:Integer);
Var z : Integer;
Begin
z:=a; a:=b; b:=z;
End;
Sau khi thc hin cỏc lnh:
x:=7; y:=3;
Doicho(x, y);
thỡ giỏ tr ca x, y l:
A.

x=7, y=7 B. x=7, y=3
C.
x=3, y=7 D. x=3, y=3
Câu 15 :
on chng trỡnh sau a ra mn hỡnh kt qu no:
for i:= 1 to 10 do write(i);
A.
a ra 10 cu cỏch
B.
10 9 8 7 6 5 4 3 2 1
C.
Khụng a ra gỡ c
D.
1 2 3 4 5 6 7 8 9 10
Câu 16 :
Khai bỏo phn u mt th tc l:
A. Procedure <tờn th tc> [(<danh sỏch cỏc tham s>)] : <kiu d liu>;
B. Procedure <tờn th tc>: <kiu d liu>;
C. Procedure <tờn th tc> [(<danh sỏch cỏc tham s>)];
D. Procedure [(<danh sỏch cỏc tham s>)] : <kiu d liu>;
Câu 17 :
Cỏc bin c khai bỏo cho d liu vo/ra c gi l?
A.
Bin cc b. B. Bin ton cc
C.
Tham s thc s. D.
Tham s hỡnh
thc.
Câu 18 :
Trong mảng một chiều, đoạn chơng trình sau thực hiện công việc gì ?

Dem := 0 ;
For i := 1 to n do
If a[i] mod 2 = 0 then
Dem := Dem + 1 ;
A.
Tính tổng các phần tử chia hết cho 2 trong
mảng
B.
Gán giá trị a[i] cho biến S
C.
Tính tổng các phần tử trong mảng
D.
Đếm các phần tử chia hết cho 2 trong mảng
Câu 19 :
Trong ngôn ngữ lập trình Pascal, đoạn chơng trình sau (kiểu xâu) thực hiện công việc gì ?
S1 := ;
For i :=1 to length(S) do
S1 :=S1 + upcase(S[i]);
A.
Tạo xâu S1 là chữ in hoa từ xâu S
B.
Tạo xâu S1 là chữ thờng từ xâu S
C.
Tạo xâu S1 là các kí tự chữ số
D.
Tạo xâu S1 từ xâu S
Câu 20 : Hãy chọn phơng án ghép đúng nhất. Thủ tục chuẩn Insert(S1,S2,vt) thực hiện
GV: Đinh Thị Minh Hiếu Năm học:2010-2011 trang
5
A.

sao chép vào cuối S1 một phần của S2 từ vị
trí vt ;
B.
chèn xâu S2 vào S1 bắt đầu từ vị trí vt ;
C.
nối xâu S2 vào S1;
D.
chèn xâu S1 vào S2 bắt đầu từ vị trí vt ;
2. Tự luận (5đ):
Em hãy viết chơng trình nhập vào một mảng 1 chiều gồm 10 phần tử và tính tổng các phần tử lẻ trong mảng,
xuất tổng ra màn hình.
Bài làm

























Hết
GV: Đinh Thị Minh Hiếu Năm học:2010-2011 trang
6
§¸p An

§Ò kiÓm tra HK2 (45 phót) m«n Tin Häc Khèi 11
001
01 06 11 16
02 07 12 17
03 08 13 18
04 09 14 19
05 10 15 20
002
01 06 11 16
02 07 12 17
03 08 13 18
04 09 14 19
05 10 15 20
GV: §inh ThÞ Minh HiÕu N¨m häc:2010-2011 trang
7