Определить индексы минимального элемента на главной диагонали квадратной матрицы - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4 из 5
Похожие ответы