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 von Bummi:

Wir Duzen uns hier eigentlich alle ....

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

[Luckie]

Zitat von Uwe Raabe:

Zitat von Bummi:

Wir Duzen uns hier eigentlich alle ....

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

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....