Создать программу для вычисленич матриц 4го порядка - VB

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

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

Создать программу для вычисления матриц 4го порядка

Решение задачи: «Создать программу для вычисленич матриц 4го порядка»

textual
Листинг программы
Private Sub Command1_Click()
Dim a&(), o&, n&
n = InputBox("n")
Form1.Cls
ReDim a(1 To n, 1 To n)
Randomize
For i = 1 To n
For j = 1 To n
 a(i, j) = Int(Rnd(1) * 9 + 1)
 Print a(i, j);
Next j
Print
Next i
 
Select Case n
 Case 1
  o = a(1, 1)
 Case 2
  o = a(1, 1) * a(2, 2) - a(1, 2) * a(2, 1)
 Case 3
  o = op(a(1, 1), a(1, 2), a(1, 3), a(2, 1), a(2, 2), a(2, 3), a(3, 1), a(3, 2), a(3, 3))
 Case 4
  o = a(1, 1) * op(a(2, 2), a(2, 3), a(2, 4), a(3, 2), a(3, 3), a(3, 4), a(4, 2), a(4, 3), a(4, 4))
  o = o - a(1, 2) * op(a(2, 1), a(2, 3), a(2, 4), a(3, 1), a(3, 3), a(3, 4), a(4, 1), a(4, 3), a(4, 4))
  o = o + a(1, 3) * op(a(2, 1), a(2, 2), a(2, 4), a(3, 1), a(3, 2), a(3, 4), a(4, 1), a(4, 2), a(4, 4))
  o = o - a(1, 4) * op(a(2, 1), a(2, 2), a(2, 3), a(3, 1), a(3, 2), a(3, 3), a(4, 1), a(4, 2), a(4, 3))
End Select
Print
Print o
 
End Sub
Function op(ByVal a11&, a12&, a13&, a21&, a22&, a23&, a31&, a32&, a33&) As Long
 op = a11 * a22 * a33 + a12 * a23 * a31 + a13 * a21 * a32 - _
 a31 * a22 * a13 - a21 * a12 * a33 - a11 * a32 * a23
End Function

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


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

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

9   голосов , оценка 4 из 5
Похожие ответы