Составить приложение для вычисления определителя матрицы n-го порядка - VB
Формулировка задачи:
Помогите, пожалуйста, составить приложение для вычисления матрицы n-го порядка. Вроде-бы простая задачка, но я нигде не могу найти решение или хотя бы подсказку...
Решение задачи: «Составить приложение для вычисления определителя матрицы n-го порядка»
textual
Листинг программы
Function det(matrix) Dim n As Byte, j As Byte Dim i_ As Byte, j_ As Byte Dim minor() n = UBound(matrix) If n = 1 Then det = matrix(1, 1): Exit Function ReDim minor(1 To n - 1, 1 To n - 1) For j = 1 To n 'по первой строке For i_ = 1 To n - 1 For j_ = 1 To n - 1 If j_ < j Then minor(i_, j_) = matrix(i_ + 1, j_) If j_ >= j Then minor(i_, j_) = matrix(i_ + 1, j_ + 1) Next j_ Next i_ det = det + (-1) ^ (1 + j) * matrix(1, j) * det(minor) Next j End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д