Сформировать матрицы по образцу - 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)

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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