Написать в паскале 111. мышонок джерри улепетывает к своей норке по прямой. успеет ли кот том догнать джерри, если джерри находится как раз на полпути между томом и норкой? 118. даны коэффициенты квадратного уравнения a,b,c. найти действительные корни этого уравнения. 122. можно ли прямоугольный пакет размерами a,b,c положить в чемодан размерами x,y,z? 123.составить программу вычисления значения функций: а)1 при x> = 0; y=0 при x< 0 б)x^2 при x> 0 y=-x при x< =0 в)1 при x> =1 y=0 при -11 y=0 при -1< =x< =1 x+1 при x< -1
141
335
Ответы на вопрос:
118. даны коэффициенты квадратного уравнения a,b,c. найти действительные корни этого уравнения. program kv_ur; var a,b,c,x1,x2,d: real; begin writeln ('для решения квадратного уравнения'); writeln ('введите коэффициент a'); readln (a); writeln ('введите коэффициент b'); readln (b); writeln ('введите коэффициент c'); readln (c); d: =sqr(b)-4*a*c; if d< 0 then writeln ('так как дискрименант ',d,'< 0 уравнение не имеет решений'); begin if d=0 then begin x1: =-b/(2*a); writeln ('так как дискриминант равен 0 уравнение имеет один корень: '); writeln(x1); end; if d> 0 then begin x1: =(-b- sqrt(sqr(b)-4*a*c))/2*a; x2: =(-b+ sqrt(sqr(b)-4*a*c))/2*a; writeln ('так как дискриминант ',d,'> 0 уравнение имеет два корня: '); writeln ('x1=', x1, ' и x2=', x2); end; end; end. 122. можно ли прямоугольный пакет размерами a,b,c положить в чемодан размерами x,y,z? program chemodan; var a,b,c,x,y,z: real; begin writeln ('введите размеры пакета'); writeln ('введите длину a'); readln (a); writeln ('введите ширину b'); readln (b); writeln ('введите высоту c'); readln (c); writeln ('введите размеры чемодана'); writeln ('введите длину х'); readln (x); writeln ('введите ширину y'); readln (y); writeln ('введите высоту z'); readln (z); if (a< =x) and (b< =y) and (c< =z) then writeln ('пакет можно положить') else writeln ('пакет положить нельзя'); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
krevisdons24.10.2021 05:15
-
Kissss111107.05.2020 08:50
-
Sdq217.01.2021 03:20
-
MILKovka21.02.2022 01:06
-
ByGaTiVlAdLeN08.04.2022 02:50
-
шкальник228133703.09.2020 13:34
-
Vlad269107.09.2020 19:29
-
Sashaklapp16.10.2021 18:07
-
polulera200524.06.2022 09:04
-
veronikasimonova107.12.2021 16:02
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.