Курсовая работа: Використання елементарних перетворень для знаходження оберненої матриці
Var i: Integer;
Begin
For i: =1 to S. CBars do
Begin
Ar63(S. M^) [l2, i]: =Ar63(S. M^) [l2, i] -Ar63(S. M^) [l1, i] *K;
End;
End;
Procedure InitObject;
Var i,j: Integer;
Ver: TOE;
Begin
S. VMT;
S. DataInit(63,63);
Si: =0;
IF DetForRev
Then
Begin
si: =63;
sj: =63;
Ar63(S. M^): =Ar63(M^)
End
Else
For i: =1 to CLines do
IF not (i in Lin) Then
Begin
Inc(Si);
Sj: =0;
For j: =1 to CBars do
IF not (j in Bar) Then