Составьте программу вычисления корней квадратного уравнения по данным значениям его коэффициентов
5-9 класс
|
Помогите пожалуйста
Заранее спасибо
var a,b,c,d,x,x1,x2:real;
begin
write ('a='); read (a);
write ('b='); read (b);
write ('c='); read (c);
d:=b*b-4*a*c;
if d<0 then writeln ('NO')
else if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln ('x1=',x1:0:2,' x2=',x2:0:2)
end
else
begin
x:=-b/(2*a);
writeln ('x=',x);
end
end.
Другие вопросы из категории
Читайте также
поверхности, суммы ребер прямоугольного параллелепипеда. 3. Составьте программу вычисления диагоналей ромба по стороне и углу.
N) произведения нечетных элементов 2)Составьте программу вычисления в массиве B(N) максимального среди отрицательных элементов и его номера. заранее огромное спасибо! очень нужно!
элементов. 3) Составьте программу вычисления среднего арифметического элементов массива. Пожалуйста.. очень надо!