Quadratische Gleichung- Delphi

[galoru]

Hey Leute bin neu im Forum und brauche Hilfe. Ich habe erst vor kurzem mit Delphi 7 angefangen zu programmieren(Schule) und stecke jetzt irgendwie fest. Meine Aufgabe ist es, ein Programm zu schreiben , welches die Diskriminante der Qudratischen Gleichung 0=x² +px +q berechnet. Soweit so gut, sobald D>0 = 2 Nullstellen, D=0 = 1 Nullstelle und wenn D<0 = keine Nullstelle. Ich muss nun dem Programm sagen, wenn D>0 dann muss es den RadioButton aktivieren,da wo 2 Nullstellen draufsteht. Wenn ein RB aktiviert hat und ich eine negative D kriege ,wird der andere RB mocht aktiviert, der erste bleibt so zu sagen "stecken". Wo ist jetzt der Fehler, bzw. wo sind
die Fehler ?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var p,q,D : Single;
begin
If (Edit1.Text='') and (Edit2.Text='')
then Showmessage ('Bitte Werte eingeben!')
else begin

p:= strtofloat(Edit1.Text);
q:= strtofloat(Edit2.Text);

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

Label4.caption:=floattostr(D);
If (D>0)then begin Radiobutton2.Checked:=true ;
If (D=0) then begin Radiobutton1.checked:=true;
If (D<0) then begin Radiobutton3.checked:=true;

 end;
 end;
 end;
 end;
 end;
end.

http://www.imagebanana.com/view/awkwryzz/Unbenannt.JPG

[Bummi]

Delphi-Quellcode:

  { so: 
    Label1.caption:=floattostr(D);
    If (D>0)then  Radiobutton2.Checked:=true
    else If (D=0) then  Radiobutton1.checked:=true
    else If (D<0) then  Radiobutton3.checked:=true;
   }
// oder gleich so
Radiobutton2.Checked:=(D>0);
Radiobutton1.checked:=(D=0);
Radiobutton3.checked:=(D<0);

[galoru]

Ahh danke, klappt ^^
Noch eine Frage, wieso muss ich else anstatt if nehmen?

[Bummi]

musst Du nicht, Du kannst auch einfach die begin nach then weglassen oder die end's passend setzen.

[galoru]

Alles klar, Danke Ihnen.

[Bummi]

Wir Duzen uns hier eigentlich alle ....

[Uwe Raabe]

Zitat:

Zitat von Bummi (Beitrag 1136710)

Wir Duzen uns hier eigentlich alle ....

Und da behaupte noch einer, die Jugend hätte keinen Respekt 8-)

[Luckie]

Zitat:

Zitat von Uwe Raabe (Beitrag 1136713)

Zitat:

Zitat von Bummi (Beitrag 1136710)

Wir Duzen uns hier eigentlich alle ....

Und da behaupte noch einer, die Jugend hätte keinen Respekt 8-)

Wer weiß. Vielleicht ist es ja ein 70 jähriger Rentner, der seinen Realschlulabschluss nach macht. ;)

[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;

[Bummi]

@gammatester
er hat doch Radiobuttons verwendet, keine Checkboxen....