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

Ответы 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 4x=2, y=1
    • Автор:

      matilda
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years