Решение неравенства. Как улучшить/упростить программу? - 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.
Объяснение кода листинга программы
- Вводимые значения переменных a и b считываются из стандартного ввода.
- Если b равно 0, то выводится сообщение
нет решений
и программа завершается. - Если a меньше 0, то выводится сообщение
нет решений
и программа завершается. - Если a равно 0, то выводится сообщение
x < 0
. - Если a не равно 0, то выводится сообщение
-a < x < 0
. - Выводится сообщение
x > 0 или x < 0
. - Программа ожидает ввода с клавиатуры для завершения работы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д