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

Question

Информатика

Афиала

19 июля, 12:10

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

+5

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