ТОР 5 статей: Методические подходы к анализу финансового состояния предприятия Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века Характеристика шлифовальных кругов и ее маркировка Служебные части речи. Предлог. Союз. Частицы КАТЕГОРИИ:
|
Dim a() As Integer, b() As Single, c() As SingleDim n As Integer, m As Integer, i As Integer Dim j As Integer n = Cells (1, 4) m = Cells (2, 4) ReDim a(n, m): ReDim b(n, m): ReDim c(n, m) 'очистка рабочего листа от посторонних надписей For i = 1 To 10 * n For j = 1 To 10 * m Cells (i + 2, j) = "" Next j Next i 'заполнение матриц А и В случайными числами 'вывод матриц в рабочий лист Excel Cells (4, 1) = "Матрица А:" Cells (4, m + 2) = "Матрица B:" For i = 1 To n For j = 1 To m 'матрица А a(i, j) = 50 - Int (Rnd () * 100) Cells (i + 4, j) = a(i, j) 'матрица В b(i, j) = 50 - Int (Rnd () * 1000) / 10 Cells (i + 4, j + m + 2) = b(i, j) Next j Next i Cells (n + 4 + 2, 1) = "Матрица C:" 'сложение матриц For i = 1 To n For j = 1 To m c(i, j) = a(i, j) + b(i, j) Cells (i + n + 4 + 3, j) = c(i, j) Next j Next i End Sub
Результат выполнения программы:
Пример 15. Умножить матрицу А (n, m) на матрицу B (m, h).
Сложность заключается в том, что результатом будет матрица и для формирования ее столбцов нужен еще один цикл. По правилам математики, можно умножать матрицы только в том случае, если количество столбцов первой равно количеству строк во второй. При этом в результирующей матрице будет строк столько же, сколько было в первой матрице, а столбцов столько же, сколько их было во второй. Это можно показать формулой A (n, m) × B (m, h) = C (n, h). В ходе умножения матриц использовано три цикла. Первый, со счетчиком i, задает порядок умножения строк матрицы А. Второй, со счетчиком i 2, задает перебор столбцов матрицы В. В третьем цикле, со счетчиком j, происходит подсчет суммы произведений элементов i -й строки матрицы А и i 2-го столбца матрицы В. Сумма присваивается очередному элементу матрицы C, и переменная sum обнуляется.
Sub primer_15() Не нашли, что искали? Воспользуйтесь поиском:
|