3. Запустити програму на виконання,отримати результати.

Рис. 1.7. Результати роботи програми Приклад 1.2 (варіант 1 і варіант 2)

Рис. 1.8. Результати роботи програми Приклад 1.2 (варіант 3)

1.4.3. Пошук екстремумів

Екстремум – це мінімальне й максимальне значення в групі однорідних елементів.

Знаходження екстремумів в одновимірному масиві зводиться до виконання наступних дій:

1. Як значення екстремума запам'ятовується значення першого елемента масиву.

2. Починаючи з другого елемента, всі елементи масиву, по черзі, порівнюються з поточним значенням екстремума. Якщо черговий елемент масиву перевищує (при знаходженні максимуму) або є меншим (при знаходженні мінімуму), значення екстремума заміняється значенням оброблюваного елемента масиву.

На рис.1.9 зображений фрагмент графічної схеми, що відображає алгоритм знаходження в одновимірному масиві максимуму. Якщо в умові розгалуження операцію “більше” замінити операцією “менше”, отримаємо алгоритм знаходження мінімуму.

Для визначення місця розташування екстремума в масиві необхідно використовувати додаткову змінну.

Так

Рис. 1.9. Фрагмент графічної схеми, що відображає алгоритм знаходження в одновимірному масиві максимуму

Приклад 1.3.

В одновимірному масиві значення мінімального елемента замінити числом -1000. Приймемо позначення: min - значення мінімального елемента, m - його порядковий номер у масиві.

Графічна схема алгоритму зображена на рис.1.11, результати тестування програми – на рис.1.12.

1. Створити форму за зразком рис.1.10, надати всім об’єктам значення властивостей відповідно таблиці 3.

Рис.1.10. Приклад початкового розміщення об'єктів на формі

Рис.1.11. Схема алгоритму Приклада 1.3.

Таблиця 3. Значення властивостей об’єктів до форми рисунку 1.10.

ЕЛЕМЕНТ КЕРУВАННЯ	НАЗВА ВЛАСТИВОСТІ	ЗНАЧЕННЯ ВЛАСТИВОСТІ
Form1	Caption	Задача 3
Text1(0),...Text1(14)	Text	-7, 16, 63, 14, 6, -10, 2, 0, 4, 45, 4, -2, 8, 15, 1 (Відповідно)
Label1	Caption	Дані для масиву А(15)
Label2	Caption	Порожньо
Label3	Caption	Порожньо
Picture1	-	(Всі властивості стандартні)
Picture2	-	(Всі властивості стандартні)
Command1	Caption	Обчислення
Command2	Caption	Вихід

2. Ввести програмний код :

Option Base 1

Private Sub Command1_Click()

Dim N As Integer, a(15)

Dim min As Integer, m As Byte, i As Byte

'Введення й виведення вхідних даних

Label2 = "Масив А(15)"

N = 0

For i = 1 To 15

a(i) = Val(Text1(N))

N = N + 1

Picture1.Print a(i); " ";

Next

'Знаходження мінімуму і його місця розташування

min = a(1): m = 1

For i = 2 To N

If a(i) < min Then min = a(i): m = i

Next

'Заміна значення мінімуму й вивід зміненого масиву

a(m) = -1000

Label3 = "Змінений масив"

For i = 1 To N

Picture2.Print a(i); " ";

Next

End Sub

Private Sub Command2_Click()

End

End Sub