Решить систему линейных уравнений - Turbo Pascal (30074)

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

2. Решить систему линейных уравнений a1*x+b1*y=c1 a2*x+b2*y=c2

Код к задаче: «Решить систему линейных уравнений - Turbo Pascal (30074)»

textual
uses crt;
var a1,b1,c1,a2,b2,c2,d,d1,d2,x,y:real;
begin
clrscr;
writeln('Введите коэффициенты первого уравнения:');
readln(a1,b1,c1);
writeln('Введите коэффициенты второго уравнения:');
readln(a2,b2,c2);
clrscr;
writeln('Система:');
write(a1:5:2,'x');
if b1<0 then writeln(b1:5:2,'y=',c1:5:2)
else writeln(' +',b1:5:2,'y=',c1:5:2);
write(a2:5:2,'x');
if b2<0 then writeln(b2:5:2,'y=',c2:5:2)
else writeln(' +',b2:5:2,'y=',c2:5:2);
writeln;
d:=a1*b2-a2*b1;
if d=0 then
 begin
  write('Решений нет');
  readln;
  exit
 end;
d1:=c1*b2-c2*b1;
d2:=a1*c2-a2*c1;
x:=d1/d;
y:=d2/d;
writeln('x=',x:0:2);
writeln('y=',y:0:2);
readln
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

5   голосов, оценка 3.800 из 5


СОХРАНИТЬ ССЫЛКУ