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

227

381

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

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

Omg55russ

Информатика

4,7(70 оценок)

Var a, b, c, d, x1, x2: real; begin write('введите через пробел значения a,b,c: '); readln(a, b, c); d : = sqr(b) - 4 * a * c; if d < 0 then writeln('нет действительных корней') else if d = 0 then writeln('один корень ', -b / (2 * a)) else begin d : = sqrt(d); x1 : = (-b - d) / (2 * a); x2 : = (-b + d) / (2 * a); writeln('x1=', x1, ', x2=', x2) end end. тестовое решение: введите через пробел значения a,b,c: 4 3.2 -2 x1=-1.2124038404636, x2=0.412403840463596