1) даны 3 числа a, b, c, являющиеся коэффициентами квадратного уравнения. Составить алгоритм и программу для нахождения корней этого квадратного уравнения.

Question

Информатика

Киймат

25 марта, 04:02

1) даны 3 числа a, b, c, являющиеся коэффициентами квадратного уравнения. Составить алгоритм и программу для нахождения корней этого квадратного уравнения.

+4

Ответы (1)

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

Энид · Answer 1

var a, b, c:real;

begin

writeln ('Введите A, B, C') ;

readln (a, b, c) ;

if ((b*b-4*a*c) <0) then begin writeln ('Уравнение не имеет корней') ; halt () ; end;

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

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

end.