Автор Sashas задал вопрос в разделе Другие языки и технологии
Вычисление определителя и получил лучший ответ
Ответ от Аццкий скорпиончег[гуру]
Есть программа приближенного решения системы методом Гаусса на паскале.. . Если нужна, могу скинуть.. . Про определители тоже есть алгоритм...
Ответ от James Lukash[гуру]
const N_MAX = 6;type TMatrix = array [1..N_MAX, 1..N_MAX] of real;function Determinant (n : integer; a : TMatrix) : double;var d : double; i : integer; b : array [1..N_MAX] of boolean; procedure thread (p : double; e, i : integer); var j, f, z : integer; begin if odd (e) then z := -1 else z := 1; if i > n then d := d + p * z else if p <> 0 then begin f := 0; for j := n downto 1 do if b [j] then f := f + 1 else begin b [j] := true; thread (p * a [i, j], e + f, i + 1); b [j] := false; end; end; end; {thread} begin {Determinant} for i := 1 to n do b [ i ] := false; d := 0; thread (1, 0, 1); Determinant := d;end; {Determinant}
const N_MAX = 6;type TMatrix = array [1..N_MAX, 1..N_MAX] of real;function Determinant (n : integer; a : TMatrix) : double;var d : double; i : integer; b : array [1..N_MAX] of boolean; procedure thread (p : double; e, i : integer); var j, f, z : integer; begin if odd (e) then z := -1 else z := 1; if i > n then d := d + p * z else if p <> 0 then begin f := 0; for j := n downto 1 do if b [j] then f := f + 1 else begin b [j] := true; thread (p * a [i, j], e + f, i + 1); b [j] := false; end; end; end; {thread} begin {Determinant} for i := 1 to n do b [ i ] := false; d := 0; thread (1, 0, 1); Determinant := d;end; {Determinant}
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Вычисление определителя
спросили в Матрица
Как найти определитель матрицы пятого порядка?
Матрица состоит из чисел или букв?
Если из чисел, то предварительно упростите определитель,
подробнее...
Как найти определитель матрицы пятого порядка?
Матрица состоит из чисел или букв?
Если из чисел, то предварительно упростите определитель,
подробнее...
Как определить ранг матрица?
Вычисление ранга матрицы с помощью элементарных преобразований строк (метод Гаусса)
подробнее...
спросили в Другое
Решить СЛАУ
тут пробел стереть
. ru/web/prog12_1.php
Система уравнений - это условие, состоящее
подробнее...
Решить СЛАУ
тут пробел стереть
. ru/web/prog12_1.php
Система уравнений - это условие, состоящее
подробнее...