wayground logo

Free Printable Worksheets

NEW

Font size

S
M
L
XL
Worksheets

kiểu mảng

Total questions: 12

Worksheet time: 6mins

Name
Class
Date
1.

Em hãy chỉ ra cấu trúc nào được sử dụng trong đoạn chương trình sau:

Tong:=0; For i:=1 to 10 do tong:=tong+i;

a)

A. Cấu trúc rẽ nhánh

b)

B. Cấu trúc lặp

c)

C. Câu lệnh ghép

d)

D. Cấu trúc chương trình

2.

Câu lệnh While – Do dùng để làm gì?

a)

A. Lặp với số lần biết trước                                           

b)

B. Lặp với số lần chưa biết trước

c)

C. Đưa dữ liệu ra màn hình                                            

d)

D. Nhập dữ liệu vào từ bàn PHÍM

3.

Em hãy cho biết đâu là cú pháp của cấu trúc lặp không biết trước?

a)

A. white <điều kiện> do <câu lệnh>

b)

B. while <điều kiện> do <câu lệnh> ;

c)

C. while <điều kiện> to <câu lệnh>;

d)

D. while <điều kiện> begin <câu lệnh>;end;

4.

Đâu là kiểu dữ liệu của biến đếm trong vòng lặp For – do:

a)

A. Kiểu nguyên          

b)

B. Kiểu thực              

c)

C. Kiểu xâu                

d)

D. Kiểu logic

5.

Hãy chọn phương án SAI ở dạng lặp tiến For – do ?

a)

A. Là câu lệnh lặp với số lần biết trước

b)

B. for < biến đếm> = < Giá trị cuối > downto < Giá trị đầu > do < câu lệnh >;

c)

C. for < biến đếm> = < Giá trị cuối > down < Giá trị đầu > do < câu lệnh >;

d)

D. for < biến đếm>:= < Giá trị đầu >  to < Giá trị cuối > do < câu lệnh>;

6.

Cú pháp lệnh lặp For – do dạng lùi là:

a)

A. Đầu phải nhỏ hơn hoặc bằng giá trị cuối.

b)

B. Biến đếm cùng kiểu với giá trị đầu và giá trị cuối

c)

C. Giá trị đầu phải bằng giá trị cuối

d)

D. for < biến đếm>:= < Giá trị cuối > downto < Giá trị đầu > do < câu lệnh >;

7.

Cho đoạn chương trình: S:= 0; n:= 1;

while … do

Begin

S:= S + n;

n:= n + 1;

end;

Tính tổng S = 1 + 2 + 3 + … + 100, điều kiện nào sau đây cần điền vào chỗ ba chấm (…) giữa câu lệnh while … do?

a)

A. n >= 100

b)

B. n = 100

c)

C. n < 100

d)

D. n <= 100

8.

Đoạn chương trình sau thực hiện công việc?

While M <> N do

If M > N then M:=M - N else N:=N - M;

a)

A.Tìm ước số chung lớn nhất của M và N

b)

B. Tìm bội số chung nhỏ nhất của M và N

c)

C. Tìm hiệu nhỏ nhất của M và N

d)

D. Tìm hiệu lớn nhất của M và N

9.

Đoạn chương trình sau thực hiện công việc?

For i:= 1 to 100 do

If (i mod 3 = 0) and (i mod 5 = 0) then

t:= t + i;

a)

A. Tổng các số chia hết cho 3 hoặc 5 trong phạm vi từ 1 đến 100

b)

B. Tổng các số chia hết cho 3 và 5 trong phạm vi từ 1 đến 100

c)

C. Tổng các số chia hết cho 3 trong phạm vi từ 1 đến 100

d)

D. Tổng các số chia hết cho 5 trong phạm vi từ 1 đến 100

10.

Hãy cho biết đoạn chương trình sau thực hiện công việc?

i: = 0; t:= 0;

while i < 10000 do

Begin

t:= t + i; i:= i + 2;

end;

a)

A. Tính tổng các số tự nhiên nhỏ hơn hoặc bằng 10000

b)

B. Tính tổng các số tự nhiên chẵn nhỏ hơn 10000

c)

C. Tính tổng các số tự nhiên chẵn nhỏ hơn hoặc bằng 10000

d)

D. Tính tổng các số tự nhiên nhỏ hơn 10000

11.

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

for i:= 1 to 10 do

if a[i] mod 2<>0 then s:=s+a[i]; write(s);

cho phương án ĐÚNG?

a)

A. Tính tổng các phần tử chia hết cho 2        

b)

B. Tính tổng các phần tử không chia hết cho 2         

c)

C. Tính tích các phần tử chia hết cho 2                     

d)

D. Tính tích các phần tử không chia hết cho 2

12.

Cho khai báo mảng:

Var a: array[0..50] of Byte ;

và đoạn chương trình như sau:

k:= 2 ;

for i:= 1 to 50 do

if a[i] mod k=0 then tong:=tong+a[i] ;

Đoạn chương trình trên thực hiện công việc?

a)

A. Tính tổng các số không chia hết cho 2 từ 1 đến 50

b)

C. Tính tổng các số chia hết cho 2 từ 1 đến 50

c)

D. Đếm các số chia hết cho 2 từ 1 đến 50