Написать программу для решения системы линейных уравнений.
(Программу надо написать на языке программирования в Паскаль Онлайн )
Приложения:
![](https://st.uroker.com/files/1b4/1b460b7f2d8c06c70b5e5a6a85e5e1d5.jpeg)
Ответы
Ответ дал:
0
uses crt;
var
x, y, A1, A2, B1, B2, C1, C2:real;
begin
clrscr;
writeln('enter A1:');
writeln('enter A2:');
writeln('enter B1:');
writeln('enter B2:');
writeln('enter C1:');
writeln('enter C2:');
read(A1,A2,B1,B2,C1,C2);
if (A2 * B1 - A1 * B2) = 0 then
writeln('Программа не имеет решений')
else
begin
x:= (B1*C2-B2*C1) / (A2*B1-A1*B2);
y:= (A2 * C1 - A1 * C2) / (A2 * B1 - A1 * B2);
end;
writeln('x=', x:10:2);
writeln('y=', y:10:2);
end.
Ответ дал:
0
Спасибо! Вы можете подсказать - как вывести результаты программы?
Ответ дал:
0
https://rextester.com/SVDBNH55154
Ответ дал:
0
по этой ссылке запуск программы в онлайн компиляторе
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад
8 лет назад