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