Как сформировать матрицу заданной структуры - VB

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

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

Написать код по созданию вот такого двумерного массива: 0 0 0 0 1 0 0 0 1 2 0 0 1 2 2 0 1 2 2 2 1 2 2 2 2 Жду...

Решение задачи: «Как сформировать матрицу заданной структуры»

textual
Листинг программы
Option Explicit
'DefInt A-N
Private Sub Command1_Click()
    Dim A() As Integer, i As Integer, j As Integer
    Dim n As Integer
    n = InputBox("Введите размер", , 8)
    ReDim A(1 To n, 1 To n)
    For i = 1 To n
          For j = 1 To n
            If i + j >= n + 1 Then
                If i + j = n + 1 Then A(i, j) = 1 Else A(i, j) = 2
            End If
            Print A(i, j);
          Next
          Print
     Next
End Sub

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

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