Найти максимальный элемент матрицы в верхнем треугольнике - VB

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

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

Задали такую задачу: дана матрица размерностью 9 на 9, нужно найти максимальный элемент матрицы в верхнем треугольнике (если матрицу разделить как конверт для писем) и вывести какой это элемент и его номер столбца и строки. Чем быстрее тем лучше, потому что препод задает ещё одну задачу если не усел сделать эту к следующей паре. Заранее большое спасибо.

Решение задачи: «Найти максимальный элемент матрицы в верхнем треугольнике»

textual
Листинг программы
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
                   Me.AutoRedraw = True
Dim m(), i As Integer, j As Integer, N As Integer
Dim max_m, i_max, j_max
Dim r As String
1 N = Val(InputBox("вводим размерность m", , 9)) 'N = 10
If N < 3 Then
MsgBox " N>=3"
GoTo 1
End If
ReDim m(N, N)
                   Me.Cls
                   r = ""
Randomize
For i = 1 To N
    For j = 1 To N
          m(i, j) = Val(InputBox("вводим m(" & i & "," & j & ")", , Int(Rnd * 100)))
                  r = r & m(i, j) & "   "
    Next j
                    r = r & vbCrLf
Next i
            r = r & vbCrLf & "-----------------" & vbCrLf
max_m = m(1, 1)
i_max = 1: j_max = 1
For i = 1 To Int(N / 2) + 1 '  или For i = 1 To N \ 2 + 1
                         For j = 1 To 2 * i
                         r = r & "   "
                         Next j
 For j = i To N - i + 1
                  r = r & m(i, j) & "   "
   If max_m < m(i, j) Then
      max_m = m(i, j)
      i_max = i: j_max = j
   End If
 Next j
                  r = r & vbNewLine
Next i
                  r = r & vbCrLf & "-----------------" & vbCrLf
                  r = r & "max( i , j ) = m ( " & i_max & " , " & j_max & " ) = " & max_m
           Me.Print r ' или MsgBox r
End Sub

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


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

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

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