метод гаусса

[Тамерлан Абилов]

Народ я постарался как то вычисление по проще сделать. x[1..4,1..5] расширенная матрица.a[1..4] корни.просто все уже делали прогу на гаусса.а я ток вот сделал.не знаю норм ли.

 
  for  z:=1 to 3 do  begin
    for    i:=z+1 to  n do begin
      k:=-x[i,z]/x[z,z];               
       for j:= 1 to m do  begin
         x[i,j]:=((k*x[z,j])+x[i,j]); //элементарные преобразование нижнего треугольника на ноль..
       end;
    end; 
  end;   
   for i:=4 downto 1 do  begin
     for j:=4 downto i+1 do begin
       x[i,5]:= x[i,5]-x[i,j]*a[j];        //все что слева перетаскиваем на правую часть уравнения
     end;
   a[i]:=x[i,5]/x[i,i];;      // корни
  end;
  for i:=1 to 4 do
    write(' x',i,'=',a[i]:0:3);
  end.