Решение неравенства. Как улучшить/упростить программу? - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Начинаю изучать по школьному учебнику. Программа для решение неравенства (x+a)/bx<0, где a >=0(любое неотриц. число) и b не равно 0. Первая моя программа серьезнее хеллоуворлда. Быть может ее можно как-то упростить?

Решение задачи: «Решение неравенства. Как улучшить/упростить программу?»

textual
Листинг программы
program abc;
var a,b: real;
begin
  readln(a,b);
  if b = 0 then //ОДЗ: b не равно 0
      begin
        writeln ('нет решений');
        exit
      end;
  if a < 0 then
    begin 
      writeln('нет решений');
      exit
    end
  else
    if a = 0 then
      writeln('x < 0')  
    else
      writeln(-a, ' < x < 0');     
  writeln('x > 0 или x < 0');
  readln
end.

Объяснение кода листинга программы

  1. Вводимые значения переменных a и b считываются из стандартного ввода.
  2. Если b равно 0, то выводится сообщение нет решений и программа завершается.
  3. Если a меньше 0, то выводится сообщение нет решений и программа завершается.
  4. Если a равно 0, то выводится сообщение x < 0.
  5. Если a не равно 0, то выводится сообщение -a < x < 0.
  6. Выводится сообщение x > 0 или x < 0.
  7. Программа ожидает ввода с клавиатуры для завершения работы.

Оцени полезность:

11   голосов , оценка 4.091 из 5
Похожие ответы