2. Ввести програмний код :
Option Base 1
Private Sub Command1_Click()
Dim B(1 To 12) As Integer
Dim j As Byte, i As Byte
Dim a As Variant
'Введення й виведення вхідних даних
a = Array(-21, -43, -6, -38, 0, -14, -11, -25, -99, -7, -21, -80)
For i = 1 To 12
Picture1.Print a(i); " ";
Next
'Формування масиву
j = 0
For i = 1 To 12
If a(i) > 0 Then
j = j + 1
B(j) = a(i)
End If
Next i
'Вивід сформованого масиву
If j = 0 Then
Picture2.Print "Масив не сформований,тому що у вхідному масиві " _
& "немає позитивних чисел"
Else
For i = 1 To j
Picture2.Print B(i); " ";
Next i
End If
End Sub
Private Sub Command2_Click()
End
End Sub
3. Запустити програму на виконання,отримати результати.
Рис. 1.15. Результати роботи програми Задача 4
2. Впорядкування (сортування) елементів
Впорядкування – один з найбільш складних та важливих методів для вивчення алгоритмів.
По-перше, впорядкування – це загальна задача багатьох комп’ютерних додатків. Практично будь-який список цінніший, коли його впорядковано по якому-небудь певному принципу.
По-друге, майже всі алгоритми впорядкування є цікавими прикладами програмування, які демонструють важливі методи: часткове впорядкування, рекурсія, об’єднання списків, та інші.
У кожного алгоритму впорядкування є свої переваги і недоліки. Продуктивність різних алгоритмів залежить від типу даних, початкового розташування елементів, розміру і значень. Важливо вибрати той алгоритм, який краще підходить до рішення конкретного завдання.
Впорядкування – одна з деяких задач з точними теоретичними межами продуктивності.
2.1 Впорядкування вибором
Впорядкування вибором - це досить простий алгоритм. Його завдання – пошук найменшого елемента, який потім міняється місцями з елементом на початку списку. Потім знову знаходимо найменший елемент, з тих, що залишилися і міняємо його з другим елементом. Даний процес триває доти, поки всі елементи не займуть своє кінцеве положення.
Наприклад:
А(1) = 2 А(2) = 4 А(3) = 5 А(4) = 3 А(5) = 10 А(6) =8 А(7) =1
2 4 5 3 10 8 1
Визначаємо найменший елемент а(7) =1
Міняємо місцем з першим елементом 1 4 5 3 10 8 2
Серед всіх елементів, починаючи з другого, знову шукаємо мінімальний елемент і міняємо його місцем з другим 1 2 5 3 10 8 4
і т.п.
Для реалізації цього алгоритму необхідно використати вкладені цикли For. Зовнішній цикл (по i) призначений для послідовного фіксування елементів масиву, внутрішній цикл (по j) – здійснює пошук мінімуму (максимуму) і його позиції. Після виходу з внутрішнього циклу необхідно поміняти елементи місцями. Останній елемент у зовнішньому циклі не розглядається: він сам встає на своє місце.
Розв’язок задачі.
1. Створити форму за зразком рис. 2.1, надати всім об’єктам значення властивостей відповідно таблиці 5.
Рис.2.1. Приклад початкового розміщення об'єктів на формі
Таблиця 5. Значення властивостей об’єктів до форми рис.2.1.
-
ЕЛЕМЕНТ КЕРУВАННЯ
НАЗВА ВЛАСТИВОСТІ
ЗНАЧЕННЯ ВЛАСТИВОСТІ
Form1
Caption
Сортування вибором
Text1
Text
Порожньо
Label1
Caption
Порожньо
Label2
Caption
Порожньо
Picture1, Picture2
-
(Всі властивості стандартні)
Command1
Caption
Обчислення
Command2
Caption
Вихід