а) Постановка задачі.
Знайти суму перших K від’ємних елементів масиву A={a[i]}.
б) Блок-схема алгоритму.
Блок-схему алгоритму розв’язання задачі наведено на рисунку 6.
в) Текст програми:
Sub Odnovymirniy_masiv ()
' Оголошення змінних
Dim A(20) As Integer
Dim n As Integer, K As Integer
Dim i As Integer
Dim s As Integer
' Уведення даних
n = InputBox("Задайте кiлькiсть елементiв n=")
k = InputBox("Задайте кількість перших елементів К=")
' Встановлення початкового значення суми
s = 0
For i = 1 To n
A(i) = InputBox("Задайте елемент масива А("+str(i)+")=")
If A(i)<0 And i<=K Then
s = s+A(i)
End If
Next I
' Виведення результата
MsgBox("Сума перших елементiв масива s="+str(s))
End Sub
г) Контрольний приклад:
Виконаємо тестування програми при таких вихідних даних:
n = 6, K = 4, a={-1, 3, -7, 5, -9, 4 }
Результати роботи програми на екрані монітора мають вигляд:
Задайте кількість елементів масива n = 6
Задайте кількість елементів на початку масива K = 4
Задайте елемент масива А[1] = -1
Задайте елемент масива А[2] = 3
|
|
Задайте елемент масива А[3] = -7
Задайте елемент масива А[4] = 5
Задайте елемент масива А[5] = -9
Задайте елемент масива А[6] = 4
Сума перших елементів масива s = -8
Лабораторна робота № 7.
Програмування алгоритмів із структурою вкладених циклів і обробка матриць
Мета роботи - оволодіння практичними навичками програмування алгоритмів із структурою вкладених циклів, використання двовимірних масивів (матриць), уведення та виведення матриць.
Завдання для самостійної підготовки
1. Вивчити:
- правила організації вкладених циклів із урахуванням порядку перебору елементів матриці;
- правила використання прийомів програмування в структурах із вкладеними циклами;
- способи вводу і виводу матриць, які реалізовані в алгоритмічній мові VBA.
2. Розробити алгоритм розв’язування у відповідності із завданням (див. завдання до лабораторної роботи).
3. Скласти програму розв’язування задачі.
4. Підготувати тестовий варіант програми і вхідних даних.