Умножение матрицы на вектор

@Маришка 370 · Регистрация: 31.03.2010

Студворк — интернет-сервис помощи студентам

Задача: Даны натуральные числа n,m последовательность а1…..аm и матрица размером n*m. Найти произведение матрицы на вектор. Результат поместить в одномерный массив длиной n.Причем строки матрицы должны быть по размеру равны столбцам вектора ,так как нельзя будет умножать на вектор!
Помогите дописать формулу в vba....пожалуйста!!!!

Добавлено через 27 секунд

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Command1_Click()
Dim A(10, 10) As Integer
Dim n As Integer
Dim m As Integer
Dim p As Integer
Dim q As Integer
Dim B(10, 10) As Integer
Dim C(10, 10) As Integer
m = InputBox("введите количество столбцов матрицы")
n = InputBox("введите количество строк матрицы")
p = InputBox("введите количество столбцов вектора")
q = InputBox("введите количество строк вектора")
For i = 1 To n
For j = 1 To m
A(i, j) = InputBox("вводи a(" & i & " ; " & j & ")")
Next j
Next i
For i = 1 To q
For j = 1 To p
B(i, j) = InputBox("вводи b(" & i & " ; " & j & ")")
Next j
Next i
For i = 1 To n
For j = 1 To m
C(i, j) = A(i, j) * B(i, j) + A(m, n) * B(p, q)
Next j
Next i
MsgBox C(i, j)
End Sub

Добавлено через 43 секунды
Вот что я наколякала.......в итоге произведение выдает 0.........помогите доделать!!!!

@аналитика · 09.04.2010, 11:50

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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

@Маришка 370 · 09.04.2010, 21:50 **[ТС]**

О!!!!Работает)))Спасибочки вам большое))))))))))))

Что не прошли мимо))))))

@ЦезариЯ · 10.04.2010, 12:56

Эмм...
а без редимэншна это воплотимо??
Просто указать произвольный статический массив в Dim??

PureBasic
1
Dim A(10, 10) As Integer

и *vbNewLine*-это что?

@Alex77755 · 10.04.2010, 13:27

Тогда вместо:

Visual Basic
1
2
 n = InputBox("введите количество строк матрицы")
   m = InputBox("введите количество столбцов матрицы")

просто n = 10: M = 10

и *vbNewLine*
Это что бы матрицу показать в Месаге
можно вместо vbNewLine использовать vbCrLf

@аналитика · 10.04.2010, 13:29

Сообщение от ЦезариЯ

Эмм...
а без редимэншна это воплотимо??
Просто указать произвольный статический массив в Dim??

PureBasic
1
Dim A(10, 10) As Integer

и *vbNewLine*-это что?

конечно можно, но стоит с осторожностью отнестись к размерам матриц,
умножение С=A*B возможно только если A(m, n), а B(n, p) - число столбцов первой матрицы равно числу строк второй, в итоге матрица C(m, p)

vbNewLine - переход на новую строку (нужно было, чтобы выглядело как столбец)

@ЦезариЯ · 10.04.2010, 13:55

Ммм.
Нам и строка прокатит.
Спасибо.

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@Маришка 370 0 / 0 / 0 Регистрация: 31.03.2010 Сообщений: 5
	09.04.2010, 21:50 [ТС]
	О!!!!Работает)))Спасибочки вам большое))))))))))))Что не прошли мимо)))))) 0

@ЦезариЯ 1 / 1 / 0 Регистрация: 31.03.2010 Сообщений: 28
	10.04.2010, 13:55
	Ммм. Нам и строка прокатит. Спасибо. 0

Умножение матрицы на вектор

Решение