Составить программу для нахождения корней квадратного уравнения ах2+вх+с

Для начала мы должны выделить коэффициенты при переменных х и записать их в переменные.

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

Во втором случае следующим шагом будет нахождение D:

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

Для того, чтобы найти каждый из корней, мы должны использовать такие условия:

1) Если D > 0, корня два.

if (D > 0) then

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

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

2) Если D < 0, корней нет.

writeln ('Корней нет');

3) Если D = 0, корень единственный.

x : = ( - b + sqrt (D)) / 2 * a;