DE KIEM TRA 15 HK2 - K11

TRƯỜNG THPT BÌNH SƠN ĐỀ KIỂM TRA – NĂM HỌC 2010 - 2011
TỔ: TIN HỌC MÔN: TIN HỌC – THỜI GIAN:
15 PHÚT
HỌ VÀ TÊN: LỚP: 11
MÃ ĐỀ: 111
PHẦN TRẢ LỜI: Chọn một câu đúng nhất (tô hoặc đánh dấu X vào ô tương
ứng).
Câu 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
A
B
C
D
1/ Cho khai báo:
Var
A: Array[1 4] of Real;
i: Integer ;
Ðể nhập dữ liệu cho mảng A, chọn câu nào:
a Write(‘ Nhập A:’); Readln(A);
b For i:=1 to 4 do Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]);
c For i:=1 to 4 do Readln(‘ Nhập A[‘, i, ‘]= ’);
d For i:=1 to 4 do Begin Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]); End;
2/ Cho khai báo biến :
Var A : array[1 5] of Integer;
Chọn lệnh đúng:
a A[2]:= -6 ; b A:= 10 ; c A[1]:= 4/2 ; d A(3):= 6 ;
3/ Cho khai báo :
Var
A : array[1 2,1 3] of Real;
i, j : integer; Max : Real;
Ðể tìm số lớn nhất của ma trận A, chọn câu nào:
a A[1,1]:=Max ; For i:=1 to 2 do For j:=1 to 3 do if Max< A[i,j] then A[i,j]:=Max;

b Max:=A[1,1]; i:=1; For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j];
c Max:=A[1,1]; For i:=1 to 2 do For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j];
d Max:=A[1,1]; For i:=1 to 2 do if Max < A[i,j] then Max:=A[i,j];
4/ Cho khai báo sau:
Var
A: array[0 16] of integer;
Câu lệnh nào 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 :=0 to 15 do write(a[k]); d For k :=0 downto 16 do write(a[k]);
5/ Độ dài tối đa của xâu kí tự trong PASCAL là:
a 256 b Tùy ý c 255 d 65535
6/ Xâu kí tự không có kí tự nào cả gọi là:
a Xâu không b Xâu trắng c Không phải là xâu kí tự d Xâu rỗng

7/ Cho xâu A:='Lap trinh Pascal'. Nếu sử dụng hàm b:= pos(‘Pascal’, A);
Kết quả in ra giá trị của b là:
a 5 b 10 c 6 d 11
8/ Câu lệnh sau làm việc gì?
For i:=1 to length(s) do Write(s[length(s)-i+1])
a Hiện ra màn hình xâu ngược lại so với xâu vừa nhập vào;
b Cho biết độ dài của xâu vừa nhập vào;
c Không làm gì cả;
d Hiện ra màn hình xâu vừa nhập vào;
9/ Cho xâu S:='Tuoi hoc tro' thủ tục Delete(S, 1, Length(S)); kết quả ta được xâu?
a Xâu rỗng; b 'hoc tro' c 'hoc' d 'Tuoi'
10/ Câu lệnh sau làm việc gì?
k:=0;
For i:=1 to length(S) do
If S[i]=' ' then k:=k+1;
a Đếm kí tự k trong xâu S; b Đếm kí tự trắng trong xâu S;

c Đếm tổng các kí tự trong xâu S; d Đếm kí tự S trong xâu S;
11/ S1:=’Ngon ngu Pascal’; S2:=Copy(S1, 10, 6); S2 có giá trị là:
a 'Ngon ngu' b 'Ngon ngu ' c 'Pascal' d 'Ngon n'
12/ Cho 2 xâu: a:='Tin Học'; b:='TIN HỌC'; Hãy chọn phương án đúng.
a Độ dài mỗi xâu là 7, xâu a= xâu b. b Độ dài mỗi xâu là 6, xâu a= xâu b.
c Độ dài mỗi xâu là 7, xâu a< xâu b. d Độ dài mỗi xâu là 7, xâu a> xâu b.
13/ S1:=’lap trinh’; S2:= ‘ ngon ngu’; Insert(S2, S1, 4); S1 có giá trị là:
a 'lap ngon ngutrinh' b 'lapngon ngu trinh' c 'ngon ngu lap trinh' d 'lap ngon ngu trinh'
14/ Cho khai báo Var hoten:String; Phát biểu nào sau đây đúng?
a Câu lệnh sai vì thiếu độ dài tối đa của xâu; b Xâu có độ dài lớn nhất là 255;
c Cần phải khai báo độ dài lớn nhất của xâu đó; d Xâu có độ dài lớn nhất là 0;
15/ Để xóa đi kí tự đầu tiên của xâu kí tự S ta viết:
a Delete (S,I,1); {I là biến có giá trị bất kì} b Delete (S,1,i); {i là biến có giá trị bất kì}
c Delete(S,Length(S),1); d Delete(S,1,1);
TRƯỜNG THPT BÌNH SƠN ĐỀ KIỂM TRA – NĂM HỌC 2010 - 2011
TỔ: TIN HỌC MÔN: TIN HỌC – THỜI GIAN:
15 PHÚT
HỌ VÀ TÊN: LỚP: 11
MÃ ĐỀ: 222
PHẦN TRẢ LỜI: Chọn một câu đúng nhất (tô hoặc đánh dấu X vào ô tương
ứng).
Câu 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
A
B
C
D
1/ S1:=’Ngon ngu Pascal’; S2:=Copy(S1, 10, 6); S2 có giá trị là:
a 'Ngon ngu ' b 'Ngon n' c 'Ngon ngu' d 'Pascal'
2/ Cho xâu A:='Lap trinh Pascal'. Nếu sử dụng hàm b:= pos(‘Pascal’, A);
Kết quả in ra giá trị của b là:

