Главная | Обратная связь | Поможем написать вашу работу!
МегаЛекции

'Обробка даних. 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.   

 

ЕЛЕМЕНТ                  КЕРУВАННЯ НАЗВА ВЛАСТИВОСТІ ЗНАЧЕННЯ ВЛАСТИВОСТІ
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

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

Рис. 1. 12. Результати роботи програми Приклад 1. 3

 

В масиві може бути кілька мінімальних і максимальних значень. Наприклад, у масиві A=(0, -1, 8, -1, 8, -1) у трьох елементів значення відповідають мінімальному (-1) і у двох - максимальному (8) значенню. Тому при знаходженні экстремумів у таких випадках говорять про лівий (перший) або правий (останній) мінімум або максимум.

Для знаходження лівих экстремумів масиву використовуються операції “більше” або “менше”. Якщо в умові завдання спеціально не застережено, який саме потрібно знайти экстремум, то мається на увазі лівий. Алгоритм рис. 1. 11 є саме таким.

Для знаходження правих экстремумів масиву необхідно використовувати операції “більше або дорівнює” або “менше або дорівнює”.

Поделиться:





Воспользуйтесь поиском по сайту:



©2015 - 2024 megalektsii.ru Все авторские права принадлежат авторам лекционных материалов. Обратная связь с нами...