Разработайте алгоритм для вычисления квадратного уравнения ах(в квадрате)+бх+с=0

188

398

Посмотреть ответы 2

Ответы на вопрос:

Lalker1337

Информатика

4,8(14 оценок)

Var a,b,c,d,x1,x2: real; begin writeln('введите коэффициенты уравнения через пробел'); read( a,b,c); d: =sqr(b)-4*a*c; if d< 0 then writeln( 'нет корней'); if d> 0 then begin x1: =(-b-sqrt(d))/(2*a); x2: =(-b+sqrt(d))/(2*a); writeln(x1: 6: 2, x2: 6: 2); end else begin x1: =-b/(2*a); writeln(x1: 6: 2); end; readln; end;