a 5 b 10 c 6 d 11
3/ Câu lệnh sau làm việc gì?
k:=0;
For i:=1 to length(S) do
If S[i]=' ' then k:=k+1;
a Đếm kí tự k trong xâu S; b Đếm kí tự trắng trong xâu S;
c Đếm kí tự S trong xâu S; d Đếm tổng các kí tự trong xâu S;
4/ Câu lệnh sau làm việc gì?
For i:=1 to length(s) do Write(s[length(s)-i+1])
a Không làm gì cả;
b Hiện ra màn hình xâu vừa nhập vào;
c Hiện ra màn hình xâu ngược lại so với xâu vừa nhập vào;
d Cho biết độ dài của xâu vừa nhập vào;
5/ Để xóa đi kí tự đầu tiên của xâu kí tự S ta viết:
a Delete(S,Length(S),1); b Delete (S,1,i); {i là biến có giá trị bất kì}
c Delete(S,1,1); d Delete (S,I,1); {I là biến có giá trị bất kì}
6/ Cho xâu S:='Tuoi hoc tro' thủ tục Delete(S, 1, Length(S)); kết quả ta được xâu?
a 'hoc tro' b Xâu rỗng; c 'Tuoi' d 'hoc'
7/ Xâu kí tự không có kí tự nào cả gọi là:
a Xâu không b Xâu trắng c Xâu rỗng
d Không phải là xâu kí tự
8/ Cho 2 xâu: a:='Tin Học'; b:='TIN HỌC'; Hãy chọn phương án đúng.
a Độ dài mỗi xâu là 7, xâu a= xâu b. b Độ dài mỗi xâu là 7, xâu a> xâu b.
c Độ dài mỗi xâu là 6, xâu a= xâu b. d Độ dài mỗi xâu là 7, xâu a< xâu b.
9/ S1:=’lap trinh’; S2:= ‘ ngon ngu’; Insert(S2, S1, 4); S1 có giá trị là:
a 'lap ngon ngu trinh' b 'lap ngon ngutrinh' c 'ngon ngu lap trinh' d 'lapngon ngu trinh'

10/ Độ dài tối đa của xâu kí tự trong PASCAL là:
a 65535 b Tùy ý c 255 d 256
11/ Cho khai báo Var hoten:String; Phát biểu nào sau đây đúng?

a Xâu có độ dài lớn nhất là 255; b Xâu có độ dài lớn nhất là 0;
c Cần phải khai báo độ dài lớn nhất của xâu đó; d Câu lệnh sai vì thiếu độ dài tối đa của xâu;
12/ Cho khai báo:
Var
A: Array[1 4] of Real;
i: Integer ;
Ðể nhập dữ liệu cho mảng A, chọn câu nào:
a For i:=1 to 4 do Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]);
b For i:=1 to 4 do Begin Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]); End;
c Write(‘ Nhập A:’); Readln(A);
d For i:=1 to 4 do Readln(‘ Nhập A[‘, i, ‘]= ’);
13/ Cho khai báo biến :
Var A : array[1 5] of Integer;
Chọn lệnh đúng:
a A(3):= 6 ; b A:= 10 ; c A[2]:= -6 ; d A[1]:= 4/2 ;
14/ Cho khai báo :
Var
A : array[1 2,1 3] of Real;
i, j : integer; Max : Real;
Ðể tìm số lớn nhất của ma trận A, chọn câu nào:
a Max:=A[1,1]; i:=1; For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j];
b A[1,1]:=Max ; For i:=1 to 2 do For j:=1 to 3 do if Max< A[i,j] then A[i,j]:=Max;
c Max:=A[1,1]; For i:=1 to 2 do For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j];
d Max:=A[1,1]; For i:=1 to 2 do if Max < A[i,j] then Max:=A[i,j];
15/ Cho khai báo sau:
Var
A: array[0 16] of integer;
Câu lệnh nào sẽ in ra tất cả các phần tử của mảng trên
a For k :=0 to 15 do write(a[k]); b For k := 16 downto 0 do write(a[k]);
c For k :=0 downto 16 do write(a[k]); d For k :=1 to 16 do write(a[k]);

TRƯỜNG THPT BÌNH SƠN ĐỀ KIỂM TRA – NĂM HỌC 2010 - 2011
TỔ: TIN HỌC MÔN: TIN HỌC – THỜI GIAN:
15 PHÚT
HỌ VÀ TÊN: LỚP: 11
MÃ ĐỀ: 333
PHẦN TRẢ LỜI: Chọn một câu đúng nhất (tô hoặc đánh dấu X vào ô tương
ứng).
Câu 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
A
B
C
D

