Quadratische Gleichung- Delphi

[gammatester]

Der Vorschlag von Bummi

Delphi-Quellcode:

Radiobutton2.Checked:=(D>0);
Radiobutton1.checked:=(D=0);
Radiobutton3.checked:=(D<0);

hat außerdem den Vorteil, daß der Check-Status der Buttons bei Neueingabe richtig gesetzt wird. Bei Deinem Originalcode müßte man eigentlich vorher alle löschen, denn sie werden dort ja höchstens auf true gesetzt.

Noch ein Hinweis: Deine D-Berechnung ist falsch, richtig wäre

Delphi-Quellcode:

D:= ((p*p)/4) -q ; //bzw
D := sqr(p/2) - q;