41

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

rohokm 27 марта 2023

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

категория: информатика

73

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.

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

Знаете другой ответ?
Другие вопросы по информатике

ПОПУЛЯРНОЕ
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...