Алгоритми опрацювання масивів: знаходження елементів, що задовольняють заданій умові

 

Алгоритми опрацювання масивів: знаходження елементів, що задовольняють заданій умові

 

Вправа 1. Сума додатних елементів таблиці.

Завдання. Створіть програму для знаходження суми додатних елементів заданої таблиці.

Розробка проекту в середовищі програмування Lazarus

1. У папці Навчальні проекти своєї структури папок створіть папку Сума додатних.

2. Відкрийте середовище Lazarus і створіть новий проект. Розмістіть на екранній формі  об’єкти, самостійно надайте значення їхнім властивостям.

3. Заповніть таблицю значеннями. Для цього в контекстному меню об’єкта StringGrid1 оберіть вказівку Змінити StringGrid… У вікні редактора таблиці введіть потрібні значення.

4. Створіть процедуру опрацювання події натиснення кнопки Розрахувати. У вікні редактора

коду опишіть змінні, які будуть використовуватись у проекті: а — масив дійсних чисел; i — номер (індекс) стовпця масиву; j — номер (індекс) рядка масиву; s — сума.

var i, j: integer;

s : real;

а : array [1..4, 1..4] of real;

5. У вікні редактора коду запишіть команди присвоювання значень елементів масиву, їх опрацювання та виведення значення суми елементів.

6. Запустіть проект на виконання. Перевірте, чи відповідають умові завдання дії, пов’язані з об’єктами управління екранної форми. Якщо є помилки, виправте їх. Завершіть роботу з проектом і середовищем програмування, зберігши зміни.

 

Вправа 2. Кількість елементів.

Завдання. Створіть програму для знаходження кількості елементів лінійної таблиці з 10 цілих чисел, які дорівнюють її першому елементу.

Розробка проекту в середовищі програмування Lazarus

1. У папці Навчальні проекти своєї структури папок створіть папку Кількість елементів.

2. Відкрийте середовище Lazarus і створіть новий проект. Розмістіть на екранній формі  об’єкти, самостійно надайте значення їхнім властивостям.

3. Створіть процедуру опрацювання події натиснення кнопки Виконати. У вікні редактора коду опишіть змінні, які будуть використовуватись у проекті: а — масив дійсних чисел; i — номер (індекс) елемента масиву; k — кількість.

var i, k: integer;

а : array [1..10] of integer;

4. У вікні редактора коду запишіть команди введення значень елементів масиву, їх опрацювання та виведення значення кількості елементів, які дорівнюють її першому елементу, враховуючи, що нумерація рядків у багаторядковому текстовому полі починається

з 0.

5. Запустіть проект на виконання. Перевірте на контрольному прикладі, дібраному самостійно, чи відповідають умові завдання дії, пов’язані з об’єктами управління екранної форми. Якщо є помилки, виправте їх. Завершіть роботу з проектом і середовищем програмування, зберігши всі зміни.