kiem tra 45 phut tin 12 hk2

Khai báo nào sau đây là đúng cú pháp A.. Cách khai báo xâu nào là đúng5. Phần tử đầu tiên của xâu là phần tử thứ:.A. Cho đoạn chương trình sau: a:='Truong Dinh'; b:='truong dinh' Phát b

§Ò: 001 TRƯỜNG THPT ĐƠN DƯƠNG KiÓm tra 45 phót

M«n: Tin häc - 11

Thời gian :45 phút

Hä vµ tªn………

Líp:………

I:PHAÀN TRAÉC NGHIEÄM (6 ñieåm )

1 Khai báo nào sau đây là đúng cú pháp

A Type mang = array [1 100] of byte; B Type mang1c = array [1-100] of byte;

C Type mang1c = array (1 100) of byte; D Type mang1c = array [1…100] of byte;

2 Nếu khai báo biến a:array[1 100,1 100] of integer thì việc truy xuất đến phần tử nào là đúng

A a[i,j] B a[i;j] C a[i][j] D a[i],[j]

3 Đoạn chương trình sau khi thực hiện cho kết quả gì

Var a:array[1 3] of byte; i:byte;

Begin

For i:=1 to 3 do a[i]:=i;

For i:=1 to 3 do

If a[i] mod 2 = 0 then Write(a[i]);

End

4.Trong Pascal, để xuất các phần tử của mảng 2 chiều ta dùng mấy vòng For?

5 Khai báo sau đây thì mảng có tối đa bao nhiêu phần tử?

Var a:array [1 10,2 5] of byte;

6 Cách khai báo xâu nào là đúng?

A s : array[1 255] of char; B s : File of String; C s : char[256]; D s : string[30];

7 Một xâu có tối đa bao nhiêu kí tự?

8 Xâu không có kí tự nào gọi là:

A Xâu không B Xâu chứa khoảng trắng C Xâu rỗng D Không có loại xâu này

9 Phần tử đầu tiên của xâu là phần tử thứ:

A 1 B Do người lập trình khai báo C 0 D Không có chỉ số

10 Khai báo nào sau đây là sai:

A s:string[1]; B s:string[100]; C s:string[256]; D s:string;

11 a sẽ có kết quả là gì trong đoạn chương trình sau:

a:='tuoi hoc tro'; delete(a,9,4);

A xâu rỗng B tuoi hoc C hoc tro D tuoi

12 a sẽ có kết quả là gì trong đoạn chương trình sau:

a:='tuoi hoc tro'; delete(a,1,length(a));

A hoc tro B xâu rỗng C tuoi hoc D tuoi

13 a sẽ có kết quả là gì trong đoạn chương trình sau:

a:='hoc tro'; b:='tuoi'; insert(a,b,5);

A hoc tro B hoc tuoi tro C tuoi hoc tro D Sai cú pháp

14 Cho đoạn chương trình sau:

a:='Truong Dinh';

b:='truong dinh'

Phát biểu nào là đúng?

A a bằng b B Không thể so sánh 2 xâu C b lớn hơn a D a lớn hơn b

15 Câu lệnh nào xóa kí tự cuối cùng của xâu a?

A delete(a,1,255) B delete(a,1,length(a)) C delete(a,length(a),1) D delete(a,255,1)

16 a:='Truong Truong Dinh';

pos('Truong',a) cho giá trị là:

17 Đoạn chương trình sau làm gì?

For i:=length(a) downto 1 do write(a[i]);

A Viết ra kí tự đầu của a B Viết ra kí tự cuối của a

C Viết xâu a theo thứ tự ngược D Viết xâu a theo thứ tự

18 Đoạn chương trình sau làm gì?

k:=0;

For i:=1 to length(a) do

If a[i]='a' then k:=k+1;

A Đếm số kí tự số trong xâu a B Đếm số kí tự a trong xâu a

C Đếm số kí tự trắng trong xâu a D Đếm số kí tự trong xâu a

19 Đoạn chương trình sau làm gì?

k:=0;

For i:=1 to length(a) do

If a[i]=a[1] then k:=k+1;

A Đếm số kí tự trắng trong xâu a B Đếm số kí tự số trong xâu a

C Đếm số kí tự a trong xâu a D Đếm số kí tự giống kí tự đầu trong xâu a

20 Chương trình sau sẽ viết ra cái gì?

For i:=1 to n do

If a[i] mod 2 =1 then Write(a[i]);

A Viết ra tổng của mảng a B Viết ra các số lẻ của mảng a

C Viết ra tất cả các số của mảng a D Viết ra các số chẳn của mảng a

II.PHẦN TỰ LUẬN: (4 điểm)

Câu 1:Trong ngơn ngữ lập trình Pascal, cho đoạn chương trình sau:

Var S1, S2,: String;

D, B, C,: byte;

Begin

S1:=‘Truong-Nguyen Binh Khiem’;

S2:=‘thpt’;

D:=lenght(S1)+ length(S2);

Insert(S2, S1,7);

B:= Pos(‘y’,S1);

