Program cd6059e5; var a, b, c, d, x, xx, f: real;
begin
Write('а:');
read(a);
write('b:') ;
read(b);
write('c:') ;
read(c);
d:=bb-4ac;
f:=Sqrt(d);
writeln('D=', d);
writeln('√D=', f);
if d > 0 then
begin
x:=-b-f/2a;
xx:=-b+f/2a;
writeln('x1=', x);
writeln('x2=', xx);
end;
if d=0 then
begin
x:=-b/2a;
end;
if d < 0 then
begin
Writeln('Корней нет');
end;
end.
написал программу на паскале где должно решатся квадратное уровнения но когда дискриминант ниже нуля то происходит ошибка (в паскаль N-IDE)

239

481

Посмотреть ответы 2

Ответы на вопрос:

stanislove777

Информатика

4,6(27 оценок)

Программа:

Pascal:

program cd6059e5;

var a, b, c, d, x, xx, f: real;

begin

write('а = '); read(a);

write('b = '); read(b);

write('c = '); read(c);

d := b*b - 4*a*c;

f := sqrt(d);

writeln('D = ', d);

if d > 0 then begin

writeln('√D = ', f);

x := (-b-f)/(2*a);

xx := (-b+f)/(2*a);

writeln('x1 = ', x);

writeln('x2 = ', xx);

end;

if d = 0 then x := -b/(2*a);

if d < 0 then writeln('Корней нет.');

end.

Исправил вашу программу. Корни неверно вычислялись, пару других моментов поправил.

дрин2

Информатика

4,5(49 оценок)

Взаимодействие с играми на новом, впечатляющем уровне. Такого еще не было никогда. Сидя дома, можно путешествовать по древнему Египту либо же воевать в космосе за новую планету. Так как происходящее в устройстве кажется настоящим, то и эмоции от этого неподдельные.

Хороший досуг. После тяжелого учебного или рабочего дня можно погрузиться в фантастический мир, забыв обо всех проблемах, не выходя из дома.

Развитие нестандартного мышления. Порою в играх приходится моментально реагировать, иначе никак. Без этой в них нельзя «выжить», так что геймерам нужно адаптироваться.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.