Пройти тестування. Бажаю успіху!!!
Конструктор тестів
Пройти тестування. Бажаю успіху!!!
Пройти тестування. Бажаю успіху!!!
1
Потрібно обчислити добуток значень заданих табличних величин. Виберіть початкове значення добутку.
2
Як описати масив А з 25 цілих чисел?
3
Встановіть відповідність між величинами та їх типами.
Назва дня тижня
Real
Кількість учнів у класі
String
Таблиця температури повітря протягом місяця
Integer
Середньодобова температура повітря
array[1..30] of real
4
Для чого призначений компонент Memo у середовищі програмування Lazarus?
5
Яким службовим словом в програмі позначається масив?
6
Дано масив А , що складається з таких чисел 5; 23; 1 ;12; 8
Визначте результат виконання фрагмента програми:
S:= 0;
For i:= 1 to 5 do
If A[i]<=8 Then S:= S+A[i];
7
Чому дорівнює змінна A після виконання фрагменту програми:
var mas: array[1..10] of Real; A: Real;
begin
mas[1]:=14;
mas[5]:=3;
mas[9]:=8;
A:=(mas[9] - mas[1])*mas[5];
8
Індекс елемента масиву -
9
Що робить даний фрагмент процедури?
s:=0;
for i:=1 to 10 do s:=s+a[i];
10
procedure TForm1.Button2Click(Sender: TObject);
var a:array [1 .. 7] of integer; m, i: integer;
begin
M:=A[1];
for i:=2 to 7 do
if A[i]>m then m:=A[i];
Label1.Caption:=InttoStr(m);
end;
11
Що таке масив?
12
Встановіть відповідність між операторами та їх призначенням.
For i := 1 to 10 do А[i] := А[i]*2;
Знаходження суми елементів масиву
var A: array[1..10] of Real;
Заповнення масиву випадковими числами в діапазоні [0; 9]
For i := 1 to 10 do А[i] := Random(10);
Оголошення масиву 10 дійсних чисел
For i := 1 to 10 do S := S + A[i];
Подвоєння значень елементів масиву
13
Вкажіть правильні записи оголошення масивів.
14
procedure TForm1.Button2Click(Sender: TObject);
var a:array [1 .. 7] of integer; m, i: integer;
begin
M:=A[1];
for i:=2 to 7 do
if A[i]<m then m:=A[i];
Label1.Caption:=InttoStr(m);
end;
15
Для візуалізації елементів табличної величини використовують компонент ...
Рефлексія від 14 учнів
Сподобався:
Так: 12
Ні: 2
Зрозумілий:
Так: 12
Ні: 2
Потрібні роз'яснення:
Ні: 14
Так: 0