Ни откуда не копировать!
Составьте программу решения квадратного уравнения с использованием подпрограммы-функции.
186
404
Ответы на вопрос:
var a,b,c, x1,x2,D: real;
begin
writeln(' а,б,с : ');
readln(a,b,c);
D := b*b - 4*a*c;
if D<0 then writeln('нет ответа') ;
if D=0 then
begin
x1 := -b/2/a;
writeln('х1 : ',x1:0:3);
end;
if D>0 then
begin
x1 := (-b-sqrt(D))/2/a;
x2 := (-b+sqrt(D))/2/a;
writeln('х1 и х2: x1=',x1:0:3,' x2=',x2:0:3);
end;
end.
uses artyom;
begin
setfontsize(14);
textout(120,1,'стоп');
setwindowsize(300,400);
setpencolor(clwhite);
setbrushcolor(clred);
circle(150,150,120);
setpencolor(clwhite);
setbrushcolor(clblue);
circle(150,150,100);
setpencolor(clwhite);
setbrushcolor(clred);
rectangle(70,190,230,100);
setbrushcolor(clwhite);
setfontsize(14);
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Вася снова написал какую-то программу и стёр её, оставив только два результата...
221199cs20.04.2022 21:18 -
на с++ Задан массив {aij} размерности М×М. Требуется найти m =...
Yanalime200623.06.2022 18:46 -
Программирование линейных алгоритмов. Урок 3 Изучи предложенный программный...
SaharaYo07.01.2023 03:41 -
C++ Простейшие циклы написать код....
ржакаmaker28.04.2020 01:11 -
Укажите диапазон, который рассмотрен в примере a[i]:=random (11) + 13...
лорглролрл26.05.2021 09:09 -
Как сделать калькулятор в PascalABC, что бы он складывал, вычитал, умножали...
krisvll20.06.2022 21:07 -
Подумайте, почему робототехника начала стремительно развиваться. Запишите...
Pandivan29.11.2020 03:24 -
1.Что такое видеозапись?...
Temir33817.12.2022 10:20 -
ЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ с...
krasota3327.05.2023 06:13 -
Напишите какие воздушные массы в европейской части россии?...
Vlad2005Mr25.05.2023 12:46
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.