1/ Cho khai báo :
Var
A : array[1 2,1 3] of Real;
i, j : integer; Max : Real;
Ðể tìm số lớn nhất của ma trận A, chọn câu nào:
a Max:=A[1,1]; For i:=1 to 2 do if Max < A[i,j] then Max:=A[i,j];
b Max:=A[1,1]; For i:=1 to 2 do For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j];
c A[1,1]:=Max ; For i:=1 to 2 do For j:=1 to 3 do if Max< A[i,j] then A[i,j]:=Max;
d Max:=A[1,1]; i:=1; For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j];
2/ S1:=’Ngon ngu Pascal’; S2:=Copy(S1, 10, 6); S2 có giá trị là:
a 'Ngon n' b 'Ngon ngu ' c 'Pascal' d 'Ngon ngu'
3/ Cho khai báo sau:
Var
A: array[0 16] of integer;
Câu lệnh nào 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 :=0 to 15 do write(a[k]);
c For k := 16 downto 0 do write(a[k]); d For k :=0 downto 16 do write(a[k]);

4/ Cho xâu A:='Lap trinh Pascal'. Nếu sử dụng hàm b:= pos(‘Pascal’, A);
Kết quả in ra giá trị của b là:
a 6 b 5 c 10 d 11
5/ Cho khai báo Var hoten:String; Phát biểu nào sau đây đúng?
a Cần phải khai báo độ dài lớn nhất của xâu đó; b Câu lệnh sai vì thiếu độ dài tối đa của xâu;
c Xâu có độ dài lớn nhất là 255; d Xâu có độ dài lớn nhất là 0;
6/ Cho 2 xâu: a:='Tin Học'; b:='TIN HỌC'; Hãy chọn phương án đúng.
a Độ dài mỗi xâu là 7, xâu a> xâu b. b Độ dài mỗi xâu là 6, xâu a= xâu b.
c Độ dài mỗi xâu là 7, xâu a= xâu b. d Độ dài mỗi xâu là 7, xâu a< xâu b.
7/ Để xóa đi kí tự đầu tiên của xâu kí tự S ta viết:
a Delete(S,Length(S),1); b Delete (S,1,i); {i là biến có giá trị bất kì}
c Delete(S,1,1); d Delete (S,I,1); {I là biến có giá trị bất kì}
8/ Câu lệnh sau làm việc gì?
k:=0;
For i:=1 to length(S) do
If S[i]=' ' then k:=k+1;
a Đếm kí tự trắng trong xâu S; b Đếm kí tự S trong xâu S;
c Đếm tổng các kí tự trong xâu S; d Đếm kí tự k trong xâu S;
9/ Xâu kí tự không có kí tự nào cả gọi là:
a Xâu trắng b Xâu không c Không phải là xâu kí tự
d Xâu rỗng
10/ Độ dài tối đa của xâu kí tự trong PASCAL là:
a 256 b 255 c 65535 d Tùy ý
11/ S1:=’lap trinh’; S2:= ‘ ngon ngu’; Insert(S2, S1, 4); S1 có giá trị là:
a 'lap ngon ngu trinh' b 'lapngon ngu trinh' c 'ngon ngu lap trinh' d 'lap ngon ngutrinh'
12/ Cho khai báo:
Var
A: Array[1 4] of Real;
i: Integer ;
Ðể nhập dữ liệu cho mảng A, chọn câu nào:

a For i:=1 to 4 do Readln(‘ Nhập A[‘, i, ‘]= ’);
b For i:=1 to 4 do Begin Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]); End;
c For i:=1 to 4 do Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]);
d Write(‘ Nhập A:’); Readln(A);
13/ Cho khai báo biến :
Var A : array[1 5] of Integer;
Chọn lệnh đúng:
a A[1]:= 4/2 ; b A(3):= 6 ; c A:= 10 ; d A[2]:= -6 ;
14/ Câu lệnh sau làm việc gì?
For i:=1 to length(s) do Write(s[length(s)-i+1])
a Hiện ra màn hình xâu ngược lại so với xâu vừa nhập vào;
b Không làm gì cả;
c Hiện ra màn hình xâu vừa nhập vào;
d Cho biết độ dài của xâu vừa nhập vào;
15/ Cho xâu S:='Tuoi hoc tro' thủ tục Delete(S, 1, Length(S)); kết quả ta được xâu?
a Xâu rỗng; b 'hoc' c 'Tuoi' d 'hoc tro'
TRƯỜNG THPT BÌNH SƠN ĐỀ KIỂM TRA – NĂM HỌC 2010 - 2011
TỔ: TIN HỌC MÔN: TIN HỌC – THỜI GIAN:
15 PHÚT
HỌ VÀ TÊN: LỚP: 11
MÃ ĐỀ: 444
PHẦN TRẢ LỜI: Chọn một câu đúng nhất (tô hoặc đánh dấu X vào ô tương
ứng).
Câu 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
A
B
C
D
1/ Câu lệnh sau làm việc gì?
For i:=1 to length(s) do Write(s[length(s)-i+1])

