Проанализируйте задачу решения биквадратного уравнения, составьте и напишите программу на Паскале.
258
317
Ответы на вопрос:
Программа для нахождения корней биквадратного уравнения, представляет собой алгоритмическую структуру ветвление.
program bikv;
uses crt;
var a,b,c,d,x1,x2,x3,x4,t1,t2: real;
begin
writeln('Программа для решения биквадратного уравнения вида ax^4+bx^2+c');
write('введите a= ');
read(a);
write('введите b= ');
read(b);
write('введите c= ');
read(c);
d:=b*b-4*a*c;
if d<0 then writeln('Уравнение не имеет действительных корней')
else
begin
t1:=(-b+sqrt(d))/(2*a);
t2:=(-b-sqrt(d))/(2*a);
end;
if (t1<0) then writeln('x1 и x2 не действительные корни')
else
begin
if t1>0 then x1:=sqrt(t1);
x2:=-x1;
write('x1=',x1,';','x2=',x2,';');
end;
if (t2<0) then writeln('x3 и x4 не действительные корни')
else
begin
if t2>0 then x3:=sqrt(t2);
x4:=-x3;
write('x3=',x3,';','x4=',x4,'.');
end;
end.
program bikv;
uses crt;
var a,b,c,d,x1,x2,x3,x4,t1,t2: real;
begin
writeln('Программа для решения биквадратного уравнения вида ax^4+bx^2+c');
write('введите a= ');
read(a);
write('введите b= ');
read(b);
write('введите c= ');
read(c);
d:=b*b-4*a*c;
if d<0 then writeln('Уравнение не имеет действительных корней')
else
begin
t1:=(-b+sqrt(d))/(2*a);
t2:=(-b-sqrt(d))/(2*a);
end;
if (t1<0) then writeln('x1 и x2 не действительные корни')
else
begin
if t1>0 then x1:=sqrt(t1);
x2:=-x1;
write('x1=',x1,';','x2=',x2,';');
end;
if (t2<0) then writeln('x3 и x4 не действительные корни')
else
begin
if t2>0 then x3:=sqrt(t2);
x4:=-x3;
write('x3=',x3,';','x4=',x4,'.');
end;
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
Стася91106.10.2021 20:47
-
lilichka010911.11.2020 23:41
-
Ученик22160306.09.2022 07:05
-
Yalikhan19.06.2020 07:45
-
AnonimusuminonA03.12.2021 20:31
-
ivanovanaira03.08.2021 22:32
-
sennik4107.07.2020 05:53
-
milaxa124522.11.2020 00:10
-
123456Вопрос65432107.05.2021 07:06
-
KristheMalen11.06.2021 10:49
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.