.Найти число строк матрицы, имеющих элементы меньше единицы - 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

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


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

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

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