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

ilja2099

01.07.2022 18:40

Информатика

Есть ответ 👍

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

288

290

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

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

gan1298

Информатика

4,4(91 оценок)

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.

Сива11

Информатика

4,7(12 оценок)

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.