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