Составьте программу вычисления корней квадратного уравнения по данным значениям его коэффициентов.
от

1 Ответ

var    a, b, c: real;    D, x1, x2: real; begin    write('Enter the coefficients a, b, and c: ');    readln(a, b, c);    D := b * b - 4 * a * c;    if D < 0 then       writeln('The equation has no real roots')    else if D = 0 then    begin       x1 := -b / (2 * a);       writeln('The equation has one root: x = ', x1);    end    else    begin       x1 := (-b + sqrt(D)) / (2 * a);       x2 := (-b - sqrt(D)) / (2 * a);       writeln('The equation has two roots: x1 = ', x1, ', x2 = ', x2);    end; end.
от