Баннер
Баннер

Обработка массивов - Пример 2

Оглавление
Обработка массивов
Данные в массивах
Пример 1
Пример 2
Все страницы
Пример. Определить, является ли данный квадратный массив симметричным относительно своей главной диагонали. Данные записаны в электронной таблице.

Решение.

Sub simetria()

Const n = 4

Dim i, j

Dim x(n, n)

Dim t, check As Boolean

For i = 1 To n

For j = 1 To n

x(i, j) = Cells(i, j)

Next

Next

t = True 'предположим, что матрица симметрична

i = 2

While t And (i < n)

j = 1

While (j < i) And (x(i, j) = x(j, i))

j = j + 1

Wend

t = (j = i)

i = i + 1

Wend

check = t

MsgBox check

End Sub


<< Предыдущая - Следующая



Читайте также:

Добавить комментарий


Защитный код
Обновить
Разделы



Главная VBA Обработка массивов