Курсовая работа: Використання елементарних перетворень для знаходження оберненої матриці

nMax: =1;

For i: =2 to S. Clines do

IF Abs(Max) <Abs(Ar31(S. M^) [i,B1])

Then

Begin

Max: =Ar31(S. M^) [i,B1] ;

nMAx: =i;

End;

IF S. Clines<>nMAx Then

Begin

S. SwapLines(S. Clines,nMAx);

Inc(S. Chek);

End;

End;

Procedure AddLines(l1,l2: Integer; K: TOE);

Var i: Integer;

Begin

For i: =1 to S. CBars do

Begin

Ar31(S. M^) [l2, i]: =Ar31(S. M^) [l2, i] -Ar31(S. M^) [l1, i] *K;

End;

End;

Procedure InitObject;

Var i,j: Integer;

Ver: TOE;

Begin

S. VMT;

S. DataInit(31,31);

Si: =0;