Формула для квадратной матрицы. Нужна проверка - VB

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

Подскажите, пожалуйста, формулу для создания этой матрицы. У меня получилось только

                    Листинг программы
                
 
                        
                          
                    
 N = a + (b - a) * Rnd()
        ReDim Mas(N, N)
        i = 0
        j = 0
        Randomize()
        For i = 0 To N
            For j = 0 To N
                If i - j = 0 Then Mas(i, j) = 1
                If i - j = 1 Then Mas(i, j) = 2
                If i - j = 2 Then Mas(i, j) = 3
                If i - j = 3 Then Mas(i, j) = 4
                If i - j = 4 Then Mas(i, j) = 5
                If i - j = 5 Then Mas(i, j) = 6
                If i - j = 6 Then Mas(i, j) = 7
                If i - j = 7 Then Mas(i, j) = 8
                If i - j = 8 Then Mas(i, j) = 9
            Next j
        Next i

Но вот результат не тот(

Решение задачи: «Формула для квадратной матрицы. Нужна проверка»

textual
                            Листинг программы 
                        
 
                        
                          
                    
        a = 1: b = 20
        Randomize()
        N = a + (b - a) * Rnd()
        ReDim Mas(N, N)
        For i = 0 To N
            For j = 0 To N
                If i - j >= 0 Then Mas(i, j) = i + 1 - j Else Mas(i, j) = 0
            Next j
        Next i

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

14 голосов , оценка 4.071 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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