Условный оператор тут используют в старых версиях Паскаля, в которых не было реакции на ошибку деления на ноль. В современных версиях, например, PascalABC.NET не нужно делать никаких проверок.
Во вложениях 1 и 2 показано, что происходит при вводе значения х=15 в версии Free Pascal. В третьем вложении показана работа в PascalABC.NET 3.3
Квадратное алгебраическое уравнение имеет вид:ах^2 + bx + c = 0. (1)Здесь а, b и с – коэффициенты. Сначала надо вычислить дискриминант квадратного уравненияD = (b^2 – 4ac) (2)Если D > 0, то квадратное уравнение имеет два корня х1 и х2. Обозначим С = корень(D). То есть надо вычислить квадратный корень из D. Имеем такие решениях1 = (–b + C)/(2a) и x2 = (–b – C)/(2a). (3)Если дискриминант D = 0, то C = 0 и оба корня одинаковы Х1 = Х2 (хотя в школе обычно говорят, что имеется только одно решение) и вычисляются по формулеХ1 = Х2 = –b/(2a). (4). Эта формула следует из формулы (3) при С = D = 0.Если дискриминант D меньше нуля, то корень из D вычислить нельзя, С будет мнимым числом. Вообще говоря, корни есть (2 штуки), но они будут мнимыми числами. Хотя в школе учат, что в этом случае корней НЕТ. Так и будем считать, что корней нет.Алгоритм решения будет следующийНо только здесь дискриминант D обозначен малой буквой d
Во вложениях 1 и 2 показано, что происходит при вводе значения х=15 в версии Free Pascal.
В третьем вложении показана работа в PascalABC.NET 3.3