Курсовая работа: Разработка программы решения системы линейных уравнений

procedure MultMatr (a,b: matr; var c: matr);

var i,j,k: byte;

s: real;

begin

for i: =1 to n do

for j: =1 to n do

begin

s: =0;

for k: =1 to n do

s: =s+a [i,k] *b [k,j] ;

c [i,j]: =s;

end;

end;

function sign (r: real): shortint;

begin

if (r>=0) then sign: =1 else sign: =-1;

end;

{***************************************************}

{** вычеркивание из матрицы строки и столбца **}

procedure GetMatr (a: matr; var b: matr; m, i,j: integer);

var ki,kj,di,dj: integer;

begin

di: =0;

for ki: =1 to m-1 do

begin

if (ki=i) then di: =1;

dj: =0;

for kj: =1 to m-1 do

begin