Вычислить корни квадратного уравнения ax2+bx+c = 0. заданного коэффициентами a, b и с (предполагается, что a ≠ 0 и что дискриминант уравнения неотрицателен). Блок-схему пожалуйста,даю 40 баллов

Вычислить корни квадратного уравнения ax2+bx+c = 0. заданного коэффициентами a, b и с (предполагается, что a ≠ 0 и что дискриминант уравнения неотрицателен). Блок-схему пожалуйста,даю 40 баллов
Гость
Ответ(ы) на вопрос:
Гость
Т.к. по условию уже заданы ограничения по вводимым коэффициентам, то упрощённый вид будет таким: Var a,b,c : Real; Begin   Readln(a,b,c);   Writeln('x1 = ',(-b+sqrt(b*b-4*a*c))/(2*a));   Writeln('x2 = ',(-b-sqrt(b*b-4*a*c))/(2*a)); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы