Получение новой матрицы на основании другой - VB

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

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

Дана матрица [A], размером N x M. Получить новую матрицу [B], умножив каждый элемент исходной матрицы на ее максимальный элемент. Вывести на печать исходную и полученную матрицы. Нам когда объясняли в институте, учитель сам под конец запутался и послал всех нафиг!! Я даже близкого понятия не имею как это делать, помогите пожалуйста!!

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

textual
Листинг программы
Option Explicit
Dim a()
Dim i As Integer, j As Integer
Dim Max, im, jm
 
Private Sub Command1_Click()
Dim n As Integer, m As Integer
   
Me.Cls
Print "  Дана матрица [A], размером N x M."
Print " Получить новую матрицу [B],"
Print " умножив каждый элемент исходной матрицы"
Print " на ее максимальный элемент."
Print "  Вывести на печать исходную и полученную матрицы."
Print "================================================"
re1:
n = Val(InputBox("вводим размерность N"))
If n <= 0 Then
MsgBox "Некорректный ввод!  " & vbCrLf & "Повторите"
GoTo re1
End If
m = Val(InputBox("вводим размерность M"))
If n <= 0 Then
MsgBox "Некорректный ввод!  " & vbCrLf & "Повторите"
GoTo re1
End If

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


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

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

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