 |
Private Sub Command1_Click(). Dim a As Variant, p As Integer. Dim N As Byte, l, j, i As Byte. a = Array(15, 2, 68, 78, 94, 21, 3, 4)
|
|
|
|
Private Sub Command1_Click()
Dim a As Variant, p As Integer
Dim N As Byte, l, j, i As Byte
a = Array(15, 2, 68, 78, 94, 21, 3, 4)
N = 8: Text1 = N
For l = 1 To N
Picture1. Print a(l); " ";
Next
'Впорядкування методом Шелла
d = 1
Do While N \ 2 > d ' Визначення кроку групи
d = 2 * d
Loop
Do While d < > 0
Picture2. Print " d = "; d
For i = 1 To N - d ' Цикл по елементам групи
If a(i) > a(i + d) Then ' Порівняння елементів групи
buf = a(i) ' Перестановка елементів групи
a(i) = a(i + d)
a(i + d) = buf
End If
Next
d = d \ 2 ' Зменшення кроку групи
'Вивід на екран даних масиву а після кожної перестановки
For k = 1 To N
Picture3. Print a(k); " ";
Next
Picture3. Print
Loop
End Sub
Private Sub Command2_Click()
End
End Sub
3. Запустити програму на виконання, отримати результати.
Рис. 2. 9. Результати роботи програми Сортування методом Шелла
ДОДАТКИ
Індивідуальні завдання
Таблиця9
| № п/п | Завдання |
| 1. | В одновимірному масиві обчислити суму кубів всіх від’ємних елементів. Масив впорядкувати методом «Бульбашки» (по зростанню) |
| 2. | В одновимірному масиві обчислити кількість додатних та від’ємних елементів. Масив впорядкувати методом вставки (по зростанню) |
| 3. | В одновимірному масиві видалити кожний п’ятий елемент. Масив впорядкувати методом Шелла (по зростанню) |
| 4. | В одновимірному масиві обчислити кількість чисел, кратних 5. Масив впорядкувати методом вибору (по зростанню) |
| 5. | В двох одновимірних масивах знайти кількість елементів, які зустрічаються тільки в першому або тільки в другому масиві. Масив впорядкувати методом «Бульбашки» (по спаданню) |
| 6. | В одновимірному масиві знайти максимальний елемент і замінити їм всі нульові елементи. Масив впорядкувати методом вставки (по спаданню) |
| 7. | В одновимірному масиві знайти всі елементи, які менші за введене число і з них сформувати одновимірний масив. Масив впорядкувати методом Шелла (по спаданню) |
| 8. | В одновимірному масиві визначити кількість нульових елементів. Масив впорядкувати методом вибору (по спаданню) |
| 9. | В одновимірному масиві всі елементи з парними індексами зменшити в 4 рази. Масив впорядкувати методом «Бульбашки» (по зростанню) |
| 10. | В одновимірному масиві перший елемент поміняти місцем з другим, третій з четвертим і т. д. . Масив впорядкувати методом вставки (по зростанню) |
| 11. | В одновимірному масиві визначити кількість елементів, значення яких кратне 7. Масив впорядкувати методом Шелла (по зростанню) |
| 12. | В одновимірному масиві перемістити всі елементи по колу вліво на певну кількість кроків. Масив впорядкувати методом вибору (по зростанню) |
| 13. | В одновимірному масиві всі додатні елементи збільшити в 3 рази, а всі від’ємні зменшити в 8 разів. Масив впорядкувати методом «Бульбашки» (по спаданню) |
| 14. | В першому одновимірному масиві знайти всі парні елементи, в другому одновимірному масиві знайти всі непарні елементи і з них сформувати одновимірний масив. Масив впорядкувати методом вставки (по спаданню) |
| 15. | В одновимірному масиві знайти максимальний по модулю елемент і всі елементи масива розділити на нього. Масив впорядкувати методом Шелла (по спаданню) |
| 16. | В одновимірному масиві поступово обчислити добуток елементів і їх індексів і з отриманих результатів сформувати одновимірний масив. Масив впорядкувати методом вибору (по спаданню) |
| 17. | В одновимірному масиві обчислити суму квадратів всіх додатних елементів. Масив впорядкувати методом «Бульбашки» (по зростанню) |
| 18. | В одновимірному масиві обчислити суми додатніх та від’ємних елементів. Масив впорядкувати методом вставки (по зростанню) |
| 19. | В одновимірному масиві вилучити кожний третій елемент. Масив впорядкувати методом Шелла (по зростанню) |
| 20. | В одновимірному масиві обчислити кількість чисел, які кратні 2. Масив впорядкувати методом вибору (по зростанню) |
| 21. | В двох одновимірних масивах знайти кількість елементів, які зустрічаються одночасно в першому і другому масивах. Масив впорядкувати методом «Бульбашки» (по спаданню) |
| 22. | В одновимірному масиві знайти мінімальний елемент і їм замінити всі нульові елементи. Масив впорядкувати методом вставки (по спаданню) |
| 23. | В одновимірному масиві знайти всі елементи, які більші за окремо задане число і з них сформувати одновимірний масив. Масив впорядкувати методом Шелла (по спаданню) |
| 24. | В одновимірному масиві перший елемент поміняти місцем з останнім, другий з передостаннім, і т. д. . Масив впорядкувати методом вибору (по спаданню) |
| 25. | В одновимірному масиві перемістити всі елементи по колу вправо на певну кількість кроків. Масив впорядкувати методом «Бульбашки» (по зростанню) |
|
|
|
|
|
|
|
|
|
