.Найти число строк матрицы, имеющих элементы меньше единицы - VB
Формулировка задачи:
Необходимо составить двухмерную матрицу по заданной формуле..я это сделала,а остальной не могу понять..
1.Найти число строк матрицы,имеющих элементы меньше единицы
2.Сумму значений положительных элементов в главной диагонали матрицы
3.Максимальный элемент в каждой строке поменять местами с элементом главной диагонали.Полученную матрицу распечатать.
Решение задачи: «.Найти число строк матрицы, имеющих элементы меньше единицы»
textual
Листинг программы
Option Explicit Option Base 1 Private Sub Form_Load() Dim x(5) As Integer, y(5) As Integer Dim z(5, 5) As Integer Dim i As Long, j As Long, B As Boolean Dim Mn As Long, S As Integer, Mx As Integer, Tmp As Integer Randomize Me.AutoRedraw = True For i = 1 To 5 x(i) = Int(Rnd * 10) Next i For j = 1 To 5 y(j) = Int(Rnd * 10) Next j For i = 1 To 5 For j = 1 To 5 z(i, j) = (((x(i) ^ 2) + y(j)) ^ (1 / 3)) Print z(i, j), Next j Print Next i Print For i = 1 To 5 B = True Mx = 1 For j = 1 To 5 If z(i, j) < 1 And B Then Mn = Mn + 1: B = Not B If i = j And z(i, j) > 0 Then S = S + z(i, j) If z(i, j) > z(i, Mx) Then Mx = j Next Tmp = z(i, i) z(i, i) = z(i, Mx) z(i, Mx) = Tmp Next For i = 1 To 5: For j = 1 To 5 Print z(i, j), Next j: Print: Next i Print "Сумма положительных элементов: " & S Print "Число строк матрицы,имеющих элементы меньше единицы: " & Mn End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д