Пересчитать значения элементов матрицы В размерности 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д