a Hiện ra màn hình xâu vừa nhập vào;
b Cho biết độ dài của xâu vừa nhập vào;
c Hiện ra màn hình xâu ngược lại so với xâu vừa nhập vào;
d Không làm gì cả;
2/ Cho khai báo :
Var
A : array[1 2,1 3] of Real;
i, j : integer; Max : Real;
Ðể tìm số lớn nhất của ma trận A, chọn câu nào:
a A[1,1]:=Max ; For i:=1 to 2 do For j:=1 to 3 do if Max< A[i,j] then A[i,j]:=Max;
b Max:=A[1,1]; For i:=1 to 2 do For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j];
c Max:=A[1,1]; For i:=1 to 2 do if Max < A[i,j] then Max:=A[i,j];
d Max:=A[1,1]; i:=1; For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j];
3/ Cho xâu S:='Tuoi hoc tro' thủ tục Delete(S, 1, Length(S)); kết quả ta được xâu?
a 'Tuoi' b Xâu rỗng; c 'hoc tro' d 'hoc'
4/ Để xóa đi kí tự đầu tiên của xâu kí tự S ta viết:
a Delete (S,I,1); {I là biến có giá trị bất kì} b Delete(S,Length(S),1);
c Delete (S,1,i); {i là biến có giá trị bất kì} d Delete(S,1,1);
5/ Cho xâu A:='Lap trinh Pascal'. Nếu sử dụng hàm b:= pos(‘Pascal’, A);
Kết quả in ra giá trị của b là:
a 11 b 5 c 6 d 10
6/ Cho khai báo Var hoten:String; Phát biểu nào sau đây đúng?
a Xâu có độ dài lớn nhất là 255; b Cần phải khai báo độ dài lớn nhất của xâu
đó;
c Câu lệnh sai vì thiếu độ dài tối đa của xâu; d Xâu có độ dài lớn nhất là 0;
7/ Câu lệnh sau làm việc gì?
k:=0;
For i:=1 to length(S) do
If S[i]=' ' then k:=k+1;
a Đếm kí tự S trong xâu S; b Đếm kí tự trắng trong xâu S;

c Đếm tổng các kí tự trong xâu S; d Đếm kí tự k trong xâu S;
8/ S1:=’lap trinh’; S2:= ‘ ngon ngu’; Insert(S2, S1, 4); S1 có giá trị là:
a 'ngon ngu lap trinh' b 'lapngon ngu trinh' c 'lap ngon ngutrinh' d 'lap ngon ngu trinh'
9/ S1:=’Ngon ngu Pascal’; S2:=Copy(S1, 10, 6); S2 có giá trị là:
a 'Ngon ngu' b 'Ngon n' c 'Pascal' d 'Ngon ngu '
10/ Cho khai báo sau:
Var
A: array[0 16] of integer;
Câu lệnh nào 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 :=0 downto 16 do write(a[k]);
c For k :=1 to 16 do write(a[k]); d For k :=0 to 15 do write(a[k]);
11/ Cho khai báo:
Var
A: Array[1 4] of Real;
i: Integer ;
Ðể nhập dữ liệu cho mảng A, chọn câu nào:
a For i:=1 to 4 do Begin Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]); End;
b Write(‘ Nhập A:’); Readln(A);
c For i:=1 to 4 do Readln(‘ Nhập A[‘, i, ‘]= ’);
d For i:=1 to 4 do Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]);
12/ Cho khai báo biến :
Var A : array[1 5] of Integer;
Chọn lệnh đúng:
a A(3):= 6 ; b A[2]:= -6 ; c A[1]:= 4/2 ; d A:= 10 ;
13/ Cho 2 xâu: a:='Tin Học'; b:='TIN HỌC'; Hãy chọn phương án đúng.
a Độ dài mỗi xâu là 6, xâu a= xâu b. b Độ dài mỗi xâu là 7, xâu a< xâu b.
c Độ dài mỗi xâu là 7, xâu a> xâu b. d Độ dài mỗi xâu là 7, xâu a= xâu b.
14/ Độ dài tối đa của xâu kí tự trong PASCAL là:
a 65535 b 255 c Tùy ý d 256
15/ Xâu kí tự không có kí tự nào cả gọi là:

a Xâu trắng b Xâu rỗng
c Xâu không d Không phải là xâu kí tự
TRƯỜNG THPT BÌNH SƠN ĐỀ KIỂM TRA – NĂM HỌC 2010 - 2011
TỔ: TIN HỌC MÔN: TIN HỌC – THỜI GIAN:
15 PHÚT
HỌ VÀ TÊN: LỚP: 11
MÃ ĐỀ: 555
PHẦN TRẢ LỜI: Chọn một câu đúng nhất (tô hoặc đánh dấu X vào ô tương
ứng).
Câu 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
A
B
C
D
1/ Xâu kí tự không có kí tự nào cả gọi là:
a Xâu không b Xâu trắng
c Xâu rỗng d Không phải là xâu kí tự
2/ Cho khai báo :
Var
A : array[1 2,1 3] of Real;
i, j : integer; Max : Real;
Ðể tìm số lớn nhất của ma trận A, chọn câu nào:
a Max:=A[1,1]; For i:=1 to 2 do For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j];
b A[1,1]:=Max ; For i:=1 to 2 do For j:=1 to 3 do if Max< A[i,j] then A[i,j]:=Max;
c Max:=A[1,1]; For i:=1 to 2 do if Max < A[i,j] then Max:=A[i,j];
d Max:=A[1,1]; i:=1; For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j];
3/ S1:=’Ngon ngu Pascal’; S2:=Copy(S1, 10, 6); S2 có giá trị là:
a 'Ngon ngu ' b 'Ngon ngu' c 'Pascal' d 'Ngon n'
4/ Cho khai báo Var hoten:String; Phát biểu nào sau đây đúng?
a Xâu có độ dài lớn nhất là 0; b Cần phải khai báo độ dài lớn nhất của xâu đó;

