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

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

Question

Информатика

Леонтьюшка

20 октября, 19:46

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

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

+3

Ответы (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.