Есть ответ 👍

Даны действительные числа a,b,c (a> 0).полностью исследовать биквадратное уравнение a*x^4+b*x^2+c=0. паскаль!

251
391
Посмотреть ответы 2

Ответы на вопрос:


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
BOG5555
4,4(12 оценок)

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

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS