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
2-
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 gì vào chỗ …?
A -
Char
B -
String
C -
Integer
D -
Real
3-
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]=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
4-
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;
5-
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]);
6-
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];
7-
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
8-
Cho X1, X2,...Xn là một mảng số thực. Ðể tính biểu thức:
S=(1/N)*(X1 + X2 + … + XN);
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 -
Writeln(N);
D -
S:= S/N;
9-
Cho biến SS kiểu lô gic. Lệnh nào làm SS có giá trị là TRUE?
A -
SS:= 'a' < 'A';
B -
SS:= 'A' = 'a';
C -
SS:= 'an' < 'a';
D -
SS:= 'PASCAL' < 'pascal';
10-
Cho khai báo:
Var Ho,ten: String[15];
Lệnh nào sau đây là sai?
