Умножение матрицы на матрицу - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д