Написать програму решения уравнения ах ^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.

var

a, b, x2, x3 : real;

begin

writeln ('Введите коэффициент a') ;

readln (a) ;

writeln ('Введите коэффициен b') ;

readln (b) ;

if b = 0 then

begin

if a = 0 then writeln ('X - любое число')

else writeln ('Корни ур-я равны: 0')

end

else

if (a = 0) or (- b / a < = 0) then writeln ('Корни ур-я равны: 0')

else

begin

x2 : = sqrt (-b / a) ;

x3 : = - sqrt (-b / a) ;

writeln ('Корни ур-я равны 0, ', x2,' ', x3) ;

end;

readln;

end.