Условный оператор. Листинг. «Нахождение корней квадратного уравнения».

Задание:

Дано квадратное уравнение: ax² + bx + c = 0. Найти его корни или сообщить, что их нет. 

Вводные данные: коэффициенты a, b, c.

Результирующие данные:x (если корень единственный); x1, x2 (если два корня); “Корней в данном уравнении нет”.

Листинг:

program Quadratic_equation;

var

a, b, c, D, x1, x2 : real;

begin

writeln('ax^2 + bx + c = 0, a <> 0');

writeln('Укажите коэффициенты a, b и c');

write('a = '); readln(a);

write('b = '); readln(b);

write('c = '); readln(c);

D := sqr(b) - 4 * a * c;

if D < 0 then

begin

   writeln('Корней в данном уравнении нет')

end

else

begin

    if D = 0 then

     begin

        writeln('x = ', - b / (2 * a))

     end

    else

    begin

         x1 := (- b + sqrt(D)) / (2 * a);

         x2 := (- b - sqrt(D)) / (2 * a);

         writeln('x1 = ', x1);

         writeln('x2 = ', x2);

    end;

end;

end.

Тестирование программы:

© helpiks.su При использовании или копировании материалов прямая ссылка на сайт обязательна.