Впиши недостающие данные в таблицу 1. оброботка данных 2. 3. отображение 4.

1) процессор 2) жесткий диск 3) монитор 4) устр-во ввода

З будь-якою подією, яка може відбутися з формою, можна пов’язати фрагмент програми, який буде виконуватися одразу після настання цієї події. Такий фрагмент програми називають обробником події. Обробник події, пов’язаний з певним об’єктом, називають методом цього об’єкта.

Середовище Lazarus за замовчуванням створює обробник події як процедуру. Процедура - це окремо виділена частина програми, яка має своє ім’я і яку можна за цим іменем запустити на виконання.

Наприклад, якщо потрібно пов’язати деяку процедуру з подією Click для форми, то слід:

1.    Вибрати форму.

2.    Відкрити вкладку Події у вікні Інспектор об’єктів.

3.    Вибрати подію onclick. Поле праворуч від тексту onclick стане поточним і в ньому з’явиться курсор.

4.    Клацнути двічі у цьому поточному полі.

У результаті виконання цього алгоритму в полі onclick на вкладці Події з’являється текст FormClick (англ. Form Click - клацання форми), а у вікні редактора тексту проекту на вкладці Unitl з’являється заготовка для тексту процедури з іменем TForml.FormClick, команди якої й будуть виконуватися при настанні події Click з формою (мал. 5.9).

Const   m = 6;   n = 4; var   a: array[1..m, 1..n] of integer;   b: array[1..m] of integer;   i, j, p, pmax, imax: integer;   flag: boolean; begin   {1}   randomize;   writeln('исходный массив');   for i : = 1 to m do   begin       for j : = 1 to n do       begin           a[i, j] : = random(81) - 40;           write(a[i, j]: 4)       end;       writeln   end;   {2}   writeln('произведения построчно');   for i : = 1 to m do   begin       p : = 1;       for j : = 1 to n do p : = p * a[i, j];       writeln(i, ': ', p: 9)   end;   {3}   pmax : = -maxint;   writeln('максимальное построчное произведение');     for i : = 1 to m do   begin       p : = 1;       for j : = 1 to n do p : = p * a[i, j];       if pmax < p then       begin           pmax : = p;           imax : = i;       end   end;   writeln(imax, ': ', pmax: 9);   {4}   for i : = 1 to m do b[i] : = a[i, 1];   for i : = 2 to m do   begin       p : = b[i];       j : = i - 1;       flag : = false;       while (j > 0) and (not flag) do           if p < b[j] then           begin               b[j + 1] : = b[j];               j : = j - 1           end           else flag : = true;       b[j + 1] : = p   end;   writeln('отсортированный первый столбец');   for i : = 1 to m do writeln(b[i]: 3) end. тестовое решение: исходный массив   -27    4    3  14   15  40 -39 -27   40 -40 -40 -24   -38    7  18    1   17  27  29  -9   10 -32  38    0 произведения построчно 1:         -4536 2:       631800 3:   -1536000 4:         -4788 5:     -119799 6:                 0 максимальное построчное произведение 2:       631800 отсортированный первый столбец -38 -27   10   15   17   40