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

Question

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

Answer 1

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.

Answer 2

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.