Конструктор тестів
1
Дано масив:
А[i] | 3 | 8 | 5 | 7 | 6 |
Визначте результат виконання фрагмента програми:
P := 1;
For i := 1 to 5 do If A[i]<=5 Then P := P*A[i];
2
Дано масив:
А[i] | 3 | 8 | 5 | 7 | 6 |
Визначте результат виконання фрагмента програми:
S := 1;
For i := 1 to 5 do If i mod 2 =0 Then S := S+A[i];
3
Дано масив:
А[i] | 3 | 8 | 5 | 7 | 6 |
Визначте результат виконання фрагмента програми:
S := 1;
For i := 1 to 5 do If A[i] <6 Then S := S+A[i];
4
Які задачі належать до задач на пошук у масиві елемента із заданою властивістю?
5
Які задачі належать до задач на змінювання значень елементів масиву?
6
Встановіть відповідність між операторами та їх призначенням.
For i := 1 to 10 do S := S + A[i]
Подвоєння значень елементів масиву
For i := 1 to 10 do А[i] := Random(10)+5
Оголошення масиву 10 дійсних чисел
var A: array[1..10] of Real
Заповнення масиву
For i := 1 to 10 do А[i] := А[i]*2
Знаходження суми елементів масиву
7
Встановіть відповідність між операторами та їх призначенням.
For i := 1 to 10 do If A[i]<0 Then S :=
Знаходження суми від’ємних
К := 0; For i := 1 to 10 do If A[i]<0
Заміна нулями від’ємних
For i := 1 to 10 do If A[i]<0 Then
Визначення кількості
For i := 1 to 10 do If A[i]<0 Then А[i]:= 0
Виведення від’ємних
8
Дано програму:
var a: array [1..8] оf Integer; M, k: Integer;
begin {…} M := a[1];
For k := 2 to 8 do If M < a[k] Then M := a[k]; {…}
Скільки разів буде виконаний оператор M := a[k] для масиву (3, 8, 7, 9, 4, 10, 2, 12)?
9
Дано масив:
A[i] | 3 | 8 | 5 | 7 | 6 |
Визначте результат виконання фрагмента програми:
S := 0;
For i := 1 To 5 do S := S+ A[i];
10
Дано масив:
A[i] | 3 | 8 | 5 | 7 | 6 |
Визначте результат виконання фрагмента програми:
K := 0;
For i := 1 To 5 do K := K+1;
11
Для розв'язування якої задачі опрацювання елементів табличної величини можна використати такий фрагмент?
s:=0; k:=0;
for i:=1 to 10 if a[i] > 0 then begin s:=s+a[i]; k:=k+1; end;
sa:= s/k;
12
Встанови правильну послідовність команд в програмі: визначити найбільше заначення елементів табличної величини.
var a: array [1..10] of real; i: integer; max: real;
end;
procedure TForm1.Button1Click(Sender: TObject);
Label1.Caption := FloatToStr (max) + ‘ — найбільше значення’;
begin
for i := 1 to 10 do a[i] := StrToFloat(Memo1.Lines[i-1]);
for i := 2 to 10 do If a[i] > max Then max := a[i];
max := a[1];
Рефлексія від 292 учнів
Сподобався:
Так: 170
Ні: 122
Зрозумілий:
Так: 158
Ні: 134
Потрібні роз'яснення:
Ні: 197
Так: 95