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

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Pascal. Программа решения неравенства ax+b<0 для любых a и b (http://www.tehnari.ru/f41/t37079/)

Last Crow

16.06.2010 16:50

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

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

NDV	16.06.2010 16:55

Код:

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

16.06.2010 16:58

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

NDV	16.06.2010 17:00

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

shrek=)

16.06.2010 17:12

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

NDV	16.06.2010 17:20

Цитата:

Сообщение от shrek=) (Сообщение 348123)

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

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

Vladimir_S

16.06.2010 17:21

Цитата:

Сообщение от shrek=) (Сообщение 348123)

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

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

NDV	16.06.2010 17:23

Код:

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.

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

Часовой пояс GMT +4, время: 23:48.