Математика \ Высшая математика

Матрицы и определители, свойства определителей, задачи, страница 2

3. Найти матрицу, обратную к матрице

если

= $(a1), = $(a2), = $(a3),

= $(a4), = $(a5), = $(a6),

= $(a7), = $(a8), = $(a9).

Элементы обратной матрицы записать в строку ответов через пробел.

Например, матрица в строке ответов будет записана так: 1 -2 3 4.

3.1.

var a1,a2,a3,a4,a5,a6,a7,a8,a9,q, o,z,x,c,v,b,n,m,l, a11,a12,a13,a21,a22,a23,a31,a32,a33:integer;

begin

repeat

a1:=Random(8);

a2:=Random(8)+1;

a3:=Random(8);

a4:=Random(8);

a5:=Random(8);

a6:=Random(8);

a7:=Random(8)+1;

a8:=Random(8)+1;

a9:=Random(8);

until

((a1*(a5*a9-a6*a8)+(-a4)*(a2*a9-a3*a8)+a7*(a2*a6-a3*a5))=1)

q:=a1*(a5*a9-a6*a8)+(-a4)*(a2*a9-a3*a8)+a7*(a2*a6-a3*a5);{определитель}

a11:=(a5*a9-a6*a8);

a12:=-(a4*a9-a6*a7);

a13:=(a4*a8-a5*a7);

a21:=-(a2*a9-a3*a8);

a22:=(a1*a9-a3*a7);

a23:=-(a1*a8-a2*a7);

a31:=(a2*a6-a3*a5);

a32:=-(a1*a6-a3*a4);

a33:=(a1*a5-a2*a4);

end.