Как увеличить элементы указанного столбца матрицы на значение минимального элемента последней строки - VB

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

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

Разработать ИТ, позволяющую увеличить элементы матрицы произвольной размерности, разположенные в столбце, номер которого задается вводом, на значение минимального элемента последней строки матрицыю размерность массива произвольная.
Visual basic 6.0

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

textual
Листинг программы
Sub D_Ban(arr, nSt)
    'Прибавляет к столбцу с номером nSt двумерного массива arr
    'значение минимального элемента последней строки массива.
    'Массив любого числового ИЛИ СТРОКОВОГО типа,
    'первый индекс считается номером строки, второй - номером столбца.
Dim i&, lr&, min
lr = UBound(arr)   'номер последней строки
i = LBound(arr, 2) 'номер первого столбца
    'поиск минимума в строке lr
min = arr(lr, i)
For i = i + 1 To UBound(arr, 2)
    If min > arr(lr, i) Then min = arr(lr, i)
Next
    'прибавление числа к столбцу
For i = LBound(arr) To lr
    arr(i, nSt) = arr(i, nSt) + min
Next
End Sub

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


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

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

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