Умножение матрицы на вектор - VB (63041)
Формулировка задачи:
Задача: Даны натуральные числа n,m последовательность а1…..аm и матрица размером n*m. Найти произведение матрицы на вектор. Результат поместить в одномерный массив длиной n.Причем строки матрицы должны быть по размеру равны столбцам вектора ,так как нельзя будет умножать на вектор!
Помогите дописать формулу в vba....пожалуйста!!!!
null
Вот что я наколякала.......в итоге произведение выдает 0.........помогите доделать!!!!
Решение задачи: «Умножение матрицы на вектор»
textual
Листинг программы
Private Sub Command1_Click() Dim n As Integer Dim m As Integer Dim A() As Integer 'матрица Dim x() As Integer 'начальный столбец Dim y() As Integer 'итоговый столбец y=A*x n = InputBox("введите количество строк матрицы") m = InputBox("введите количество столбцов матрицы") ReDim A(1 To n, 1 To m): ReDim x(1 To m): ReDim y(1 To n) For i = 1 To n For j = 1 To m A(i, j) = InputBox("введи a(" & i & "; " & j & ")") Next j Next i For j = 1 To m x(j) = InputBox("вводи b(" & j & ")") Next j For i = 1 To n For j = 1 To m y(i) = y(i) + A(i, j) * x(j) Next j S = S & y(i) & vbNewLine Next i MsgBox S End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д