Помогите пожалуйста составить на Паскале программу полного решения…

Question

Помогите пожалуйста составить на Паскале программу полного решения БИКВАДРАТНОГО уравнения. Заранееспасибо.

Answer 1

73

vadimus

06 февраля 2023

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.

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

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

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

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

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