Quadratische Gleichung mit der PQ Formel lösen

Sprache: VB

Hier ist die PQ Formel mit der man quadratische Gleichungen lösen kann.

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

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

Abgelegt unter Mathe PQ

Alte URL: /snippet/quadratische-gleichung-mit-der-pq-formel-loesen/317