c Xâu có độ dài lớn nhất là 255; d Câu lệnh sai vì thiếu độ dài tối đa của xâu;
5/ S1:=’lap trinh’; S2:= ‘ ngon ngu’; Insert(S2, S1, 4); S1 có giá trị là:
a 'lap ngon ngutrinh' b 'ngon ngu lap trinh' c 'lap ngon ngu trinh' d 'lapngon ngu trinh'
6/ Cho xâu A:='Lap trinh Pascal'. Nếu sử dụng hàm b:= pos(‘Pascal’, A);
Kết quả in ra giá trị của b là:
a 6 b 5 c 10 d 11
7/ Cho khai báo:
Var
A: Array[1 4] of Real;
i: Integer ;
Ðể nhập dữ liệu cho mảng A, chọn câu nào:
a For i:=1 to 4 do Readln(‘ Nhập A[‘, i, ‘]= ’);
b For i:=1 to 4 do Begin Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]); End;
c For i:=1 to 4 do Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]);
d Write(‘ Nhập A:’); Readln(A);
8/ Cho khai báo biến :
Var A : array[1 5] of Integer;
Chọn lệnh đúng:
a A[2]:= -6 ; b A[1]:= 4/2 ; c A:= 10 ; d A(3):= 6 ;
9/ Câu lệnh sau làm việc gì?
k:=0;
For i:=1 to length(S) do
If S[i]=' ' then k:=k+1;
a Đếm kí tự trắng trong xâu S; b Đếm tổng các kí tự trong xâu S;
c Đếm kí tự k trong xâu S; d Đếm kí tự S trong xâu S;
10/ Cho xâu S:='Tuoi hoc tro' thủ tục Delete(S, 1, Length(S)); kết quả ta được xâu?
a 'Tuoi' b 'hoc' c 'hoc tro' d Xâu rỗng;
11/ Cho 2 xâu: a:='Tin Học'; b:='TIN HỌC'; Hãy chọn phương án đúng.
a Độ dài mỗi xâu là 7, xâu a> xâu b. b Độ dài mỗi xâu là 6, xâu a= xâu b.
c Độ dài mỗi xâu là 7, xâu a< xâu b. d Độ dài mỗi xâu là 7, xâu a= xâu b.

12/ Để xóa đi kí tự đầu tiên của xâu kí tự S ta viết:
a Delete (S,1,i); {i là biến có giá trị bất kì} b Delete (S,I,1); {I là biến có giá trị bất kì}
c Delete(S,1,1); d Delete(S,Length(S),1);
13/ Độ dài tối đa của xâu kí tự trong PASCAL là:
a 65535 b Tùy ý c 256 d 255
14/ Cho khai báo sau:
Var
A: array[0 16] of integer;
Câu lệnh nào 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 :=0 to 15 do write(a[k]); d For k :=0 downto 16 do write(a[k]);
15/ Câu lệnh sau làm việc gì?
For i:=1 to length(s) do Write(s[length(s)-i+1])
a Hiện ra màn hình xâu ngược lại so với xâu vừa nhập vào;
b Hiện ra màn hình xâu vừa nhập vào;
c Cho biết độ dài của xâu vừa nhập vào;
d Không làm gì cả;
TRƯỜNG THPT BÌNH SƠN ĐỀ KIỂM TRA – NĂM HỌC 2010 - 2011
TỔ: TIN HỌC MÔN: TIN HỌC – THỜI GIAN:
15 PHÚT
HỌ VÀ TÊN: LỚP: 11
MÃ ĐỀ: 666
PHẦN TRẢ LỜI: Chọn một câu đúng nhất (tô hoặc đánh dấu X vào ô tương
ứng).
Câu 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
A
B
C
D
1/ Xâu kí tự không có kí tự nào cả gọi là:

a Xâu không b Không phải là xâu kí tự
c Xâu trắng d Xâu rỗng
2/ Cho khai báo sau:
Var
A: array[0 16] of integer;
Câu lệnh nào 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 :=0 downto 16 do write(a[k]);
c For k :=0 to 15 do write(a[k]); d For k :=1 to 16 do write(a[k]);
3/ Cho xâu A:='Lap trinh Pascal'. Nếu sử dụng hàm b:= pos(‘Pascal’, A);
Kết quả in ra giá trị của b là:
a 10 b 6 c 5 d 11
4/ Cho xâu S:='Tuoi hoc tro' thủ tục Delete(S, 1, Length(S)); kết quả ta được xâu?
a 'Tuoi' b Xâu rỗng; c 'hoc tro' d 'hoc'
5/ Cho khai báo :
Var
A : array[1 2,1 3] of Real;
i, j : integer; Max : Real;
Ðể tìm số lớn nhất của ma trận A, chọn câu nào:
a Max:=A[1,1]; For i:=1 to 2 do For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j];
b Max:=A[1,1]; For i:=1 to 2 do if Max < A[i,j] then Max:=A[i,j];
c A[1,1]:=Max ; For i:=1 to 2 do For j:=1 to 3 do if Max< A[i,j] then A[i,j]:=Max;
d Max:=A[1,1]; i:=1; For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j];
6/ Câu lệnh sau làm việc gì?
k:=0;
For i:=1 to length(S) do
If S[i]=' ' then k:=k+1;
a Đếm kí tự k trong xâu S; b Đếm tổng các kí tự trong xâu S;
c Đếm kí tự trắng trong xâu S; d Đếm kí tự S trong xâu S;
7/ S1:=’Ngon ngu Pascal’; S2:=Copy(S1, 10, 6); S2 có giá trị là:
a 'Ngon ngu ' b 'Pascal' c 'Ngon n' d 'Ngon ngu'

