Указать индексы элемента с найденным значением - VB

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

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

Дана действительная матрица размером nxm, все элементы которой различны. В каждой строке выбирается элемент с наименьшим значением, затем среди этих чисел выбирается наибольшее. Указать индексы элемента с найденным значением. Программа (задача на двумерные массивы)

Решение задачи: «Указать индексы элемента с найденным значением»

textual
Листинг программы
Private Sub Form_Click()
    Dim A(1 To 3, 1 To 4) As Integer
    Dim i As Integer, j As Integer, Temp As Integer, Max As Integer, Otv_i As Integer, Otv_j As Integer
    '
    'Мои 5 копеек
    '
    Randomize 0 'Initializes the random-number generator
    For i = 1 To UBound(A, 1) 'Размер первого измерения
        For j = 1 To UBound(A, 2) 'Размер второго измерения
            A(i, j) = -50 + Rnd * 250 \ 1
    Next j, i
'''    'Зададим значения элементов массива примитивным присваиванием:
'''    A(1, 1) = -8:       A(1, 2) = 14:      A(1, 3) = -19:      A(1, 4) = -18
'''    A(2, 1) = 25:       A(2, 2) = 28:       A(2, 3) = 26:       A(2, 4) = 20
'''    A(3, 1) = 110:       A(3, 2) = 180:       A(3, 3) = 200:       A(3, 4) = 250
    For i = 1 To 3
        Temp = A(i, 1)
        For j = 1 To 4
            Print A(i, j);
            If Temp > A(i, j) Then Temp = A(i, j): Otv_i = i: Otv_j = j: Max = Temp
            If Max < Temp Then Max = A(i, j): Otv_i = i: Otv_j = j
            
        Next
        Print
    Next
    Print
    Print Otv_i, Otv_j
End Sub

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


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

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

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