Составить программу вычисления корней квадратного уравнения Ax^2 + Bx + C = 0

Question

Составить программу вычисления корней квадратного уравнения Ax^2 + Bx + C = 0

Answer 1

begin

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

if d >= 0 then begin

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

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