Moin!
Ich kann meinen Vorrednern nur zustimmen und hinzufügen, dass die Zuweisung von
Delphi-Quellcode:
x1:=-p/2+sqrt(sqr(p/2)-q);
x2:=-p/2+sqrt(sqr(p/2)-q);
unsinnig ist, weil danach deckst du mit dem If / Else Konstrukt alle möglichen Fälle ab und weist trotzdem immer wieder X1 und X2 etwas zu. Wenn du aber nun X1 und X2 einen Wert zuweist, dann ist die vorherige Zuweisung (o.g.) unsinnig. Daher die Warnung: zugewiesene Werte werden niemals benutzt.
MfG
Muetze1