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). Середнє обчислюється по формулі Sr=

Оскільки ділення на нуль викликає аварійне завершення роботи програми, то перед обчисленням середнього значення перевірка значення 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. Ввести програмний код :

Private Sub Command1_Click()

Dim N As Byte, K, i As Byte, A(1 To 10) As Integer

Dim Sum, x, y As Integer, Sr As Single

'Введення й вивід вхідних даних

N = InputBox("Введи розмірність масиву від 2 до 10")

Label1 = "Mасив: А(" & N & ")"

For i = 1 To N

A(i) = InputBox("Введи значення А(" & i & ")-го елемента")

Picture1.Print A(i); " ";

Next i

x = InputBox("Введи значення X нижньої границі проміжку")

y = InputBox("Введи значення Y верхньої границі проміжку")

'Визначення середнього значення

Sum = 0: K = 0

For i = 2 To N Step 2

If A(i) >= x And A(i) <= y Then Sum = Sum + A(i): K = K + 1

Next i

'Вивід результату

If K = 0 Then

Label2 = "На парних місцях немає чисел із проміжку [" _

& x & ";" & y & "]"

Else

Sr = Sum / K

Label2 = "Середнє значення чисел, що стоять на парних " _

& "місцях і належать проміжку [" & x & ";" & y & " ] дорівнює "

Text1 = Sr

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Рис.1.2. Схема алгоритму задачі 1.1