Предмет: Информатика,
автор: Сохранить
Вычислить корни квадратного уравнения ax2+bx+c = 0. заданного коэффициентами a, b и с (предполагается, что a ≠ 0 и что дискриминант уравнения неотрицателен).
Блок-схему пожалуйста,даю 40 баллов
Ответы
Автор ответа:
0
Т.к. по условию уже заданы ограничения по вводимым коэффициентам, то упрощённый вид будет таким:
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.
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.
Приложения:

Автор ответа:
0
картинка с блок-схемой не приложилась...
Похожие вопросы
Предмет: Математика,
автор: x2pvqt8qhc
Предмет: Английский язык,
автор: plushova2006
Предмет: Геометрия,
автор: kostenkov25934
Предмет: Математика,
автор: 09876543211234567895
Предмет: Математика,
автор: Про100ЯнаМ