Đề kiểm tra 45(ki 2)

Khai báo nào sau đây là đúng cú pháp A... Cách khai báo xâu nào là đúngA. Một xâu có tối đa bao nhiêu kí tự.. Phần tử đầu tiên của xâu là phần tử thứ: A.. Câu lệnh nào xóa kí tự cuối c

§Ò: 001 KiÓm tra 45 phót

M«n: Tin häc - 11

Hä vµ tªn:……….

Líp:……….

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

A 2

B 1

C 1 2 3

D 3

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?

A 3

B 2

C 1

D 0

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;

A 50

B 40

C 100

D 30

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

A s : array[1 255] of char;

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

A 64

B 255

C 128

D 256

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

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

A 1

B 2

C 6

D 5

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

-HÕt -§Ò: 002 KiÓm tra 45 phót

M«n: Tin häc - 11

Hä vµ tªn:……….

Líp:……….

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

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

A 1

B 2

C 6

D 5

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

A a[i,j]

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

A 2

B 1

C 1 2 3

D 3

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?

A 3

B 2

C 1

D 0

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;

A 50

B 40

C 100

D 30

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;

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

A 64

B 255

C 128

D 256

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;