Информатика, опубликовано 2018-08-22 22:50:08 by Гость
Разработайте алгоритм для вычисления квадратного уравнения ах(в квадрате)+бх+с=0
Ответ оставил Гость
Var a,b,c,d,x1,x2:real;
begin
writeln(Введите коэффициенты уравнения через пробел);
read( a,b,c);
d:=sqr(b)-4*a*c;
if dthen 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;
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на