Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Написать програму решения уравнения ах^3 + вх = 0 для произвольных а, в

Ответ оставил Гость

(Pascal.)

program ...;
var a,b,x1,x2,x3:real;
begin
writeln(Введите коэффициент a);
readln(a);
writeln(Введите коэффициен b);
readln(b);

x1:=0;

if (b>0) and (a>0) then writeln(Корни ур-я равны ,x1) 
else
x2:=sqrt(-b/a);
x3:=-sqrt(-b/a);
writeln(Корни ур-я равны ,x1,x2,x3);

end.