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