8/ Độ dài tối đa của xâu kí tự trong PASCAL là:
a 256 b Tùy ý c 65535 d 255
9/ Cho khai báo:
Var
A: Array[1 4] of Real;
i: Integer ;
Ðể nhập dữ liệu cho mảng A, chọn câu nào:
a Write(‘ Nhập A:’); Readln(A);
b For i:=1 to 4 do Readln(‘ Nhập A[‘, i, ‘]= ’);
c For i:=1 to 4 do Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]);
d For i:=1 to 4 do Begin Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]); End;
10/ Cho khai báo biến :
Var A : array[1 5] of Integer;
Chọn lệnh đúng:
a A:= 10 ; b A(3):= 6 ; c A[2]:= -6 ; d A[1]:= 4/2 ;
11/ Cho 2 xâu: a:='Tin Học'; b:='TIN HỌC'; Hãy chọn phương án đúng.
a Độ dài mỗi xâu là 7, xâu a< xâu b. b Độ dài mỗi xâu là 6, xâu a= xâu b.
c Độ dài mỗi xâu là 7, xâu a> xâu b. d Độ dài mỗi xâu là 7, xâu a= xâu b.
12/ Cho khai báo Var hoten:String; Phát biểu nào sau đây đúng?
a Xâu có độ dài lớn nhất là 0; b Câu lệnh sai vì thiếu độ dài tối đa của xâu;
c Cần phải khai báo độ dài lớn nhất của xâu đó; d Xâu có độ dài lớn nhất là 255;
13/ S1:=’lap trinh’; S2:= ‘ ngon ngu’; Insert(S2, S1, 4); S1 có giá trị là:
a 'lap ngon ngu trinh' b 'lap ngon ngutrinh' c 'lapngon ngu trinh' d 'ngon ngu lap trinh'
14/ Để xóa đi kí tự đầu tiên của xâu kí tự S ta viết:
a Delete(S,Length(S),1); b Delete(S,1,1);
c Delete (S,I,1); {I là biến có giá trị bất kì} d Delete (S,1,i); {i là biến có giá trị bất kì}
15/ Câu lệnh sau làm việc gì?
For i:=1 to length(s) do Write(s[length(s)-i+1])
a Không làm gì cả;
b Hiện ra màn hình xâu ngược lại so với xâu vừa nhập vào;

c Hiện ra màn hình xâu vừa nhập vào;
d Cho biết độ dài của xâu vừa nhập vào;
TRƯỜNG THPT BÌNH SƠN ĐỀ KIỂM TRA – NĂM HỌC 2010 - 2011
TỔ: TIN HỌC MÔN: TIN HỌC – THỜI GIAN:
15 PHÚT
HỌ VÀ TÊN: LỚP: 11
MÃ ĐỀ: 777
PHẦN TRẢ LỜI: Chọn một câu đúng nhất (tô hoặc đánh dấu X vào ô tương
ứng).
Câu 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
A
B
C
D
1/ Cho xâu A:='Lap trinh Pascal'. Nếu sử dụng hàm b:= pos(‘Pascal’, A);
Kết quả in ra giá trị của b là:
a 10 b 5 c 6 d 11
2/ Cho khai báo sau:
Var
A: array[0 16] of integer;
Câu lệnh nào sẽ in ra tất cả các phần tử của mảng trên
a For k :=0 to 15 do write(a[k]); b For k := 16 downto 0 do write(a[k]);
c For k :=0 downto 16 do write(a[k]); d For k :=1 to 16 do write(a[k]);
3/ Để xóa đi kí tự đầu tiên của xâu kí tự S ta viết:
a Delete(S,Length(S),1); b Delete (S,I,1); {I là biến có giá trị bất kì}
c Delete (S,1,i); {i là biến có giá trị bất kì} d Delete(S,1,1);
4/ Cho khai báo:
Var
A: Array[1 4] of Real;
i: Integer ;

