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

Question

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

Answer 1

70

stalkerkill

17 апреля 2023

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

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: