Заменить значения элементов матрицы, расположенных на главной диагонали, значением её максимального элемента - VB

Узнай цену своей работы

Формулировка задачи:

Заменить значения элементов матрицы, расположенных на главной диагонали, значением её максимального элемента. Размерность матрицы произвольная.
Подскажите, что не так?

Решение задачи: «Заменить значения элементов матрицы, расположенных на главной диагонали, значением её максимального элемента»

textual
Листинг программы
Private Sub Command1_Click()
Dim i As Integer, j As Integer, m As Integer, n As Integer, k As Integer, q As Integer
Dim a() As Single, max As Integer
m = InputBox("Ââåäèòå êîëè÷åòñâî ñòðîê Г¬Г*òðèöû")
n = InputBox("Ââåäèòå êîëè÷åñòâî ñòîëáöîâ Г¬Г*òðèöû")
ReDim a(1 To m, 1 To n)
For i = 1 To m
  For j = 1 To n
   a(i, j) = InputBox("a(" & i & " , " & j & ")")
 Next j
Next i
Print Spc(4); "ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў:"
For i = 1 To m
    Print
    For j = 1 To n
        Print a(i, j);
    Next j
Next i
max = a(1, 1)
For i = 1 To m
  For j = 1 To n
   If a(i, j) > max Then
   max = a(i, j)
End If
   Next j
Next i
For i = 1 To m
For j = 1 To n
If i = j Then
a(i, i) = max
End If
Next
Next
Print Spc(4); "ÐåçóëüòГ*ГІ:"
For i = 1 To m
  Print
  For j = 1 To m
    Print a(i, j);
    Next
Next
End Sub

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


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

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

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