Quadratische Gleichung mit der PQ Formel lösen

1
2
3
4

Public Sub PQ(ByVal P As Double, ByVal Q As Double, ByRef Positive As Double, ByRef Negative As Double)
    Positive = -(P / 2) + Math.Sqrt(P * P / 4 - Q)
    Negative = -(P / 2) - Math.Sqrt(P * P / 4 - Q)
End Sub