Quadratische Gleichung lösen

[Alexander Roth]

Delphi-Quellcode:

{-----------------------------------------------------------------------------
  Description:
  Procedure:    Button1Click
  Arguments:    Sender: TObject
  Result:       None
  Detailed description:
-----------------------------------------------------------------------------}
procedure TForm1.Button1Click(Sender: TObject);
var a, b, c, Diskriminante, Ls1, Ls2: Real;
LoesungText1, LoesungText2: String;
begin
    //Eingabe; Umwandlung in Reele Zahlen
    a := StrToFloat(Edit1.Text);
    b := StrToFloat(Edit2.Text);
    c := StrToFloat(Edit3.Text);

  //Überprüfen ob es eine Quadratische Gleichung ist
  if a = 0 then
    Label6.Caption := 'Keine Quadratische Gleichung!'
  else    //wenn es eine quadr. Gleichung ist, Gleichung lösen
    begin
    Diskriminante := b*b - 4*a*c;

    //Überprüfen ob es eine Lösung gibt
    if Diskriminante < 0 then
      Label6.Caption := 'Keine Lösung möglich!'
    else
      begin
      //Überprüfen ob es eine oder zwei Lösungen gibt
      if Diskriminante = 0 then    //Einzigste Lösung berechnen
        begin
        Label6.Caption := 'Es gibt nur eine Lösung!';
        Ls1 := - b / (2*a);
        LoesungText1 := FloatToStr(Ls1);
        end
      else //Zwei Lösungen berechnen
        begin
        Label6.Caption := '2 Lösungen!';
        Ls1 := (- b + sqrt(Diskriminante)) / (2*a);
        Ls2 := (- b - sqrt(Diskriminante)) / (2*a);
        LoesungText1 := FloatToStr(Ls1);
        LoesungText2 := FloatToStr(Ls2);
        end;
      end;
    end;

  self.EditL1.Text:=LoesungText1;
  self.EditL2.Text:=LoesungText2;
end;

Klappt grob.

Muss jetzt essen.

Tschüss

Alexander