wayground logo

Free Printable Worksheets

Font size

S
M
L
XL
Worksheets

bài kttx

Total questions: 10

Worksheet time: 10mins

Name
Class
Date
1.

Trong khai báo mảng một chiều, nếu ở kiểu chỉ số có n1=-99; n2=0. Hãy cho biết muốn tham chiếu đến phần tử thứ 4 của mảng thì chỉ số là?

a)

4

b)

3

c)

-96

d)

-95

2.

Cho khai báo sau :

Var a : array[0..16] of integer ;

Câu lệnh nào dưới đây 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 16 do write('a[k']);

d)

for k := 16 downto 0 write(a['k']);

3.

Câu lệnh sau làm gi?

For i:=1 to 10 do readln(A[i]);

a)

Nhập 10 phần tử đầu tiên 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)

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

4.

Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các việc sau (A là mảng số có N phần tử)?


For i:=1 to n do if (A[i] mod 2= 0) then Write(A[i]:3);

a)

Xuất các phần tử chẵn của mảng A ra màn hình

b)

Xuất các phần tử lẻ của mảng A ra màn hình

c)

Nhập các phần tử lẻ vào mảng A

d)

Nhập các phần tử chẵn vào mảng A

5.

Chọn câu lệnh nhập giá trị cho 5 phần tử đầu tiên của mảng A đúng:

a)

For i:=1 to 5 do readln(A[i]);

b)

For i:=1 downto 5 do readln(A[i]);

c)

For i:=1 to 5 do writeln(A[i]);

d)

For i:=1 downto 5 do writeln(A[i]);

6.

Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các việc sau (A là mảng số có N phần tử)?


S:=0;

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

a)

Tính tổng các phần tử của mảng A

b)

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

c)

In ra màn hình mảng A.

d)

Tính tích các phần tử của mảng A.

7.

Trong khai báo sau còn bỏ trống . . . một chỗ, vì chưa xác định được kiểu dữ liệu của biến Max:

Var A: Array[‘a’..’d’] of Real;

Ch : Char ;

Max : . . . ;

Muốn biến Max lưu giá trị lớn nhất của mảng A thì cần khai báo biến Max kiểu dữ liệu gì vào chỗ . . . :

a)

Real

b)

Char

c)

Integer

d)

String

8.

Cho khai báo:

Var A: Array[1..4] of Integer;

i : Integer;

Sau khi thực hiện các lệnh:

For i:=1 to 4 do A[i]:= i;

For i:=1 to 4 do A[i]:= A[i]+1;

thì mảng A có giá trị là:

a)

A[1]=0, A[2]=1, A[3]=2, A[4]=3

b)

A[1]=1, A[2]=1, A[3]=1, A[4]=1

c)

A[1]=1, A[2]=2, A[3]=3, A[4]=4

d)

A[1]=2, A[2]=3, A[3]=4, A[4]=5

9.

Lệnh nào in giá trị các phần tử trong mảng trên cùng một dòng?

a)

For i:= n downto 1 do writeln(A[i],' ');

b)

For i:= n downto 1 do write(A[i], ‘ ’);

c)

For i:= 1 to n do read(A[i],' ');

d)

For i:= 1 to n do readln(A[i],' ');

10.

var a:array[1..10] of integer; s,i:integer;

begin

s:=0;

for i:=1 to 10 do a[i]:=i;

for i:=5 downto 1 do s:=s+a[i]; writeln(s);

readln

end.

Sau khi thực hiện chương trình trên, giá trị hiển thị lên màn hình là gì?

a)

20

b)

10

c)

5

d)

15