Page 150 - 4192

Приклад: Задано матрицю С(3,4). Обчислити
середньоарифметичне значення елементів для кожного
стовпчика. Результат оформити у вигляді одновимірного
масиву.

Програмний код:
Private Sub Command1_Click()
Const n = 3, m = 4
Dim C(1 To n, 1 To m) As Integer
Dim SA(1 To m) As Single
Dim S, k, i, j As Integer
For i = 1 To n
For j = 1 To m
C(i, j) = Val(InputBox("ВведітьC(3,
4)"))
Picture1.Print C(i, j); " ";
Next j
Picture1.Print
Next i
For j = 1 To m
S = 0
k = 0
For i = 1 To n
S = S + C(i, j)
k = k + 1
Next i
SA(j) = S / k
Picture2.Print SA(j); " ";
Next j
End Sub
Private Sub Command2_Click()
End
End Sub

Рисунок 9.11 – Схема
алгоритму розв’язку
задачі

149