Программа на Паскале для решения систмы двух линейных уравнений вида ax+by+c=0. Вводите коэффициенты a,b,c и получаете решение. Программа позволяет определить случай когда решений нет или решений бесконечное множество.

uses crt; var a,b,c: array[1..2] of real; delta, deltax, deltay,x,y: real; i,j: integer; begin clrscr; writeln('Введите коэф. системы двух линейных уравнений:'); writeln('После ввода каждого коэффициента нажимайте <Enter>'); for i:=1 to 2 do begin write('a[',i,']='); readln(a[i]); write('b[',i,']='); readln(b[i]); write('c[',i,']='); readln(c[i]); writeln; end; writeln('Решеине системы уравнений:'); for i:=1 to 2 do begin write(a[i]:4:1,'*x + ',b[i]:4:1,'*y = ',c[i]:4:1); writeln; end; delta:=a[1]*b[2]-a[2]*b[1]; writeln('Определитель системы d= ',delta:4:2); deltax:=c[1]*b[2]-c[2]*b[1]; deltay:=a[1]*c[2]-a[2]*c[1]; writeln('dx=',deltax:6:2 ); writeln('dy=',deltay:6:2 ); if delta<>0 then begin writeln('Cистема уравнений имеет единственное решение'); x:=deltax/delta; y:=deltay/delta; writeln('x=',x:6:2,' y=',y:6:2) end else if (deltax=0) and (deltay=0) then writeln('Система имеет бесконечное множество решений') else writeln('Решений нет'); readln end.

---