Есть ответ 👍

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

285
410
Посмотреть ответы 2

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

olgap51olga
4,4(74 оценок)

// pascalabc.net 3.3, сборка 1547 от 07.10.2017 // внимание! если программа не работает, обновите версию! procedure корниквадратногоуравнения(a,b,c: real; var корни: (real,real);       var числокорней: integer); begin   if a=0 then числокорней: =0   else begin       var d: =b*b-4*a*c;       if d> 0 then begin           var p1: =-b/2/a; var p2: =sqrt(d)/2/a;           корни: =(p1-p2,p1+p2);           числокорней: =2           end       else           if d=0 then begin               var p1: =-b/2*a;               корни: =(p1,p1);               числокорней: =1               end           else числокорней: =0       end end; begin   var (a,b,c): =readreal3('коэффициенты биквадратного уравнения a,b,c: ');   var корни: =(0.0,0.0);   var числокорней: =0;   корниквадратногоуравнения(a,b,c,корни,числокорней);   if числокорней=0 then writeln('нет корней')   else begin       var номеркорня: =1;       var r: =корни[0];       if r> 0 then begin           writeln('x1=',-sqrt(r),', x2=',sqrt(r));           номеркорня: =3           end       else           if r=0 then begin               writeln('x1=0');               номеркорня: =2               end;       r: =корни[1];       if r> 0 then           writeln('x',номеркорня,'=',-sqrt(r),', x',номеркорня+1,'=',sqrt(r))       else           if r=0 then writeln('x',номеркорня,'=0');       end end. примеры коэффициенты биквадратного уравнения a,b,c: 1.25 -5 -13.7 x1=-2.42235751307744, x2=2.42235751307744 коэффициенты биквадратного уравнения a,b,c: 4 -5 1 x1=-0.5, x2=0.5 x3=-1, x4=1
iliasnurdos
4,8(21 оценок)

Текст поместится на диск, так как 19.53 < 20

Объяснение:

1 символ = 1 байт

20000 символов = 20000 байт

20000 байт = 19.53 Кб

Реши свою проблему, спроси otvet5GPT

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

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

Caktus Image

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

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

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

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

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

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

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

GTP TOP NEWS