Написать программу, которая решает уравнение ax+b <0 относительно x для любых чисел a и b , введёных с клавиатуры.

Помогите пожалуйста)

2

Ответы и объяснения

  • 4MD
  • отличник
2013-06-24T11:06:33+00:00

ax + b < 0
ax < -b
x < - b / a

a, b могут быть дробными числами.
Язык программирования: Паскаль

var
a, b : real;
begin
readln (a);
readln (b);
if a <> 0 then
writeln ('x < ', - b / a);
if (a = 0) and (b < 0) then
writeln ('x - любое число');
if (a = 0) and (b >= 0) then
writeln ('нет решений')
end.

2013-06-24T11:52:11+00:00

var

  a,b,x:real;

begin

  write ('A = ');readln(a);

  write ('B = ');readln(b);

  if (a=0) and (b>=0) then writeln ('Нет решений') else

    if (a=0) and (b<0) then writeln ('X - любое число') else

      if a>0 then writeln ('X < ',-b/a:0:4) else

        if a<0 then write ('X > ',-b/a:0:4);

  readln;

end.