Lazarus - Двовимірний масив (параграф 38-39) - 9 клас

Додано: 21 березня 2023
Предмет: Інформатика, 9 клас
Тест виконано: 146 разів
7 запитань
Запитання 1

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

begin Randomize;

For i := 1 to 3 do 

For j := 1 to 4 do A[i,j] := Random(X);

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

Введення значень елементів масиву А[1..3, 1..4] з клавіатури

Заповнення масиву А[1..3, 1..4] випадковими числами  

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

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

Запитання 2

Як описати масив з цілих чисел A, елементи якого пронумеровані від 1 до 5 по рядках і від 1 до 10 по стовпцях?

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

A: array[1..5, 1..10] of real;

A: array[1..5] of Integer;

A: array[1..5, 1..10] of Integer;

 A: array[1..10, 1..5] of Integer;

Запитання 3

Як описати масив дійсних чисел В, у якому 5 рядків і 4 стовпці? (обрати всі правильні відповіді)

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

B: array[0..5, 0..4] of Real;

B: array[1..5, 1..4] of Real;

B: array [1..4, 1..5] of Real;

type mas = array[1..5, 1..4] of Real; 

var B: mas;

Запитання 4

Відображення значень елементів масиву А[1..5, 1..5] у таблиці StringGrid1 прописується програмним кодом...


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

For i := 1 to 5 do

StringGrid1.Cells[0,i] := IntToStr(i);

For j := 1 to 5 do

StringGrid1.Cells[j,0] := IntToStr(j);

For i := 1 to 5 do

For j := 1 to 5 do

StringGrid1.Cells[j,i] := FloatToStr(a[i,j]);

For i := 1 to 5 do

For j := 1 to 5 do

StringGrid1.Cells[j,i] := IntToStr(i*j);

Запитання 5

Чому дорівнює значення елемента a[2,1] після виконання оператора присвоєння a[2,1] := a[3,2]+a[2,2]*a[3,4];

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

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

9

16

60

Немає правильної відповіді

Запитання 6

Які значення властивостей (кількість рядків, кількість стовпців, кількість фіксованих рядків, кількість фіксованих стовпців) задані для елемента StringGrid, зображеного на рисунку? (обрати всі правильні відповіді)

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

RowCount = 11

ColCount = 11

FixedCols = 0

RowCount = 6

FixedRows = 1

FixedCols = 1

ColCount = 6

Запитання 7

Вибрати фрагмент коду програми для наступного завдання:

Знайти суму елементів третього рядка масиву

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

var Tabl: array[1..4, 1..6] of Integer; і, j, Sum: Integer;

begin

 Sum := 0;

 For j := 1 to 6 do Sum := Sum+Tabl[3,j]; { додавання  елементів рядка }

 Edit1.Text := IntToStr(Sum);

end;

var Tabl: array[1..4, 1..6] of Integer; і, j, Sum: Integer; R: String;

begin

R := ";

For і := 1 to 4 do begin   // зовнішній цикл по рядках

 Sum := 0;  // перед початком додавання сума обнуляється

 For j := 1 to 6 do Sum := Sum+ Tabl[i,j]; { додавання  елементів і-го рядка }

 R := R+IntToStr(Sum)+' '; { Sum перетворюється на тип String і  додається до рядка відповіді R }

 end;

Edit1.Text := R;

end;


var Tabl: array[1..4, 1..6] of Integer;

і, j, Sum: Integer;

begin

Sum := 0;

For і := 1 to 4 do

 For j := 1 to 6 do

 Sum := Sum+Tabl[i,j];

Edit1.Text := IntToStr(Sum);

end;

var Tabl: array[..4, 1..6] of Integer; і, j, К: Integer; R: String;

begin

  R := ";

  For j := 1 to 6 begin   // зовнішній цикл по стовпцях

  К := 0 // перед початком перегляду кожного стовпця К обнуляється

  For і := 1 to 4 do        // внутрішній цикл по рядках

 If Tabl[i,j] mod 2 = 0 Then К := K+1;

  R := R+IntToStr(K) + ' '; { К перетворюється на тип String і

  додається до рядка відповіді R }

  end;

Edit1.Text := R;

end;

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

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