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

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

Начинаю изучать по школьному учебнику. Программа для решение неравенства (x+a)/bx<0, где a >=0(любое неотриц. число) и b не равно 0. Первая моя программа серьезнее хеллоуворлда. Быть может ее можно как-то упростить?
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;    
  if a = 0 then
  begin
    writeln('x < 0')
  end;  
  if a > 0 then
    begin
      writeln(-a, ' < x < 0')
    end;  
   writeln('x > 0 или x < 0');
   readln
end.

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

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.

11   голосов, оценка 4.091 из 5


СОХРАНИТЬ ССЫЛКУ