Сформировать новую матрицу путем обнуления всех элементов исходной матрицы на главной диагонали и ниже нее - VB

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

Дана действительная матрица А(N,M), в которой все элементы отличны от нуля. Сформировать новую матрицу путем обнуления всех элементов исходной матрицы на главной диагонали и ниже нее.

Решение задачи: «Сформировать новую матрицу путем обнуления всех элементов исходной матрицы на главной диагонали и ниже нее»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Sub Form_Load()
    Dim A() As Single, N As Long, M As Long, i As Long, j As Long
    Me.AutoRedraw = True
    N = 8: M = 5
    ReDim A(N - 1, M - 1)
    Me.Print "Г€Г±ГµГ®Г¤Г*Г*Гї Г¬Г*ГІГ°ГЁГ¶Г*:"
    For j = 0 To M - 1: For i = 0 To N - 1
        A(i, j) = Rnd * 99 + 1
        Me.Print Tab(i * 10); Format(A(i, j), "#0.00");
    Next: Next
    Me.Print Tab(0); "ГђГҐГ§ГіГ«ГјГІГ*ГІ:"
    For j = 0 To M - 1: For i = 0 To N - 1
        If i <= j Then A(i, j) = 0
        Me.Print Tab(i * 10); Format(A(i, j), "#0.00");
    Next: Next
End Sub
                        

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

12 голосов , оценка 4.083 из 5

Похожие ответы