Задание:
Помогите пожалуйста составить на Паскале программу полного решения БИКВАДРАТНОГО уравнения. Заранееспасибо.
Решение:
Program kvad; var a,b,c: real; x1,x2, d: real; beginwriteln ('Введите 3 аргумента'); write ('a='); readln (a); write ('b='); readln (b); write ('c='); readln (c); d: =sqr (b) — 4*a*c; if (d > 0) then begin writeln ('x1=', -b+sqrt (d) / 2*a); writeln ('x2=', -b — sqrt (d) / 2*a); endelse if (d=0) then writeln ('x=', — b / 2*a) else writeln ('Решений не существует! '); end.
Знаете другой ответ?