Задача №911 Квадратное уравнение

Составить программу для решения квадратного уравнения ax2 + bx + c = 0 (a ≠ 0).

Входные данные

В одной строке задано три целых числа - коэффициенты квадратного уравнения соответственно a, b и c. Значения коэффициентов не превышают по модулю 100.

Выходные данные

В одной строке вывести в случае отсутствия корней сообщение “No roots” (без кавычек), в случае, если решение содержит один корень вывести сначала сообщение “One root:” (без кавычек), а далее через пробел сам корень, в случае наличия двух корней вывести сначала сообщение “Two roots:” (без кавычек), а далее через пробел сначала меньший, а потом больший корень. Гарантируется, что в случае наличия решений все корни целочисленные.

Решение

var a, b, c: integer;
    d, x1, x2: real;
begin
    readln(a, b, c);
    d := sqr(b) - 4 * a * c;
    if d < 0 then
        writeln("No roots")
    else if d = 0 then
    begin
        x1 := -b / (2 * a);
        writeln("One root: ", x1)
    end
    else
    begin
        x1 := (-b - sqrt(d)) / (2 * a);
        x2 := (-b + sqrt(d)) / (2 * a);
        if x1 < x2 then
            writeln("Two root: ", x1, " ", x2)
        else
            writeln("Two root: ", x2, " ", x1)
    end;
end.

Смотрите также: