Матрицы и определители, свойства определителей, задачи, страница 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.

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;

3.2.

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);{определитель}