Question

Решите систему уравнений в паскале x+5y=7 3x-2y=4

Answer 1

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,c):=ReadReal3('Введите A,B,C для 1-го уравнения Ax+By=C:');
  var (d,e,f):=ReadReal3('Введите A,B,C для 2-го уравнения Ax+By=C:');
  //по правилу Крамера
  var dd:=a*e-b*d;
  var dx:=c*e-b*f;
  var dy:=a*f-c*d;
  var x:=dx/dd;
  var y:=dy/dd;
  Writeln('x=',x,', y=',y)
end.

Пример
Введите A,B,C для 1-го уравнения Ax+By=C: 1 5 7
Введите A,B,C для 2-го уравнения Ax+By=C: 3 -2 4
x=2, y=1