Ðể nhập dữ liệu cho mảng A, chọn câu nào:
a For i:=1 to 4 do Readln(‘ Nhập A[‘, i, ‘]= ’);
b For i:=1 to 4 do Begin Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]); End;
c Write(‘ Nhập A:’); Readln(A);
d For i:=1 to 4 do Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]);
5/ Cho khai báo biến :
Var A : array[1 5] of Integer;
Chọn lệnh đúng:
a A[2]:= -6 ; b A:= 10 ; c A[1]:= 4/2 ; d A(3):= 6 ;
6/ S1:=’Ngon ngu Pascal’; S2:=Copy(S1, 10, 6); S2 có giá trị là:
a 'Ngon ngu ' b 'Ngon n' c 'Pascal' d 'Ngon ngu'
7/ Câu lệnh sau làm việc gì?
k:=0;
For i:=1 to length(S) do
If S[i]=' ' then k:=k+1;
a Đếm kí tự k trong xâu S; b Đếm kí tự S trong xâu S;
c Đếm tổng các kí tự trong xâu S; d Đếm kí tự trắng trong xâu S;
8/ Độ dài tối đa của xâu kí tự trong PASCAL là:
a Tùy ý b 256 c 255 d 65535
9/ Câu lệnh sau làm việc gì?
For i:=1 to length(s) do Write(s[length(s)-i+1])
a Hiện ra màn hình xâu ngược lại so với xâu vừa nhập vào;
b Hiện ra màn hình xâu vừa nhập vào;
c Cho biết độ dài của xâu vừa nhập vào;
d Không làm gì cả;
10/ Cho xâu S:='Tuoi hoc tro' thủ tục Delete(S, 1, Length(S)); kết quả ta được xâu?
a 'hoc' b Xâu rỗng; c 'Tuoi' d 'hoc tro'
11/ Cho khai báo Var hoten:String; Phát biểu nào sau đây đúng?
a Xâu có độ dài lớn nhất là 255; b Câu lệnh sai vì thiếu độ dài tối đa của xâu;
c Xâu có độ dài lớn nhất là 0; d Cần phải khai báo độ dài lớn nhất của xâu đó;

12/ S1:=’lap trinh’; S2:= ‘ ngon ngu’; Insert(S2, S1, 4); S1 có giá trị là:
a 'lap ngon ngu trinh' b 'lap ngon ngutrinh' c 'ngon ngu lap trinh' d 'lapngon ngu trinh'
13/ Xâu kí tự không có kí tự nào cả gọi là:
a Không phải là xâu kí tự b Xâu rỗng
c Xâu không d Xâu trắng
14/ Cho 2 xâu: a:='Tin Học'; b:='TIN HỌC'; Hãy chọn phương án đúng.
a Độ dài mỗi xâu là 7, xâu a= xâu b. b Độ dài mỗi xâu là 7, xâu a> xâu b.
c Độ dài mỗi xâu là 7, xâu a< xâu b. d Độ dài mỗi xâu là 6, xâu a= xâu b.
15/ Cho khai báo :
Var
A : array[1 2,1 3] of Real;
i, j : integer; Max : Real;
Ðể tìm số lớn nhất của ma trận A, chọn câu nào:
a A[1,1]:=Max ; For i:=1 to 2 do For j:=1 to 3 do if Max< A[i,j] then A[i,j]:=Max;
b Max:=A[1,1]; For i:=1 to 2 do if Max < A[i,j] then Max:=A[i,j];
c Max:=A[1,1]; i:=1; For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j];
d Max:=A[1,1]; For i:=1 to 2 do For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j];
TRƯỜNG THPT BÌNH SƠN ĐỀ KIỂM TRA – NĂM HỌC 2010 - 2011
TỔ: TIN HỌC MÔN: TIN HỌC – THỜI GIAN:
15 PHÚT
HỌ VÀ TÊN: LỚP: 11
MÃ ĐỀ: 888
PHẦN TRẢ LỜI: Chọn một câu đúng nhất (tô hoặc đánh dấu X vào ô tương
ứng).
Câu 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
A
B
C
D
1/ Cho khai báo:

Var
A: Array[1 4] of Real;
i: Integer ;
Ðể nhập dữ liệu cho mảng A, chọn câu nào:
a For i:=1 to 4 do Readln(‘ Nhập A[‘, i, ‘]= ’);
b For i:=1 to 4 do Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]);
c For i:=1 to 4 do Begin Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]); End;
d Write(‘ Nhập A:’); Readln(A);
2/ Cho khai báo biến :
Var A : array[1 5] of Integer;
Chọn lệnh đúng:
a A(3):= 6 ; b A:= 10 ; c A[1]:= 4/2 ; d A[2]:= -6 ;
3/ Câu lệnh sau làm việc gì?
For i:=1 to length(s) do Write(s[length(s)-i+1])
a Hiện ra màn hình xâu ngược lại so với xâu vừa nhập vào;
b Cho biết độ dài của xâu vừa nhập vào;
c Không làm gì cả;
d Hiện ra màn hình xâu vừa nhập vào;

4/ Cho khai báo :
Var
A : array[1 2,1 3] of Real;
i, j : integer; Max : Real;
Ðể tìm số lớn nhất của ma trận A, chọn câu nào:
a A[1,1]:=Max ; For i:=1 to 2 do For j:=1 to 3 do if Max< A[i,j] then A[i,j]:=Max;
b Max:=A[1,1]; i:=1; For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j];
c Max:=A[1,1]; For i:=1 to 2 do if Max < A[i,j] then Max:=A[i,j];
d Max:=A[1,1]; For i:=1 to 2 do For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j];
5/ S1:=’Ngon ngu Pascal’; S2:=Copy(S1, 10, 6); S2 có giá trị là:
a 'Ngon ngu' b 'Ngon ngu ' c 'Ngon n' d 'Pascal'

