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

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

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

1Вычислить среднее арифметическое S элементов массива b1,b2,…,b8, удовлетворяющих условию 0<=bi<=1. Если таких элементов нет- то считать S=0. при решении надо не только накапливать сумму элементов, удовлетворяющих заданному условию, но и подсчитать их количество по формуле n=n+1. 2Дана действительная квадратная матрица. Найти наименьший элемент каждой строки матрицы и заменить его нулем. Вывести на форме исходную и новую матрицы.

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

textual
Листинг программы
Private Sub Command1_Click()
Dim snArr() As Single, snSum As Single, ind As Integer, iSize As Integer, j As Integer, sStr As String, sStr1 As String
iSize = InputBox("Введите размер матрицы:")
ReDim snArr(1 To iSize, 1 To iSize)
For i = 1 To iSize
    For j = 1 To iSize
        snArr(i, j) = FormatNumber(Rnd * 10, 2)
        sStr = sStr & "  " & snArr(i, j)
    Next
    sStr = sStr & vbNewLine
Next
For i = 1 To iSize
    j = 1: ind = 1
    Tmp = snArr(i, j)
    For j = 2 To iSize
        If snArr(i, j) < Tmp Then Tmp = snArr(i, j): ind = j
    Next
    snArr(i, ind) = 0
Next
For i = 1 To iSize
    For j = 1 To iSize
            sStr1 = sStr1 & "  " & snArr(i, j)
    Next
    sStr1 = sStr1 & vbNewLine
Next
Label1.Caption = sStr
Label2.Caption = sStr1
End Sub

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


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

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

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