Hy Community,
ich habe folgendes Problem: Ich möchte Nullstellen von Quadratischen Funktionen berechnen. Ich versuche, das mit der PQ-Formel zu lösen, was manchmal klappt, manchmal aber auch nicht, was mich wundert!
Hier der Code:
Delphi-Quellcode:
procedure Nullstellen(a, b, c: Double);
begin
//Variablen durch a teilen, damit PQ-Formel anwendbar
a := a / a;
b := b / a;
c := c / a;
//Prüfen, ob Diskriminante > 0
if (sqr(b/2)) >= c then
begin
//Nullstellen ausrechnen
Null1 := (-b/2) + Sqrt((sqr(b/2)-c));
Null2 := (-b/2) - Sqrt((sqr(b/2)-c))
end;
Also die Formel müsste eigentlich stimmen, genauso wie die Klammersetzung, ich habe keinen Fehler feststellen können.