Информатика: )) ax в квадрате +bx+c=0 найти корни, решения составить с паскаля

Алинулька11

26.02.2020 06:32

Информатика

Есть ответ 👍

)) ax в квадрате +bx+c=0 найти корни, решения составить с паскаля

248

469

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

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

destroyer0800

Информатика

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

var

a, b, c, d, x1, x2: real;

begin

writeln('введите коэффициент при х^2');

readln(a); //вводим коэффициент при x^2

writeln('введите коэффициент при x');

readln(b); //вводим коэффициент при х

writeln('введите свободный член');

readln(c); //вводим свободный член

d: = sqr(b) - 4 * a * c;

writeln('дискриминант уравнения равен ', d : 0 : 5); {печатаем дискриминант и округляем его до 5 знаков после запятой}

if d > 0 then

begin

writeln('d > 0 => уравнение имеет два различных действительных корня: ');

x1: = (-b - sqrt(d)) / (2 * a);

x2: = (-b + sqrt(d)) / (2 * a);

writeln('x1 = ', x1 : 0 : 5, ', x2 = ', x2 : 0 : 5); {считаем корни уравнения и печатаем их с округлением до 5 знаков после запятой}

end;

if d = 0 then

begin

writeln('d = 0 => уравнение имеет два одинаковых действительных корня: ');

writeln('x1 = x2 = ', -b / (2 * a) : 0 : 5); {если дискриминант равен 0, печатаем два одинаковых корня с округлением до 5 знаков после запятой}

end;

if d < 0 then writeln('d < 0 => действительных корней уравнение не имеет');

end.

Van4more

Информатика

4,8(46 оценок)

program kvurav; uses crt; var a,b,c: integer; d,x,x1,x2: real; begin

clrscr; writeln('введите коэффициент при х в квадрате (а)'); readln(a); writeln('введите коэффициент при х (b)'); readln(b); writeln('введите число с‘'); readln(c); d: =sqr(b) - 4 * a * c; writeln('дискриминант = ',d: 4: 2); if d> =0 then begin d: =sqrt(d); x1: =(-b+d)/2*a; writeln('x1 = ', x1: 4: 2); if d> 0 then begin x2: =(-b-d)/2*a; writeln('x2 = ', x2: 4: 2); end; end else writeln('дискриминант меньше нуля - корней нет'); readln; end.

princess82

Информатика

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

2 Килобайта=16000бит 8 бит = 1 байт 16 кбайт= 16000

3Мбайт=3е+6 20 кбайт =20000 2,5 байта=20 бит

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

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

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

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

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

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

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

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

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

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