Pascal. Программа решения неравенства ax+b<0 для любых a и b

[Last Crow]

Pascal. Программа решения неравенства ax+b<0 для любых a и b

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

 

[NDV]

var a, b, x: real;
begin
  Writeln('Введите a:');
  Readln(a);
  if a=0 then writeln('Error: a=0!') else
begin
  Writeln('Введите b:');
  Readln('b');
  x:=-b/a;
  writeln('x<',x);
end;
  readln;
end.

Проверь, должна работать

 

[Last Crow]

Благодарю тебя, о мудрейший...

 

[NDV]

Коэффициент а в любом случае не должен быть равен нулю

 

[shrek=)]

На сколько мне известно, то при а<0 знак неравенства меняется на противоположный

 

[NDV]

На сколько мне известно, то при а<0 знак неравенства меняется на противоположный

Блин, виноват. Сейчас перепишу

 

[Vladimir_S]

На сколько мне известно, то при а<0 знак неравенства меняется на противоположный

Абсолютно верно, нужно обязательно в программу добавить такое ветвление.

 

[NDV]

var a, b, x: real;
begin
  Writeln('Введите a:');
  Readln(a);
  if a=0 then writeln('Error: a=0!') else
begin
  Writeln('Введите b:');
  Readln('b');
  x:=-b/a 
if a>0 then
  writeln('x<',x)
else
  writeln('x>',x)
end;
  readln;
end.

Поторопился чуть-чуть :-(