Результат выполнения программы:
Пример 14. Сложить матрицы A (n, m) и B (n, m) с получением матрицы C(n, m).
Результатом суммы матриц является новая матрица той же размерности, каждый элемент которой равен сумме соответствующих элементов исходных матриц. Сложение соответствующих элементов достигается использованием одних и тех же значений счетчиков цикла, т.е. A (1, 2) складывается с B (1, 2) и результат присваивается элементу C (1, 2).
Sub primer_14()
Dim a() As Integer, b() As Single, c() As Single
Dim 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