Сформировать матрицы по образцу - VB
Формулировка задачи:
Образец №1:
12345
01234
00123
00012
00001
Листинг к образцу №1:
Теперь нужно, основываясь на первом примере, составить программы, формирующие следующие матрицы:
Второй:
11111
10001
10001
10001
11111
Третий:
11111
01111
00111
00011
00001
Четвертый:
10000
11000
11100
11110
11111
Решение задачи: «Сформировать матрицы по образцу»
textual
Листинг программы
Dim M(5, 5) As Integer, i As Integer, j As Integer, S As String For i = 0 To 4 For j = 0 To i M(i, j) = 1 Next j Next i For i = 0 To 4 For j = 0 To 4 S = S & M(i, j) & " " Next j S = S & Chr(13) Next i MsgBox (S)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д