Руководство к решению задач по механике материалов и конструкций. Егодуров Г.С - 243 стр.

For I:=1 to M do Write(BP[i,1]:7:3);
Writeln;
Stop;
{Формирование матрицы DE}
For I:=1 to M do
For J:=1 to M do DE[i,j]:=0;
F[1,1]:=0.333;
F[1,2]:=0.333;
F[1,3]:=0.167;
F[2,1]:=0;
F[2,2]:=0;
F[2,3]:=0
F[3,1]:=0.167;
F[3,2]:=0.333;
F[3,3]:0,333;
L:=1;
Repeat
For I:=1 to 3 do
For J:=1 to 3 do DE[I+L-1,J+L-1]:=F[i,j];
L:=L+3;
Until L>M;
Writeln(`Матрица DE`);
For I:=1 to M do
       Begin
       For J:=1 to M do Write(DE[i,j]:6:3);
       Writeln;
       End;
Stop;
{Операции с матрицами}
GMTRA(B1,BT,M,K);
Writeln(`Матрица BT`);
For I:=1 to K do
       Begin
       For J:=1 to M do Write(BT[i,j]:5:1);
       Writeln;
       End:
GMPRD(BT,DE,C,K,M,M);
Writeln(`Матрица С`);
For I:=1 to K do
       Begin
       For J:=1 to M do Write(C[i,j]:6:3);
       Writeln;
       End;
Stop;
GMPRD(C,B1,D11,K,M,K);
Writeln(`Матрица D11`);
For I:=1 to K do
       Begin
       For J:=1 to K do Write(D11[i,j]:12:3);
       Writeln;
       End;
MINV(D11,K,D);



                                        243