Hallo wuschi,
wurzel := sqrt(p*p/4-q);
Hier (oder danach) tritt der Fehler auf, oder?
Wenn die Formel keine Lösung besitzt, ist
p*p/4-q negativ. Wie groß ist die Wurzel aus -1
Du musst also den Fall abfangen, das
p*p/4-q < 0 ist und in diesem Fall die weitere Verarbeitung abbrechen und "keine Lösungen" ausgeben.
MfG,
Bug