Задача 6. Вычислить количество нулевых элементов матрицы А, расположенных выше главной диагонали
Вычислить количество нулевых элементов матрицы А, расположенных выше главной диагонали. Найти минимальный элемент среди положительных элементов матрицы.
Блок – схема.
Добавить необходимые элементы управления (см. рисунок).
   
Событийная процедура кнопки Вычислить.
Private Sub CommandButton1_Click() Dim A(1 To 5, 1 To 5) As Single, i, j, k As Integer, min As Single ‘ Вычисление количества нулевых элементов матрицы, расположенных выше главной диагонали k = 0 For i=1 To 5 For j=1 To 5 A(i, j) = Cells(i+1, j) If i < j And A(i, j) = 0 Then k = k + 1 Next j Next i ‘ Вычисление минимального среди положительных элементов min = 10 ^ 5 For i=1 To 5 For j=1 If A(i, j) > 0 And A(i, j)< min Then min = A(i, j) Next j Next i TextBox1.Value = k TextBox2.Value = min End Sub
|
