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

A. WriteToText('con',7,3);

Write('Enter'); Readln;

Writeln('Обращаем матрицу коэффициентов');

C. RevWithGauss(A);

C. WriteToText('con',7,3);

Write('Enter'); Readln;

End.

{============================ Matr. pas ==========================}

{$A+,B-,D-,E-,F+,G+, I-,L-,N+,O-,P-,Q-,R-,S-,T+,V+,X+}

{$M 24000,32,655360}

Unit Matr;

Interface

Const

CTooManySize=1;

CBadPosition=2;

CFileNotFound=3;

CFileError=4;

CReadError=5; {A}

CWriteError=6; {A}

COutOfData=7;

CBadOperands=8;

CMulError=9; {A}

CSearchError=10;

CNotExist=11;

CMNotSquare=12;

CAddError=13; {A}

CReversError=14; {A}

CMDegenerate=15;

CUnkNownError=16;