 |
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
|
|
|
|
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
3. Запустити програму на виконання, отримати результати.
Рис. 1. 3. Результати роботи програми Приклад 1. 1 (варіант 1)
Рис. 1. 4. Результати роботи програми Приклад 1. 1 (варіант 2)
1. 4. 2. Визначення добутку елементів масиву
Добуток елементів масиву накопичується у відповідності з наступною формулою: p=p*A(i)
Очевидно, що початкове значення змінної p повинно дорівнювати 1. Так само, як і при обчисленні значення суми елементів, при визначенні добутку елементів масиву може виникнути ситуація, коли результат обчислень, тобто останнє значення змінної p, і її початкове значення можуть збігатися. Наприклад, для масиву А=(1, 1, 0, -1, -3) добуток позитивних чисел дорівнює 1. Тому при обчисленні добутку елементів масиву необхідне використання додаткової змінної, за допомогою якої можна буде зробити висновок про наявність у масиві елементів, що задовольняють умові завдання.
|
|
|
Приклад 1. 2.
Знайти добуток чисел одновимірного масиву, які не належать проміжку (x; y] і номери елементів кратні 5 .
Алгоритм представлений на рис. 1. 4, результати тестування програми – на рис. 1. 5. У якості додаткової змінної використовується змінна W логічного типу, що може приймати два значення: True - Істине й False – Хибне. Значення True – початкове, False – якщо в масиві зустрілося хоча б одне число, що не належить проміжку (x; y].
1. Створити форму за зразком рис. 1. 5, надати всім об’єктам значення властивостей відповідно таблиці 1. 2.
Рис. 1. 5. Приклад початкового розміщення об'єктів на формі
Таблиця 2. Значення властивостей об’єктів до форми рис. 1. 5.
| ЕЛЕМЕНТ КЕРУВАННЯ | НАЗВА ВЛАСТИВОСТІ | ЗНАЧЕННЯ ВЛАСТИВОСТІ |
| Form1 | Caption | Задача 2 |
| Text1 | Text | Порожньо |
| Label1 | Caption | Порожньо |
| Label2 | Caption | Порожньо |
| Picture1 | - | (Всі властивості стандартні) |
| Command1 | Caption | Обчислення |
| Command2 | Caption | Вихід |
Рис. 1. 6. Схема алгоритму приклада 1. 2.
2. Ввести програмний код:
Private Sub Command1_Click()
Dim N, i As Byte, A(1 To 20) As Integer
Dim P, x, y As Integer
Dim W As Boolean
'Введення й виведення вхідних даних
N = InputBox(" Введи розмірність масиву від 2 до 20" )
Label1 = " Mасив: А(" & N & " )"
For i = 1 To N
A(i) = InputBox(" Введи значення А(" & i & " )-го елемента" )
Picture1. Print A(i); " ";
Next i
x = InputBox(" Введи значення X нижньої границі проміжку" )
|
|
|
y = InputBox(" Введи значення Y верхньої границі проміжку" )
|
|
|
