Определить индексы минимального элемента на главной диагонали квадратной матрицы - VB
Формулировка задачи:
Определить индексы минимального элемента на главной
диагонали квадратной матрицы N4 размерности N0 .
Для отладки программы матрицу выбрать самостоятельно.
сам по побывал
версия 1:
версия 2 :
Решение задачи: «Определить индексы минимального элемента на главной диагонали квадратной матрицы»
textual
Листинг программы
Private Sub Command1_Click() Dim A() As Single, n As Integer Dim i As Integer, j As Integer Dim ind As Integer, Min As Single n = Val(InputBox("вводим размерность матрицы ", , 4)) If n > 1 Then ReDim A(n, n) As Single For i = 1 To n For j = 1 To n A(i, j) = Int(Rnd * 25) ' InputBox("ввод матрицы " & i & "," & j) Print A(i, j); vbTab; Next Print Next Min = A(1, 1) For i = 1 To n If Min > A(i, i) Then Min = A(i, i) ind = i End If Next i MsgBox "Amin= A(" & ind & "," & ind & ")=" & Min Else MsgBox "некорректный ввод" End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д