Решить квадратное уравнение (a ≠ 0) ax2 + bx + c = 0. если d< 0, то вывести сообщение "корней нет".
122
251
Ответы на вопрос:
program name;
var
begin
вводишь a,b,c
потом отдельно х
if (a*x*x+b*x+c=0) and (a< > 0) then
begin
d; =sqr(b)-4a*c;
end;
if d< 0 then begin
writeln('kornyey net');
pascal
program korni;
uses crt;
var a, b, c, x1, x2,d: real;
begin
write('vvedite koeffecienti uravnenia');
readln(a,b,c);
d: =sqr(b)-4*a*c;
if d> 0 then
begin
x1: =)+sqrt(d))/(2*a);
x2: =)-sqrt(d))/(2*a);
write('x1 = ',x1,'x2 = ',x2);
end;
if d< 0 then write('kornei net')
else
begin
x1: =)/(2*a);
write('x = ',x1);
end;
readln;
end.
Внимание! если программа не работает, обновите версию pascal ! begin var mas: =arrrandom(15,0,10); mas.println; mas.select((v,i)-> v =0 ? i*i: v).println; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
mashacolobowa218.12.2020 20:30
-
Pyli0303200409.04.2022 01:39
-
ралина3508.01.2021 18:02
-
mixakov0512.07.2022 10:48
-
Лизагоу03.04.2021 00:35
-
myhaylonotochk12.05.2020 12:14
-
misarevakin621.06.2020 18:26
-
nector26.05.2023 06:52
-
lelyaklochkova20.01.2022 03:21
-
Кate125722.09.2021 13:08
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.