Даны действительные числа a,b,c (a> 0).полностью исследовать биквадратное уравнение a*x^4+b*x^2+c=0. паскаль!
251
391
Ответы на вопрос:
Var a, b, c, d, x1, x2, x3, x4, y1, y2: double; begin write('введите через пробел коэффициенты a,b,c: '); readln(a, b, c); if b = 0 then begin if c > 0 then writeln('нет действительных корней') else if c = 0 then writeln('единственный корень x=0') else begin y1 : = -c / a; if y1 > 0 then begin y1 : = sqrt(y1); x1 : = -sqrt(y1); x2 : = -x1; writeln('два действительных корня: ', x1, ', ', x2) end else writeln('нет действительных корней') end end else if c = 0 then if b > 0 then writeln('единственный корень x=0') else begin y1 : = -b / a; if y1 > 0 then begin x1 : = sqrt(-b / a); x2 : = -x1; writeln('три действительных корня: 0, ', x1, ', ', x2) end else writeln('единственный корень x=0') end else begin d : = sqr(b) - 4 * a * c; if d < 0 then writeln('нет действительных корней') else if d = 0 then begin y1 : = -b / (2 * a); if y1 < 0 then writeln('нет действительных корней') else begin x1 : = sqrt(y1); x2 : = -x1; writeln('два действительных корня: ', x1, ', ', x2) end end else begin d : = sqrt(d); y1 : = (-b - d) / (2 * a); y2 : = (-b + d) / (2 * a); if y1 < 0 then if y2 < 0 then writeln('нет действительных корней') else begin x1 : = -sqrt(y2); x2 : = -x1; writeln('два действительных корня: ', x1, ', ', x2) end else if y2 < 0 then begin x1 : = -sqrt(y1); x2 : = -x1; writeln('два действительных корня: ', x1, ', ', x2) end else begin x1 : = -sqrt(y1); x2 : = -x1; x3 : = -sqrt(y2); x4 : = -x3; if x1 = x2 then writeln('три действительных корня: ', x1, ', ', x3, ', ', x4) else if x3 = x4 then writeln('три действительных корня: ', x1, ', ', x2, ', ', x3) else writeln('четыре действительных корня: ', x1, ', ', x2, ', ', x3, ', ', x4) end end end end. тестовое решение: введите через пробел коэффициенты a,b,c: 1 -25 144 четыре действительных корня: -3, 3, -4, 4 введите через пробел коэффициенты a,b,c: -1 -4 5 два действительных корня: -1, 1
Begin for var v : = 100 to 150 do begin //возраст от 100 до 150 лет var q : = sqr(strtoint(inttostr(v)[1])) //суммируем квадраты каждой цифры + sqr(strtoint(inttostr(v)[2])) //из возможного возраста + sqr(strtoint(inttostr(v)[3])); //и записываем его в q for var d : = 1 to 31 do begin //берем день месяца от 1 до 31 if (q + d) = v then begin //если q + день = возрасту println('день: ', d, ' возраст: ', v); //выводим сообщение end; end; end; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
FLINTUSHKA200703.10.2022 12:20
-
katyaloginova2p01fy118.10.2021 15:58
-
kamilhabirov25.11.2021 13:13
-
natnet104.09.2022 00:52
-
vfvf230407.02.2020 13:24
-
Ромб11107.06.2020 22:50
-
zentex03.05.2021 11:59
-
актан9ша29.11.2022 16:26
-
ммаа208.08.2020 19:20
-
nkarakulina10.11.2020 22:32
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.