'Обробка даних. If N < 5 Then. Label2 = "У масиві менше 5 чисел". Else 'Знаходження добутку. For i = 5 To N Step 5
'Обробка даних If N < 5 Then Label2 = " У масиві менше 5 чисел" Else 'Знаходження добутку W = True P = 1 For i = 5 To N Step 5 If A(i) < x Or A(i) > = y Then P = P * A(i): W = False Next 'Вивід результату If W = True Then Label2 = " На місцях, кратних 5, всі числа із проміжку (" _ & x & "; " & y & " ]" Else Label2 = " Добуток чисел, які знаходяться на місцях, кратних 5 і " _ & " не належать проміжку (" & x & "; " & y & " ], дорівнює " Text1 = P End If End If End Sub Private Sub Command2_Click() End End Sub
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.
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 3. Запустити програму на виконання, отримати результати.
Рис. 1. 12. Результати роботи програми Приклад 1. 3
В масиві може бути кілька мінімальних і максимальних значень. Наприклад, у масиві A=(0, -1, 8, -1, 8, -1) у трьох елементів значення відповідають мінімальному (-1) і у двох - максимальному (8) значенню. Тому при знаходженні экстремумів у таких випадках говорять про лівий (перший) або правий (останній) мінімум або максимум. Для знаходження лівих экстремумів масиву використовуються операції “більше” або “менше”. Якщо в умові завдання спеціально не застережено, який саме потрібно знайти экстремум, то мається на увазі лівий. Алгоритм рис. 1. 11 є саме таким. Для знаходження правих экстремумів масиву необхідно використовувати операції “більше або дорівнює” або “менше або дорівнює”.
Воспользуйтесь поиском по сайту: ©2015 - 2024 megalektsii.ru Все авторские права принадлежат авторам лекционных материалов. Обратная связь с нами...
|