6/ Câu lệnh sau làm việc gì?
k:=0;
For i:=1 to length(S) do
If S[i]=' ' then k:=k+1;
a Đếm kí tự trắng trong xâu S; b Đếm kí tự k trong xâu S;
c Đếm tổng các kí tự trong xâu S; d Đếm kí tự S trong xâu S;
7/ Cho xâu A:='Lap trinh Pascal'. Nếu sử dụng hàm b:= pos(‘Pascal’, A);
Kết quả in ra giá trị của b là:
a 10 b 5 c 6 d 11
8/ Cho 2 xâu: a:='Tin Học'; b:='TIN HỌC'; Hãy chọn phương án đúng.
a Độ dài mỗi xâu là 7, xâu a> xâu b. b Độ dài mỗi xâu là 6, xâu a= xâu b.
c Độ dài mỗi xâu là 7, xâu a< xâu b. d Độ dài mỗi xâu là 7, xâu a= xâu b.
9/ S1:=’lap trinh’; S2:= ‘ ngon ngu’; Insert(S2, S1, 4); S1 có giá trị là:
a 'ngon ngu lap trinh' b 'lap ngon ngutrinh' c 'lapngon ngu trinh' d 'lap ngon ngu trinh'
10/ Độ dài tối đa của xâu kí tự trong PASCAL là:
a 255 b Tùy ý c 65535 d 256
11/ Cho khai báo sau:
Var
A: array[0 16] of integer;
Câu lệnh nào 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 :=0 to 15 do write(a[k]);
c For k :=1 to 16 do write(a[k]); d For k :=0 downto 16 do write(a[k]);
12/ Để xóa đi kí tự đầu tiên của xâu kí tự S ta viết:
a Delete (S,I,1); {I là biến có giá trị bất kì} b Delete(S,Length(S),1);
c Delete(S,1,1); d Delete (S,1,i); {i là biến có giá trị bất kì}
13/ Cho khai báo Var hoten:String; Phát biểu nào sau đây đúng?
a Xâu có độ dài lớn nhất là 255; b Xâu có độ dài lớn nhất là 0;
c Cần phải khai báo độ dài lớn nhất của xâu đó; d Câu lệnh sai vì thiếu độ dài tối đa của xâu;
14/ Cho xâu S:='Tuoi hoc tro' thủ tục Delete(S, 1, Length(S)); kết quả ta được xâu?
a 'Tuoi' b 'hoc' c Xâu rỗng; d 'hoc tro'

15/ Xâu kí tự không có kí tự nào cả gọi là:
a Xâu trắng b Không phải là xâu kí tự c Xâu rỗng d Xâu không
¤ Đáp án của đề thi: 111
1[ 1]d 2[ 1]a 3[ 1]c 4[ 1]b 5[ 1]c 6[ 1]d 7[ 1]d 8[ 1]a
9[ 1]a 10[ 1]b 11[ 1]c 12[ 1]d 13[ 1]d 14[ 1]b 15[ 1]d
¤ Đáp án của đề thi: 222
1[ 1]d 2[ 1]d 3[ 1]b 4[ 1]c 5[ 1]c 6[ 1]b 7[ 1]c 8[ 1]b
9[ 1]a 10[ 1]c 11[ 1]a 12[ 1]b 13[ 1]c 14[ 1]c 15[ 1]b
¤ Đáp án của đề thi: 333
1[ 1]b 2[ 1]c 3[ 1]c 4[ 1]d 5[ 1]c 6[ 1]a 7[ 1]c 8[ 1]a
9[ 1]d 10[ 1]b 11[ 1]a 12[ 1]b 13[ 1]d 14[ 1]a 15[ 1]a
¤ Đáp án của đề thi: 444
1[ 1]c 2[ 1]b 3[ 1]b 4[ 1]d 5[ 1]a 6[ 1]a 7[ 1]b 8[ 1]d
9[ 1]c 10[ 1]a 11[ 1]a 12[ 1]b 13[ 1]c 14[ 1]b 15[ 1]b
¤ Đáp án của đề thi: 555
1[ 1]c 2[ 1]a 3[ 1]c 4[ 1]c 5[ 1]c 6[ 1]d 7[ 1]b 8[ 1]a
9[ 1]a 10[ 1]d 11[ 1]a 12[ 1]c 13[ 1]d 14[ 1]b 15[ 1]a
¤ Đáp án của đề thi: 666
1[ 1]d 2[ 1]a 3[ 1]d 4[ 1]b 5[ 1]a 6[ 1]c 7[ 1]b 8[ 1]d
9[ 1]d 10[ 1]c 11[ 1]c 12[ 1]d 13[ 1]a 14[ 1]b 15[ 1]b
¤ Đáp án của đề thi: 777
1[ 1]d 2[ 1]b 3[ 1]d 4[ 1]b 5[ 1]a 6[ 1]c 7[ 1]d 8[ 1]c
9[ 1]a 10[ 1]b 11[ 1]a 12[ 1]a 13[ 1]b 14[ 1]b 15[ 1]d
¤ Đáp án của đề thi: 888
1[ 1]c 2[ 1]d 3[ 1]a 4[ 1]d 5[ 1]d 6[ 1]a 7[ 1]d 8[ 1]a
9[ 1]d 10[ 1]a 11[ 1]a 12[ 1]c 13[ 1]a 14[ 1]c 15[ 1]c