Ellipsenalgo aus Formelsammlung kreieren

[Delphi.Narium]

Wenn zu Beginn diese Bedingung while angle < endangle do erfüllt ist, müsstest Du in eine Endlosschleife laufen, da angle in der Schleife nicht verändert wird und von daher die Abbruchbedingung der Schleife nie erfüllt sein wird.

Eine Zuweisung auf x erfolgt nur vor der Schleife: x := xm; . Danach wird x nicht mehr verändert, von daher muss x immer gleich bleiben.

Gibt der Kompiler irgendwelche Warnungen aus, z. B. dass der auf eine Variabel zugewiesene Wert nie benutzt wird? Das sollte (mindestens) bei angel, a, b und py eigentlich der Fall sein.

Bist Du sicher, dass die Formelauflösung nach y korrekt ist?

y = ±b * sqrt(1 - sqr(x) / sqr(a))