Найти наименьший элемент каждой строки матрицы и заменить его нулем - VB

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

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

Здравствуйте! Пожалуйста помогите найти ошибку Дана действительная квадратная матрица. найти наименьший элемент каждой строки матрицы и заменить его нулем. Вывести на форме исходную и новые матрицы.

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

textual
Листинг программы
Private Sub Form_Load()
Dim a(1 To 4, 1 To 4) As Integer, Min As Integer, minIndex As Integer
Dim i As Integer
Dim j As Integer
   
Show
 
For i = 1 To 4
For j = 1 To 4
 a(i, j) = 10 * Rnd - 2
Picture1.Print a(i, j);
Next j
Picture1.Print
Next i
 
For i = 1 To 4
Min = a(i, 1)
minIndex = 1
For j = 1 To 4
If a(i, j) < Min Then Min = a(i, j): minIndex = j
Next j
a(i, minIndex) = 0
Print "Min", Min
Next i
Print
 
 
For i = 1 To 4
For j = 1 To 4
Picture2.Print a(i, j);
Next j
Picture2.Print
Next i
End Sub

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


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

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

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