Пожаловаться
- 14.04.2018 21:58
- Информатика
- remove_red_eye 17527
- thumb_up 16
Ответы и объяснения 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
// Внимание! Если программа не работает, обновите версию!
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
Пожаловаться
- 15.04.2018 00:48
- thumb_up 13
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы