delphi probleme....pq

[DeddyH]

Delphi-Quellcode:

procedure TForm1.startClick(Sender: TObject);
var p,q,x1,x2,wurzel,z  : extended ;
  begin
    //p und q sind nicht initialisiert, reiner Zufall, was hier rauskommt
    if
      sqrt(p*p/4-q) < 0
      then
        keine.Visible := True
      else
      begin
        if
          sqrt(p*p/4-q) = 0
          then
          begin
            wurzel := sqrt(p*p/4-q); //Berechnung von Wurzel wird nicht verwendet
            z := p/2*-1;  
            x1loesung.Visible := True;
            //Und wo bleibt hier die Wurzel? Umsonst gerechnet, s.o.
            x1loesung.Caption := floattostrf(z,ffFixed,2,2);
          end
          else
            if
            sqrt(p*p/4-q) >0 //Abfrage unnötig, da die anderen beiden Fälle bereits behandelt wurden
              then
              begin
                x1:= z+wurzel; //wurzel hat einen undefinierten Wert
                x2:= z-wurzel; //dto.
                x1loesung.Visible := True;
                x1loesung.Caption := floattostrf(x1,ffFixed,2,2);
                x2loesung.Visible := True;
                x2loesung.Caption := floattostrf(x2,ffFixed,2,2);
              end
  end;
  end;