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

mGauss: = Gauss;

mDetForRev: = DetForRev;

End

End;

Procedure Matrix. RestoreSettings;

Begin

With FM do

Begin

Plus: = mPlus;

Direction: = mDirection;

SortLines: = mSortLines;

BeginZeero: = mBeginZeero;

SpecialSort: = mSpecialSort;

Gauss: = mGauss;

DetForRev: = mDetForRev;

End;

End;

{********************************Quick metods *****************************}

Function Matrix31. DetWithGauss;

Var i,j: Integer;

K: TOE;

P: TOE;

S: Matrix31;

si,sj: Integer;

Procedure SortLinesOfTheBar(B1: Integer);

Var i: Integer;

Max: TOE;

nMax: Integer;

Begin