Информатика, опубликовано 2018-08-22 20:06:14 by Гость
Напишите программу, решающую любое квадратное уравнение. Паскал
Ответ оставил Гость
Program kv_ur;
var a, b, c, d, x1,x2, x:real;
begin
read(a, b, c);
d:= sqr(b) - 4*a*c;
if dif d = 0 then
begin
x:= -b/(2*a); write(один корень: ,x:5:2)
end;
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
write(два корня: , x1=,x1:5:2,x2=,x2:5:2)
end
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на