Question

Написати програму на знаходження коренів квадратного рівняння
d = bb-4a ci
if d = 0 then begin. if d <> 0 then begin
x1 = (-b+ sqrt (d)) / 2* a;
x2 = (-b sqrt (d)) / 2 = a;
*
writeln('x1, x1:4:2, ', x2, x2:4:2) =
end
else begin
x1 = (b/ 2* a); writeln('x = ', x1:4:2)
end
end
else begin
writeln('No real solutions!');

Answer 1

program quadratic_equation;

uses crt;

var

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

begin

 clrscr;

 

 writeln('Введите коэффициенты квадратного уравнения ax^2 + bx + c = 0');

 write('a: ');

 readln(a);

 write('b: ');

 readln(b);

 write('c: ');

 readln(c);

 

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

 

 if a = 0 then

 begin

   writeln('Ошибка: a не может быть равно 0');

 end

 else if d > 0 then

 begin

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

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

   writeln('Уравнение имеет два корня:');

   writeln('x1 = ', x1:4:2);

   writeln('x2 = ', x2:4:2);

 end

 else if d = 0 then

 begin

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

   writeln('Уравнение имеет один корень:');

   writeln('x = ', x1:4:2);

 end

 else

 begin

   writeln('Уравнение не имеет действительных корней');

 end;

 

 readln;

end.