Как из матрицы 5 х 5 сформировать одномерный массив из положительных элементов матрицы - VB

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

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

Добрый день, помогите пожалуйста. 1. Из произвольно заданной матрицы размером 5 х 5 сформировать построчный одномерный массив из положительных элементов исходной матрицы.

Решение задачи: «Как из матрицы 5 х 5 сформировать одномерный массив из положительных элементов матрицы»

textual
Листинг программы
Private Sub Form_Load()
    Dim Mtx() As Double
    Dim Res() As Double, ResInit As Boolean
    Dim i As Long, j As Long
    Dim S As String
    Me.AutoRedraw = True
    ReDim Mtx(4, 4)
    For i = 0 To UBound(Mtx, 1): For j = 0 To UBound(Mtx, 2)
        Mtx(i, j) = Int(Rnd * 100) - 50
    Next: Next
    Print "Исходная ";
    PrintMatrix Mtx
    For i = 0 To UBound(Mtx, 1): For j = 0 To UBound(Mtx, 2)
        If Mtx(i, j) > 0 Then
            If Not ResInit Then ReDim Res(0): ResInit = True Else ReDim Preserve Res(UBound(Res) + 1)
            Res(UBound(Res)) = Mtx(i, j)
        End If
    Next: Next
    Print "Итоговая матрица {";
    For i = 0 To UBound(Res)
        S = Space(6)
        LSet S = Str$(Res(i))
        Print S;
    Next
    Print "}"
End Sub
Private Sub PrintMatrix(Ar() As Double)
    Dim i As Long, j As Long
    Dim S As String
    Print "матрица (" & UBound(Ar, 1) + 1 & " x " & UBound(Ar, 2) + 1 & ") {"
    For i = 0 To UBound(Ar, 1): For j = 0 To UBound(Ar, 2)
        S = Space(6)
        LSet S = Str$(Ar(i, j))
        Print S;
    Next
    Print
    Next
    Print "}"
End Sub

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


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

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

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