Умножение матрицы на матрицу - VB

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста написать подпрограмму для умножения матрицы порядка nxm на матрицу порядка qxp. Никак не могу понять логику вычисления. Код я написала, но это чушь какая-то... Очень хочется сдать курсовик...((

Решение задачи: «Умножение матрицы на матрицу»

textual
Листинг программы
Private Sub Command10_Click() 'А это какая-то ерунда...точно!
Dim i As Integer, j As Integer, m, n, q, P As Integer, r As Integer, C() As Single
if m<>q then msgbox "Умножение этих матриц в этом порядке невозможно!!" : exit sub
 
ReDim C(n, p) 'ReDim C(m, q)
              'ReDim A(i, r)
              'ReDim B(r, j)
For i = 1 To n 'm
For j = 1 To p 'q
For r = 1 To m 'или q - они должны быть равны
   C(i, j) = C(i, j) + A(i, r) * B(r, j) 'C(i, j) = A(i, r) * B(r, j)
Next r
Text10.Text = Text10.Text & C(i, j) & ""  'здесь без комментариев, советую & vbtab
Next j
Text10.Text = Text10.Text + vbCrLf
Next i
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.786 из 5