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

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;