Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Двумерные Массивы

.docx
Скачиваний:
12
Добавлен:
13.09.2017
Размер:
57.8 Кб
Скачать

Минобрнауки Российской Федерации

Казанский Национальный Технологический Университет

Кафедра химической кибернетики

Лабораторная работа №6

Двумерные Массивы

Выполнили:

Студенты группы 2361-62

Пискунов Андрей, Филипов Руслан

Проверил:

Шулаев М. В.

Казань, 2017

Задача: Обработка двумерного массива или матрицы. Для матрицы A={ai} I,j = 1,4 , заданной случайным образом, вычислить: определитель, обратную матрицу, произведение исходной матрицы на обратную матрицу.

Зафиксированные значения

Определитель

Обратная Матрица

Произведение Матрицы на Обратную Матрицу

Задание: Вычисления в программе. Используя значения матрицы A={ai} I,j = 1,4 , напечатайте номер строки, среднее арифметическое элементов которой имеет минимальное значение:

Программа в EVB

Sub prog42()

Dim a(1 To 4, 1 To 4) As Integer

Dim s(4) As Variant, avg(4) As Variant

i1 = 40

For i = 1 To 4

j1 = 1

For j = 1 To 4

a(i, j) = Worksheets("Лист1").Cells(i1, j1).Value

MsgBox a(i, j)

s(i) = s(i) + a(i, j)

j1 = j1 + 1

Next j

avg(i) = s(i) / 4

Worksheets("Лист").Cells(i1, 5).Value = avg(i)

i1 = i1 + 1

Next i

Min = avg(1): i1 = 40

For i = 1 To 4

If avg(i) < Min Then Min = avg(i): i1 = i1 + 1

Next i

Worksheets("Лист1").Cells(i1, 5).Interior.ColorIndex = 4

MsgBox "Номер строки с мин значением:" & i1

Worksheets("Лист1").Cells(i1, 5).Interior.ColorIndex = 0

End Sub

Ответ:

Самостоятельная работа

Задача: для матрицы A={ai} I,j = 1,4 , заданной случайным образом в интервале от [-10,10], вычислить: сумму элементов матрицы, расположенных на главной диагонали; напечатать столбец, содержащий максимальное количество отрицательных элементов.

Зафиксированные значения

Программа в EVB

Результат:

Сумма элементов матрицы, расположенных на главной диагонали

Столбец, содержащий максимальное количество отрицательных элементов

Вывод: Мы научились обрабатывать двумерные массивы.