Feedback

VB - Quadratische Gleichung mit der PQ Formel lösen

Veröffentlicht von am 14.11.2006
(1 Bewertungen)
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
Abgelegt unter Mathe, PQ.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!