. і доп. - М.: Московський фінансово-промисловий університет «ѳнеріяВ», 2012. - 176 с. (Університетська серія). p align="justify">. Турчак Л.І. Основи чисельних методів: Учеб. посібник. - М.: Наука. Гол. ред. Фіз.-мат. Літ., 1987. - 320 с. p align="justify">. Електронний ресурс. Визначники та системи лінійних алгебраїчних рівнянь. [# "Justify">. Електронний ресурс. Зворотний матриця. Знаходження оберненої матриці методом алгебраїчних доповнень. br/>
Додаток 1
Програма код для обчислення визначників.
program Opredelitel; crt; = 10; = array [1 .. N1, 1 .. N1] of real;: matrice;, J, N: integer;: real; Det (A: Matrice ; N: integer): real;: matrice;: integer;, Mn, S: real; Minor (var C: matrice; A: Matrice; N, I, J: integer): real;, Jm, Ia, Ja, Nm: integer;: = N - 1; Im: = 1; Ia: = 1; Im <= Nm doIa <> I then: = 1; Ja: = 1; Jm <= Nm doJa <> ; J then [Im, Jm]: = A [Ia, Ja];: = Ja + 1; Jm: = Jm + 1; Ja: = Ja + 1;: = Ia + 1; Im: = Im + 1; Ia: = Ia + 1;; {* Minor *} N = 1 then Det: = A [N, N]; N = 2 then Det: = A [1, 1] * A [2, 2] - A [ 2, 1] * A [1, 2]; N> 2 then: = 0; I: = 1 to N do: = Minor (B, A, N, I, 1); (I mod 2) = 1 then begin: = Det (B, N - 1);: = S + T * A [I, 1]; begin: = Det (B, N - 1);: = S - T * A [I, 1] ;;;: = S;;; {* Determ *} ('Введіть порядок матриці N:'); readln (N); I: = 1 to N do ('Введіть елементи рядка', I: 2);
for J: = 1 to N do readln (A [I, J]);;: = Det (A, N); ('Визначник дорівнює:', D: 7: 4); ;
end.
Додаток 2
Програма код для знаходження зворотної матриці.
program Gayss; crt; = 2; = 0.000000001; {all numbers less than eps are equal 0} matr = array [1 .. n, 1 .. n] of real;, b, a0 : matr;, j, imx, np: integer;, s1: real; PrintMatr (m, m1: matr; n, nz, nd: integer);, j: integer; i: = 1 to n do (i = 1 ) then write (np: 2, ':') else write (''); j: = 1 to n do write (m [i, j]: nz: nd); j: = 1 to n do write (m1 [i, j]: nz: nd);;; (np);; MultString (var a, b: matr; i1: integer; r: real);: integer; j: = 1 to n do [i1, j ]: = a [i1, j] * r; [i1, j]: = b [i1, j] * r;;; AddStrings (var a, b: matr; i1, i2: integer; r: real);
{процедура додає до i1 рядку матриці а 2i-ю помножену на r}
var: integer; j: = 1 to n do [i1, j]: = a [i1, j] + r * a [i2, j]; [i1, j]: = b [i1, j] + r * b [i2, j];;; MultMatr (a, b: matr; var c: matr);, j, k: byte;: real; i: = 1 to n doj: = 1 to n do: = 0; k: = 1 to n do s: = s + a [i, k] * b [k, j]; [i, j]: = s;;; sign (r: real ): shortint; (r> = 0) then sign: = 1 else sign: = -1;;
{MAIN}; i: = 1 to n doj: = 1 to n do [i, j]: = 0; [i, j]: = 1.0 * random (8) -4; ; [i, i]: = 1;;
{налагоджувальн...
