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

begin

if (i=1) then write (np: 2,': ')

else write (' ');

for j: =1 to n do

write (m [i,j]: nz: nd); write (' ');

for j: =1 to n do

write (m1 [i,j]: nz: nd);

writeln;

end;

inc (np);

end;

procedure MultString (var a,b: matr; i1: integer; r: real);

var j: integer;

begin

for j: =1 to n do

begin

a [i1,j]: =a [i1,j] *r;

b [i1,j]: =b [i1,j] *r;

end;

end;

procedure AddStrings (var а,b: matr; i1, i2: integer; r: real);

{ процедура прибавляет к i1 строке матрицы а i2-ю умноженную на r}

var j: integer;

begin

for j: =1 to n do

begin

a [i1,j]: =a [i1,j] +r*a [i2,j] ;

b [i1,j]: =b [i1,j] +r*b [i2,j] ;

end;