CÂU HỎI TRẮC NGHIỆM (P2) ppt

; Muốn biến Max lưu gía trị lớn nhất của mảng A thì cần khai báo biến Max kiểu gì vào chỗ... Ðể tính : ta có đoạn chương trình sau gồm ba lệnh, một lệnh còn bỏ trống.. Hãy điền lệnh th

CÂU HỎI TRẮC NGHIỆM

Câu 1: Chọn khai báo đúng :

a) Var A: array[1 10] of integer;

b) Var A= array[1 10] of integer;

c) Var A:= array[1 10] of integer;

d) Var A: array[1,10] of integer;

Câu 2: Cho khai báo:

Var

A: Array[1 4] of Real;

i : Integer ;

Ðể nhập dữ liệu cho A, chọn câu nào :

a) For i:=1 to 4 do Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]);

b) For i:=1 to 4 do Readln(‘ Nhập A[‘, i, ‘]:’);

c) For i:=1 to 4 do Begin Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]); End;

d) Write(‘ Nhập A:’); Readln(A);

Câu 3: Cho khai báo biến :

Var A : array[1 5] of Integer;

Chọn lệnh đúng :

a) A[1] := 4/2 ;

b) A[2] := -6 ;

c) A(3) := 6 ;

d) A := 10 ;

Câu 4: 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 gía trị lớn nhất của mảng A thì cần khai báo biến Max kiểu gì vào chỗ :

a) Char

b) Integer

c) String

d) Real

Câu 5: 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ó gía trị là :

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

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

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

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

Câu 6: Khai báo nào đúng :

a) Var A : array[1 n,1 m] of integer;

b) Const n=2; m=3; Var A: array[1 n,1 m] of integer;

c) Var n, m : integer ; A: array[1 n,1 m] of integer;

d) Var A: array[3, 2] of Integer;

Câu 7: Cho khai báo :

Var

A : array[1 2,1 3] of Real;

i, j : integer;

Ðể nhập dữ liệu cho ma trận A, chọn :

a) Write(‘ Nhập A:’);

Readln(A) ;

b) For i:=1 to 2 do Readln(A[i, j]);

c) For i:=1 to 2 do

For j:=1 to 3 do

begin

write(‘Nhập A[‘, i, j, ‘]:’);

readln(A[i, j]);

end;

d) For i:=1 to 2 do

For j:=1 to 3 do

write(‘Nhập A[‘, i, j, ‘]:’);

readln(A[i, j]);

Câu 8: 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) Max:=A[1,1];

If Max < A[i,j] then

Max:=A[i,j];

b) Max:=A[1,1];

For i:=1 to 2 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];

For i:=1 to 2 do

For j:=1 to 3 do

if Max < A[i,j] then Max:=A[i,j];

Câu 9: Khi chạy chương trình :

Var

A : array[1 2,1 3] of integer;

i, j, S : integer;

Begin

A[1,1]:= 3 ; A[1,2]:= -1 ; A[1,3]:= -4 ;

A[2,1]:= -9 ; A[2,2]:= 0 ; A[2,3]:= 5 ;

S:=0;

for i:=1 to 2 do

for j:=1 to 3 do If A[i,j] < 0 then S:=S+1;

Write(S);

End

Kết qủa in ra gía trị của S là :

a) 0

b) -9

c) 3

d) 5

Câu 10: Cho X1, X2, Xn là một mảng số thực Ðể tính :

ta có đoạn chương trình sau gồm ba lệnh, một lệnh còn bỏ trống :

S:=0;

For i:=1 to N do S := S + X[i];

Hãy điền lệnh thích hợp vào chỗ :

a) Write ('S=', S);

b) Readln (S);

c)

d) S := S/N;