Сформировать матрицы по образцу - VB

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

Образец №1: 12345 01234 00123 00012 00001 Листинг к образцу №1:

                    Листинг программы
                
 
                        
                          
                    
Dim M(5, 5) As Integer
Dim i As Integer
Dim j As Integer
Dim S As String
For i = 0 To 4
For j = 0 To 4
M(i, j) = j + 1 - i
If M(i, j) < 0 Then M(i, j) = 0
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)

Теперь нужно, основываясь на первом примере, составить программы, формирующие следующие матрицы: Второй: 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

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

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

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