Приклад 3.1.
Умова. Дано одновимірний масив Х=(xi), i=1,2,...,12. Скласти блок-схему для обчислення суми квадратів елементів, що задовольняють умові a<xi<b, де а, b - задані числа.
Позначення: s - шукана сума.
Блок-схема
Приклад 3.2.
Дано одновимірний масив Х=(хi), i=1,2,...,10. Скласти VBA-програму визначення максимального елемента.
Програма
Private Sub CommandButton1_Click()
Dim x(1 To 10) As Single , max As Single, i As Integer
For i = 1 To 10
x(i) = Val(InputBox(" Введите " & i & " Элемент массива "))
Next i
max = x(1)
For i = 2 To 10
If max < x(i) Then max = x(i)
Next i
MsgBox "max=" & max
End Sub
Л а б о р а т о р н а я р а б о т а № 4
Обробка двовимірних масивів даних
Мета роботи: організація обчислювальних процесів обробки двовимірних масивів. При підготовці до роботи вивчити теоретичний матеріал (стор. 26-29).
Завдання 1. Робота із двовимірними масивами. Дано двовимірний масив А=(aij), i=1,2,...,7; j=1,2,...,8. Скласти алгоритм і програму для рішення завдань, представлених у таблиці Л4.1.
Таблиця Л4.1.
№ вар |
Умова |
1 |
Знайти суму додатних елементів масиву |
2 |
Знайти добуток від’ємних елементів масиву |
3 |
Знайти кількість нульових елементів масиву |
4 |
Знайти суму додатних елементів у кожному стовпці |
5 |
Знайти суму від’ємних елементів у кожному рядку |
6 |
Знайти кількість від’ємних елементів у кожному рядку |
7 |
Знайти максимальний елемент масиву і його індекси |
8 |
Знайти мінімальні елементи в кожному рядку |
9 |
Знайти максимальні елементи в кожному стовпці |
10 |
Знайти суми елементів у кожному парному стовпці |
11 |
Знайти суми рядкових індексів від’ємних елементів у кожному стовпці |
12 |
Знайти суму додатних елементів у кожному стовпці |
13 |
Визначити кількість стовпців, у яких немає від’ємних елементів |
14 |
Знайти кількість елементів, менших 6, у кожному рядку |
15 |
Знайти мінімальні елементи в кожному непарному стовпці |
16 |
Знайти суму мінімального і максимального елемента |
17 |
Знайти індекси елементів, менших числа 9 |
18 |
Знайти суму індексів від’ємних елементів масиву |
19 |
Знайти добуток ненульових елементів для кожного стовпця |
20 |
Знайти суму елементів, більших 5, для кожного рядка |
21 |
Визначити кількість додатних елементів для кожного стовпця |
22 |
Розділити елементи кожного стовпця на останній елемент стовпця |
23 |
Розділити елементи кожного рядка на останній елемент рядка |
24 |
Для кожного рядка визначити номери стовпців, що мають нульові елементи |
25 |
Визначити індекси нульових елементів |
26 |
Для кожного стовпця визначити номери рядків, що містять від’ємні елементи |
27 |
Для кожного стовпця знайти суму елементів з непарними номерами рядків |
28 |
Розділити елементи кожного рядка на перший елемент рядка |
29 |
Розділити елементи кожного стовпця на перший елемент стовпця |
30 |
Визначити кількість елементів, більших 10, у кожному стовпці |