egin (a [i, j]: 12: 5, ); ;
writeln;// виведення системи рівнянь
end;
for j:=1 to 4 do begin//сортіровкаi:=j to 4 do beginl:=i to 4 do begin (abs (a [i, j]) lt; abs (a [ l + 1, j])) then beginq:=1 to 6 do begin:=a [i, q]; [i, q]:=a [l + 1, q]; [l + 1, q]: =w ;;;;;; j:=1 to 4 do begin//приведення системи до діагонального вигляду
for i:=1 to 4 do begin (i gt;=j) then begin (a [i + 1, j] lt; gt; 0) then//якщо значення елемента не нульове
begin k:=a [j, j]/a [i + 1, j];// обчислюємо коефіцієнт на який необхідно помножити весь рядок
for q:=1 to 6 do a [i + 1, q]:=k * a [i + 1, q] -a [j, q];// віднімаємо рядки ;;;; i:=1 to 5 do begin//обнулення нижнього треугольнікаj:=1 to 4 do (j lt; i) then a [i, j]:=0 ;; i:=1 to 5 do beginj:=1 to 6 do (a [i, j]: 12: 5, ) ;;; i:=1 to 5 do [i, 6]:=a [i, 6];// заповнення системи для обчислення X
for i:=5 downto 1 do begin//обчислення Xj:=1 to 5 doj gt; i then b [i, 6]:=b [i, 6] -x [j] * a [i, j]; [i]:=(b [i, 6])/(a ??[i, i]) ;; i:=1 to 5 do//вивід на екран ( x , i , :=, x [i]: 12: 5); i:=1 to 5 do beginj:=1 to 5 do begini lt; j then a [j, i]:=i + j- (10/3) - 1; i=j then a [j, i]:=i + j + (10/4) +1; i gt; j then a [j, i]:=i + j- (10/5)- 1 ;;;
for i:=1 to 5 do begin [i, 6]:=a [i, 1] * x [1] + a [i, 2] * x [2] + a [ i, 3] * x [3] + a [i, 4] * x [4] + a [i, 5] * x [5] ;;;
for i:=1 to 5 do ( b , i, :=, a [i, 6]: 12: 5) ;;.
Робота програми:
