Нужно написать программу решения системы неравенств и и исследовать все коэффициенты.Сама пример(или на картинке):
а1х+b1>0
a2x+b2<0
Вот вроде бы программа рабочая, но как сделать правильный вывод чтобы выводило "от" "х" и от "х" "до"?
Код:
var n,a1,a2,b1,b2:integer;
r1,r2:real;
begin
writeln('A1X+B1>0');
writeln('A2X+B2<0');
write(' Введите a1=');
readln(a1);
write(' Введите a2=');
readln(a2);
write('Введите b1=');
readln(b1);
write(' Введите b2=');
readln(b2);
writeln(' ' ,a1,'X+(',b1,')>0');
writeln(' ' ,a2,'X+(',b2,')<0');
r1:=((-b1)/a1);
r2:=((-b2)/a2);