Составьте программу решения квадратного уравнения ax (Во второй степени) + bx + c = 0. Коэффициенты a, b, c введите с клавиатуры. Выведите на экран значение корней x1, x2, если уравнение имеет два корня, значение x, если уравнение имеет один корень, или сообщение "Нет корней", если уравнение не имеет корней.

Составьте программу на уровне 8 класса.

Question

Информатика

Таюня

9 мая, 09:47

Составьте программу решения квадратного уравнения ax (Во второй степени) + bx + c = 0. Коэффициенты a, b, c введите с клавиатуры. Выведите на экран значение корней x1, x2, если уравнение имеет два корня, значение x, если уравнение имеет один корень, или сообщение "Нет корней", если уравнение не имеет корней.

Составьте программу на уровне 8 класса.

+4

Ответы (1)

Знаете ответ на вопрос?

Элюня · Answer 1

var

a, b, c: real;

begin

readln (a, b, c) ;

if (sqr (b) - 4 * a * c < 0) then

writeln ('Нет решений')

else

if (sqr (b) - 4 * a * c = 0) then

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

else

begin

writeln ('x1 = ', (-1 * b + sqrt (sqr (b) - 4 * a * c)) / (2 * a)) ;

writeln ('x2 = ', (-1 * b - sqrt (sqr (b) - 4 * a * c)) / (2 * a)) ;

end;

end.