DE KIEM TRA 15 HK2 - K11

Trang 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Ã ĐỀ: 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:

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à:

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

Trang 2

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à:

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?

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à:

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ì}

Trang 3

15 PHÚT

ứng)

Câu 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 A

B

C

D

k:=0;

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;

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;

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ì}

d Không phải là xâu kí tự

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'

Trang 4

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

i: Integer ;

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, ‘]= ’);

14/ Cho khai báo :

Var

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];

c For k :=0 downto 16 do write(a[k]); d For k :=1 to 16 do write(a[k]);

Trang 5

15 PHÚT

ứ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 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];

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]);

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;

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;

a Đếm kí tự trắng trong xâu S; b Đếm kí tự S trong xâu S;

Trang 6

c Đếm tổng các kí tự trong xâu S; d Đếm kí tự k trong xâu S;

d Xâu rỗng

a 'lap ngon ngu trinh' b 'lapngon ngu trinh' c 'ngon ngu lap trinh' d 'lap ngon ngutrinh'

12/ Cho khai báo:

Var

i: Integer ;

a 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 Write(‘ Nhập A:’); Readln(A);

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;

Trang 7

15 PHÚT

ứng)

Câu 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 A

B

C

D

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 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];

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);

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;

k:=0;

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;

Trang 8

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 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

i: Integer ;

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]);

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à:

Trang 9

15 PHÚT

ứng)

Câu 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 A

B

C

D

2/ Cho khai báo :

Var

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];

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;

a 'lap ngon ngutrinh' b 'ngon ngu lap trinh' c 'lap ngon ngu trinh' d 'lapngon ngu trinh'

7/ Cho khai báo:

Var

i: Integer ;

a 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 Write(‘ Nhập A:’); Readln(A);

Trang 10

k:=0;

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;

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 For k :=0 to 15 do write(a[k]); d For k :=0 downto 16 do write(a[k]);

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ả;

Định dạng
Số trang	17
Dung lượng	237,5 KB