Матрица - VB (59053)

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

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

Задана матрица 1 2 2 1 2 1 1 2 2 1 1 2 1 2 2 1 а) ввести ее в двумерный массив I; б) элементы побочной диагонали заменить 0; в) подсчитать количество элементов массива, которые равны 2; г) вывести это количество и исходный массив на экран в виде таблицы.

Решение задачи: «Матрица»

textual
Листинг программы
Option Explicit
 
Private Sub Command1_Click()
    Const n As Integer = 4
    Dim A(1 To n, 1 To n) As Integer, i As Integer, j As Integer, k As Integer, s As String
    s = "Исходный массив:" & vbCrLf
    For i = 1 To n
        For j = 1 To n
            A(i, j) = IIf((i > 1 And i < n) Xor (j > 1 And j < n), 2, 1)
            s = s & A(i, j) & vbTab
        Next j
        s = s & vbCrLf
    Next i
    s = s & "Результат:" & vbCrLf
    For i = 1 To n
        For j = 1 To n
            If (i + j) - n = 1 Then A(i, j) = 0
            If A(i, j) = 2 Then k = k + 1
            s = s & A(i, j) & vbTab
        Next j
        s = s & vbCrLf
    Next i
    MsgBox s & vbCrLf & "Количесто элементов равных 2: " & k
End Sub

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

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