Складання і виконання алгоритмів пошуку значень у таблиці в навчальному середовищі програмування

Тести Інформатика 9 клас Тест
Комракова Р. В.
Додано: 8 квітня 2020
Предмет: Інформатика, 9 клас
Тест виконано: 1229 разів
Домашня робота
В реальному часі
Тестування
Відповідності
Флеш-картки
Роздрукувати
10 запитань
Запитання 1

Визначте, яка дія реалізована за допомогою фрагмента програмного коду:

Sum := 0;

For i := 1 to 3 do

For j := 1 to 4 do Sum := Sum + A[i, j];

варіанти відповідей

Додавання елементів першого рядка масиву А[1..3, 1..4]

Додавання елементів першого стовпця масиву А[1..3, 1..4]

Додавання елементів головної діагоналі масиву А[1..3, 1..4]

Додавання елементів масиву А[1..3, 1..4]

Запитання 2

Визначте, яка дія реалізована за допомогою фрагмента програмного коду:

Sum := 0;

For j := 1 to 4 do Sum := Sum + A[1,j];

варіанти відповідей

Додавання елементів першого рядка масиву А[1..3, 1..4]

Додавання елементів першого стовпця масиву А[1..3, 1..4]

Додавання елементів головної діагоналі масиву А[1..3, 1..4]

Додавання елементів масиву А[1..3, 1..4]

Запитання 3

Визначте, яка дія реалізована за допомогою фрагмента програмного коду:

Sum := 0;

For i := 1 to 3 do Sum := Sum + A[i,1];

варіанти відповідей

Додавання елементів першого стовпця масиву А[1..3, 1..4]

Додавання елементів головної діагоналі масиву А[1..3, 1..4]

Додавання елементів масиву А[1..3, 1..4]

Запитання 4

Які фрагменти коду реалізують обчислення суми елементів головної діагоналі масиву Tabl[1..4, 1..4]?


варіанти відповідей

Sum := 0; For i := 1 to 4 do Sum := Sum + Tabl[i,і];

Sum := 0; For i := 1 to 4 do 

For j := 1 to 4 do if i = j then Sum := Sum + Tabl[i,j];

Sum := 0; For i := 1 to 4 do Sum := Sum + Tabl[1,і];

Sum := 0; For i := 1 to 4 do Sum := Sum + Tabl[i,1];

Запитання 5

Які значення властивостей задані для елемента StringGrid, зображеного на рисунку?

варіанти відповідей

StringGrid1.ColCount = 5

StringGrid1.RowCount = 4

StringGrid1.FixedRows = 1

StringGrid1.FixedCols = 0

Запитання 6

Елементи масиву a[1..3,1..4] мають такі значення:

Визначте, чому дорівнює значення змінної К після виконання оператора присвоєння

К := a[i,j]+a[i,j+1] при і = 3, j = 2


варіанти відповідей

11

8

7

-3

Запитання 7

Заповнити одновимірний масив В[1..6] значеннями максимальних елементів стовпців масиву Tabl

варіанти відповідей

Sum := 0; For j := 1 to 6 do Sum := Sum+Tabl[3,j];

For j := 1 to 6 begin K := 0;

For i := 1 to 4 do If Tabl[i,j] mod 2 = 0 Then K := K+1;

ListBox1.Items.Add (IntToStr(K));

For j := 1 to 6 begin Max := Tabl [1,j];

For i := 2 to 4 do If Max < Tabl[i, j] Then Max := Tabl[i, j];

B[j] := Max;

end;

For j := 1 to 6 begin Sum := 0;

For i := 1 to 4 do Sum := Sum +Tabl[i, j];

B[j] := Sum;

end;

Запитання 8

Знайти суму елементів третього рядка масиву Tabl[1..4, 1..6]

варіанти відповідей

Sum := 0; For j := 1 to 6 do Sum := Sum+Tabl[3,j];

For j := 1 to 6 begin K := 0;

For i := 1 to 4 do If Tabl[i,j] mod 2 = 0 Then K := K+1;

ListBox1.Items.Add (IntToStr(K));

For j := 1 to 6 begin Max := Tabl [1,j];

For i := 2 to 4 do If Max < Tabl[i, j] Then Max := Tabl[i, j];

B[j] := Max;

end;

For j := 1 to 6 begin Sum := 0;

For i := 1 to 4 do Sum := Sum +Tabl[i, j];

B[j] := Sum;

end;

Запитання 9

Заповнити одновимірний масив В[1..6] значеннями сум стовпців масиву Tabl

варіанти відповідей

Sum := 0; For j := 1 to 6 do Sum := Sum+Tabl[3,j];

For j := 1 to 6 begin K := 0;

For i := 1 to 4 do If Tabl[i,j] mod 2 = 0 Then K := K+1;

ListBox1.Items.Add (IntToStr(K));

For j := 1 to 6 begin Max := Tabl [1,j];

For i := 2 to 4 do If Max < Tabl[i, j] Then Max := Tabl[i, j];

B[j] := Max;

end;

For j := 1 to 6 begin Sum := 0;

For i := 1 to 4 do Sum := Sum +Tabl[i, j];

B[j] := Sum;

end;

Запитання 10

Знайти кількість парних елементів у кожному стовпці масиву Tabl

варіанти відповідей

Sum := 0; For j := 1 to 6 do Sum := Sum+Tabl[3,j];

For j := 1 to 6 begin K := 0;

For i := 1 to 4 do If Tabl[i,j] mod 2 = 0 Then K := K+1;

ListBox1.Items.Add (IntToStr(K));

For j := 1 to 6 begin Max := Tabl [1,j];

For i := 2 to 4 do If Max < Tabl[i, j] Then Max := Tabl[i, j];

B[j] := Max;

end;

For j := 1 to 6 begin Sum := 0;

For i := 1 to 4 do Sum := Sum +Tabl[i, j];

B[j] := Sum;

end;

Створюйте онлайн-тести
для контролю знань і залучення учнів
до активної роботи у класі та вдома

Створити тест