Задание:
Написать програму решения уравнения ах^3+ вх=0 для произвольных а, в
Решение:
(Pascal.) program … ; var a,b,x1,x2,x3: real; beginwriteln ('Введите коэффициент a'); readln (a); writeln ('Введите коэффициен b'); readln (b); x1: =0; if (b>0) and (a>0) then writeln ('Корни ур-я равны ',x1) elsex2: =sqrt (-b/a); x3: =-sqrt (-b/a); writeln ('Корни ур-я равны ',x1,x2,x3); end.
Знаете другой ответ?