Пересчитать значения элементов матрицы В размерности m*n, уменьшив их на величину наименьшего элемента - VB

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

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

Пересчитать значения элементов матрицы В размерности m*n, уменьшив их на величину наименьшего элемента. Напечатать исходную и вновь полученную матрицу, а также индексы и значение наименьшего элемента. Помогите пожалуйста написать мат.модель и схему алгоритма!!!

Решение задачи: «Пересчитать значения элементов матрицы В размерности m*n, уменьшив их на величину наименьшего элемента»

textual
Листинг программы
Sub Main()
    Dim m As Integer, n As Integer, i As Integer, j As Integer
    Dim A() As Integer, imin As Integer, jmin As Integer, min As Integer
    m = InputBox("Введите количество строк", "Ввод данных", 9)
    n = InputBox("Введите количество столбцов", "Ввод данных", 7)
    ReDim A(1 To m, 1 To n)
    Randomize: AutoRedraw = True
    Cls
    Print "Исходная матрица:"
    For i = 1 To m
        For j = 1 To n
            A(i, j) = Int(Rnd * 99 + 1)
            If i = 1 And j = 1 Then
                min = A(1, 1): imin = 1: jmin = 1
            Else
                If min > A(i, j) Then min = A(i, j): imin = i: jmin = j
            End If
            Print A(i, j) & vbTab;
        Next j
        Print
    Next i
    Print
    Print "Минимальный элемент матрицы  A(" & imin & "," & jmin & ") = " & min
    Print
    Print "Преобразованная матрица:"
        For i = 1 To m
        For j = 1 To n
            A(i, j) = A(i, j) - min
            Print A(i, j) & vbTab;
        Next j
        Print
    Next i
End Sub

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


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

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

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