Написать программу: Найти корни квадратного уравнения при любых коэффициентах.
234
332
Ответы на вопрос:
program zadacha_3;
{Решение уравнения a*x*x+b*x+c=0}
uses crt;
var a,b,c,d,x1,x2:real;
begin
clrscr;
writeln ('Введите коэффициенты');
write ('a=');readln (a);
write ('b=');readln (b);
write ('c=');readln (c);
if (a=0) and (b=0) and (c=0) then
writeln('Корней бесконечно много')
else
if (a=0) and (b=0) and (c<>0) then
writeln ('Корней нет')
else
if (a=0) and (b<>0) then
begin
writeln ('Линейное уравнение');
x1:=-c/b;
writeln('x=',x1:4:2);
end
else
{Решение квадратного уравнения}
begin
d:=sqr(b)-4*a*c;
if d<0 then
writeln ('Действительных корней нет!')
else
if d=0 then
begin
x1:=-b/(2*a);
writeln('x=',x1:4:2);
end
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln ('x1=',x1:4:2, ' x2=',x2:4:2);
end
end;
readln
end.
{Решение уравнения a*x*x+b*x+c=0}
uses crt;
var a,b,c,d,x1,x2:real;
begin
clrscr;
writeln ('Введите коэффициенты');
write ('a=');readln (a);
write ('b=');readln (b);
write ('c=');readln (c);
if (a=0) and (b=0) and (c=0) then
writeln('Корней бесконечно много')
else
if (a=0) and (b=0) and (c<>0) then
writeln ('Корней нет')
else
if (a=0) and (b<>0) then
begin
writeln ('Линейное уравнение');
x1:=-c/b;
writeln('x=',x1:4:2);
end
else
{Решение квадратного уравнения}
begin
d:=sqr(b)-4*a*c;
if d<0 then
writeln ('Действительных корней нет!')
else
if d=0 then
begin
x1:=-b/(2*a);
writeln('x=',x1:4:2);
end
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln ('x1=',x1:4:2, ' x2=',x2:4:2);
end
end;
readln
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
Какой регион исследовал ж.таймагабетов и а.е.астафьев? скажите...
СофияВладимировна21.04.2020 08:59 -
Ответить на вопрос : может ли человек или частная компания печатать...
Loliss11.01.2021 21:37 -
Мотиви що споріднюють ведійські гімни з давньогрецькими та слов...
Eva576822.12.2020 02:59 -
3предложений про дагестан15...
kseniamurzakova27.10.2021 15:04 -
Жұрнақ қандай қызмет атқарады...
irichkagolikova13.08.2022 22:05 -
Казыр жасап берындершы...
kucharin23.01.2023 07:24 -
Казахстан граничит с государствами... а) Россия, Кыргызстан,...
никита4272819.05.2021 09:17 -
Техника выполнения части геометрической резьбы коротко...
vani200612.06.2021 05:53 -
Кубановед научные труды кубани перечислить...
VictoriaOrlova3245510.01.2023 16:11 -
Wypisz cztery związki frazeologiczne ze słowami język lub mowa...
Wulfmax14.01.2021 06:01
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.