 |
Sub Pr(). Dim N As Byte. Dim X(1 To 25) As Integer. N=InputBox(“Скільки чисел у масиві?”,"Введення розмірності")
|
|
|
|
Sub Pr()
Dim N As Byte
Dim X(1 To 25) As Integer
N=InputBox(“Скільки чисел у масиві? ”, " Введення розмірності" )
For i=1 To N
X(i)=InputBox(“Введи X(“& i & ”) - ий елемент масиву”)
Next i
End Sub
При виконанні цього фрагмента програми, відбувається наступне:
1. У пам'яті комп'ютера відповідно до оголошення
Dim X(1 To 25) As Integer
виділяється вільна область обсягом 50 байт, тому що кожне ціле число займає 2 байти, а максимальна кількість елементів у масиві X = 25. Даній області пам'яті дається ім'я X , а вся область розділяється на 25 компонентів по 2 байти кожний. Всім елементам масиву присвоюється нульове значення.
2. Оператором
N=InputBox(“Скільки чисел у масиві? ”, " Введення розмірності" )
визначається конкретна кількість компонентів з області пам'яті X, з яким хоче працювати користувач програми.
3. За допомогою циклу
For i=1 To N
X(i)=InputBox (“Введи x(“& i & ”) - ий елемент масиву”)
Next i
Здійснюється почергове наповнення N компонент області пам'яті X конкретними значеннями.
Спосіб ІІ
Значення елементів масиву безпосередньо вводяться на початку роботи програми. Масив при цьому оголошується як Variant
Option Base 1 ‘ Цей оператор має вводитись в секції
‘ ( General ) ( Declarations )
Private Sub Command1_Click()
Dim a As Variant
a = Array(2, -3, 6, -8, 0, 4, -1, 5, 9, 7, -2, 8)
Наприклад, для масиву а, оголошеного як Dim a As Variant вводиться 12 значень. Тобто для другого елементу масиву а введене значення -3 (а(2)=-3). При цьому розмірність масиву буде відповідати кількості введених значень.
Спосіб ІІІ
|
|
|
Option Base 1 ‘ Цей оператор має вводитись в секції
‘ ( General ) ( Declarations )
Private Sub Command1_Click()
Dim a(15)
n = 0
For i = 1 To 15
a(i) = Val(Text1(n))
n = n + 1
Next
Примітка: на формі створюється масив з п’ятнадцяти елементів керування Text1, які мають індекси Text1(0), Text1(1),... Text1(14), кожному з яких (через властивість Text ) присвоюється значення одного з елементів заданого масиву А(15).
1. 3. Виведення елементів масиву
Графічно виведення значень елементів масиву може бути представлений у вигляді наступного фрагмента схеми:
Програмна реалізація виводу елементів масиву залежить від методу організації виводу.
Приклад 1:
. . .
For i = 1 To N
Picture1. Print Х(i); " ";
Next i
. . .
Примітка: на формі створюється елемент керування Picture1 , в який безпосередньо виводяться значення елементів заданого масиву Х(і). Всі дані виводяться в один рядок. Якщо необхідно результат вивести в стовпчик, то з команди оператора вилучається символ “ ; ”
1. 4. Типові алгоритми обробки одновимірних масивів
Типовими алгоритмами обробки одновимірних масивів є: визначення суми, добутку, кількості, середнього арифметичного елементів масивів; пошук максимальних і мінімальних елементів і іншої інформації в масиві; формування нового масиву, впорядкування даних в масиві.
1. 4. 1. Визначення кількості, суми, середнього арифметичного елементів масиву
Визначення кількості k і суми значень Sum елементів масиву, що задовольняють деякій умові, – це процес нагромадження в змінній k одиниць, а в змінній S значень шуканих елементів масиву по формулах k=k+1 і Sum=Sum+A(i) відповідно.
Очевидно, що початкові значення змінних k і Sum повинні дорівнювати нулю, інакше буде отриманий невірний результат.
|
|
|
Для обчислення середнього значення елементів масиву необхідні дві величини: суми ( Sum ) і кількості елементів ( k ). Середнє обчислюється по формулі S r= 
Оскільки ділення на нуль викликає аварійне завершення роботи програми, то перед обчисленням середнього значення перевірка значення k на нуль повинна бути виконана обов'язково.
Приклад 1. 1.
Знайти середнє значення чисел одновимірного масиву, що знаходяться на парних місцях і належать проміжку [x; y].
Графічна схема алгоритму рішення задачі представлена на рис. 1. 2, результати тестування програми - на рис. 1. 3.
1. Створити форму за зразком рис. 1. 1, надати всім об’єктам значення властивостей відповідно таблиці 1.
Таблиця 1. Значення властивостей об’єктів до форми рисунку 1. 1.
| ЕЛЕМЕНТ КЕРУВАННЯ | НАЗВА ВЛАСТИВОСТІ | ЗНАЧЕННЯ ВЛАСТИВОСТІ |
| Form1 | Caption | Задача 1 |
| Text1 | Text | Порожньо |
| Label1, Label2 | Caption | Порожньо |
| Picture1 | - | (Всі властивості стандартні) |
| Command1 | Caption | Обчислення |
| Command2 | Caption | Вихід |
Рис. 1. 1. Приклад початкового розміщення об'єктів на формі
2. Ввести програмний код:
|
|
|
