Page 153 - 4192

Програмний код:
Private Sub Command1_Click()
Const n = 5
Dim C(1 To n, 1 To n) As Integer
Dim P, i, j As Integer
For i = 1 To n
For j = 1 To n
C(i, j) = Val(InputBox("Введіть C(5, 5)"))
Picture1.Print C(i, j); " ";
Next j
Picture1.Print
Next i
P = 1
For i = 1 To n
For j = i To n
P = P * C(i, j)
Next j
Next i
Text1 = P
End Sub
Private Sub Command2_Click()
End
End Sub

4 ПРИКЛАДИ ТИПОВИХ АЛГОРИТМІВ ОБРОБКИ
МАТРИЦЬ

Приклад. Сумування елементів масиву. Для двовимірного
масиву В розміром NxM необхідно обчислити

N M
S    b
ij
 i 1  j 1

152