C:=length(S1);

End

Em hãy xác định giá trị của các biến D, B, C sau khi thực hiện xong đoạn chương trình trên

Giá trị

(Học sinh làm phần tự luận trên giấy học sinh )

M«n: Tin häc - 11

Thời gian 45 phút

Hä vµ tªn:………

Líp:……

I:PHẦN TRẮC NGHIỆM (6 điểm )

1 a sẽ cĩ kết quả là gì trong đoạn chương trình sau:

a:='tuoi hoc tro'; delete(a,9,4);

A xâu rỗng B tuoi hoc C hoc tro D tuoi

2 a sẽ có kết quả là gì trong đoạn chương trình sau:

a:='tuoi hoc tro'; delete(a,1,length(a));

A hoc tro B xâu rỗng C tuoi hoc D tuoi

3 a sẽ có kết quả là gì trong đoạn chương trình sau:

a:='hoc tro'; b:='tuoi'; insert(a,b,5);

A hoc tro B hoc tuoi tro C tuoi hoc tro D Sai cú pháp

4 Câu lệnh nào xóa kí tự cuối cùng của xâu a?

A delete(a,1,255) B delete(a,1,length(a)) C delete(a,length(a),1) D delete(a,255,1)

5 a:='Truong Truong Dinh';

pos('Truong',a) cho giá trị là:

6 Đoạn chương trình sau làm gì?

For i:=length(a) downto 1 do write(a[i]);

A Viết ra kí tự đầu của a B Viết ra kí tự cuối của a

C Viết xâu a theo thứ tự ngược D Viết xâu a theo thứ tự

7 Đoạn chương trình sau làm gì?

k:=0;

For i:=1 to length(a) do

If a[i]='a' then k:=k+1;

A Đếm số kí tự số trong xâu a B Đếm số kí tự a trong xâu a

C Đếm số kí tự trắng trong xâu a D Đếm số kí tự trong xâu a

8 Đoạn chương trình sau làm gì?

k:=0;

For i:=1 to length(a) do

If a[i]=a[1] then k:=k+1;

A Đếm số kí tự trắng trong xâu a B Đếm số kí tự số trong xâu a

C Đếm số kí tự a trong xâu a D Đếm số kí tự giống kí tự đầu trong xâu a

9 Chương trình sau sẽ viết ra cái gì?

For i:=1 to n do

If a[i] mod 2 =1 then Write(a[i]);

A Viết ra tổng của mảng a B Viết ra các số lẻ của mảng a

C Viết ra tất cả các số của mảng a D Viết ra các số chẳn của mảng a

10 Khai báo nào sau đây là đúng cú pháp

A Type mang = array [1 100] of byte; B Type mang1c = array [1-100] of byte;

C Type mang1c = array (1 100) of byte; D Type mang1c = array [1 100] of byte;

11 Nếu khai báo biến a:array[1 100,1 100] of integer thì việc truy xuất đến phần tử nào là đúng

12 Đoạn chương trình sau khi thực hiện cho kết quả gì

Var a:array[1 3] of byte; i:byte;

Begin

For i:=1 to 3 do a[i]:=i;

For i:=1 to 3 do

If a[i] mod 2 = 0 then Write(a[i]);

End

13.Trong Pascal, để xuất các phần tử của mảng 2 chiều ta dùng mấy vòng For?

14 Đoạn chương trình sau làm gi?

S:=0;

For i:=1 to n do S:=S+a[i];

A Đếm số phần tử của mảng A B In ra mảng A

C Tính tổng các phần tử của mảng A D Nhập mảng A

15 Khai báo sau đây thì mảng có tối đa bao nhiêu phần tử?

Var a:array [1 10,2 5] of byte;

16 Trong ngôn ngữ Pascal, xâu là:

A Mảng các kí tự B Tập hợp các chữ cái và chữ số

C Tập hợp các chữ cái từ A đến Z D Dãy các kí tự trong bảng mã ASCII

17 Cách khai báo xâu nào là đúng?

A s : array[1 255] of char; B s : File of String; C s : char[256]; D s : string[30];

18 Một xâu có tối đa bao nhiêu kí tự?

19 Xâu không có kí tự nào gọi là:

A Xâu không B Xâu chứa khoảng trắng C Xâu rỗng D Không có loại xâu này

20 Khai báo nào sau đây là sai:

A s:string[1]; B s:string[100]; C s:string[256]; D s:string;

II.PHẦN TỰ LUẬN: (4 điểm)

Câu 1:Trong ngơn ngữ lập trình Pascal, cho đoạn chương trình sau:

Var S1, S2,: String;

D, B, C,: byte;

Begin

S1:=‘Truong-trung hoc pho thong don duong’;

S2:=‘thpt’;

D:=lenght(S1)+ length(S2);

Insert(S2, S1,7);

B:= Pos(‘p’,S1);

C:=length(S1);

End

Em hãy xác định giá trị của các biến D, B, C sau khi thực hiện xong đoạn chương trình trên

Giá trị

(Học sinh làm phần tự luận trên giấy học sinh )