Решение системы уравнений - Turbo Pascal (30652)

Формулировка задачи:

В Pascal написать программу для решения систем из трёх уравнений с тремя переменными. Если я правильно понимаю, надо отдельно заносить переменные? И связать дальше оператором "если". Но как это на практике осуществить?

Решение задачи: «Решение системы уравнений»

Листинг программы

uses crt;
const n=3;
var a:array [1..n,1..n] of real;
    b:array [1..n] of real;
    i,j:integer;
    d,d1,d2,d3: real;
    x1,x2,x3:real;
begin
clrscr;
writeln('Введите коэфициенты и свободные члены ',n,' уравнений');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    write('a[',i,',',j,']=');
    readln(a[i,j]);
   end;
  write('св. член=');
  readln(b[i]);
 end;
clrscr;
writeln('Расширенная матрица коэффициентов');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:8:4);
  writeln(b[i]:12:4);
 end;
writeln;
d:= a[1,1]*a[2,2]*a[3,3]-a[1,1]*a[2,3]*a[3,2]
   -a[1,2]*a[2,1]*a[3,3]+a[1,2]*a[2,3]*a[3,1]
   +a[1,3]*a[2,1]*a[3,2]-a[1,3]*a[2,2]*a[3,1];
if d=0 then
 begin
  write('Система не определена');
  readln;
  exit;
 end;
d1:=b[1]*a[2,2]*a[3,3]-b[1]*a[2,3]*a[3,2]
   -a[1,2]*b[2]*a[3,3]+a[1,2]*a[2,3]*b[3]
   +a[1,3]*b[2]*a[3,2]-a[1,3]*a[2,2]*b[3];
d2:= a[1,1]*b[2]*a[3,3]-a[1,1]*a[2,3]*b[3]
   -b[1]*a[2,1]*a[3,3]+b[1]*a[2,3]*a[3,1]
   +a[1,3]*a[2,1]*b[3]-a[1,3]*b[2]*a[3,1];
d3:= a[1,1]*a[2,2]*b[3]-a[1,1]*b[2]*a[3,2]
   -a[1,2]*a[2,1]*b[3]+a[1,2]*b[2]*a[3,1]
   +b[1]*a[2,1]*a[3,2]-b[1]*a[2,2]*a[3,1];
x1:=d1/d;
x2:=d2/d;
x3:=d3/d;
writeln('x1=',x1:10:4);
writeln('x2=',x2:10:4);
writeln('x3=',x3:10:4);
readln
end.

Объяснение кода листинга программы

В первой строке кода используется библиотека crt, которая является стандартной для языка Turbo Pascal.
Константа n определяет количество уравнений в системе, которое равно 3.
Переменная a представляет собой матрицу коэффициентов и свободных членов системы уравнений. Она инициализируется в процессе выполнения программы.
Переменная b содержит свободные члены системы уравнений.
Переменные i и j используются для итерации по элементам матрицы a и b соответственно.
Переменные d, d1, d2, d3 содержат результаты вычисления определенных выражений, которые используются для решения системы уравнений.
Переменные x1, x2, x3 представляют собой значения неизвестных, которые находятся путем решения системы уравнений.
Вторая часть кода выводит расширенную матрицу коэффициентов системы уравнений.
Выражение d вычисляет определитель матрицы a.
Выражения d1, d2, d3 вычисляют определенные значения, используя матрицы a и b.
Значения x1, x2, x3 вычисляются путем деления соответствующих выражений на d.
Программа завершается после вывода значений x1, x2, x3.