Page 147 - 4192

3 ПРИКЛАДИ ОПРАЦЮВАННЯ ДВОВИМІРНИХ
МАСИВІВ
Приклад Обчислити середньоквадратичне значення
елементів матриці A(3,5).
Схема алгоритму надана на рис. 9.7.
Програмний код:
Private Sub Command1_Click()
Const n = 3, m = 5
Dim A(1 To n, 1 To m) As Integer
Dim S, SK, k, i, j As Integer
For i = 1 To n
For j = 1 To m
A(i,
j)=Val(InputBox("Введіть"+Str(i)+",
"+Str(j)+"елемент матриці A",
"A(3,5)"))
Next j
Picture1.Print
Next i
S = 0
k = 0
For i = 1 To n
For j = 1 To m
S = S + A(i, j) ^ 2
k = k + 1
Next j
Next i
SK = Sqr(S / k)
Text1 = SK
End Sub

Private Sub Command2_Click()
End
End Sub

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

146