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

2

Ответы и объяснения

2013-02-07T20:42:24+00:00

(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.

2013-02-08T05:38:24+00:00

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.