Page 145 - 4192
P. 145

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

                Private Sub Command1_Click()
                Dim R(1 To 4, 1 To 7) As Single
                Dim i, j As Integer
                For i = 1 To 4
                For j = 1 To 7
                If i > j Then

                                             144
   140   141   142   143   144   145   146   147   148   149   150