Wie verwende ich die If-Befehle

[DeddyH]

Delphi-Quellcode:

p := strtofloat (edit1.Text);
q := strtofloat (edit2.text);
if sqrt ( sqr (p) / 4 -q) > 0 then 
  begin
    x := -p/2 + sqrt ( sqr (p) / 4 -q) ; //Zuweisung mit :=
    y := -p/2 - sqrt ( sqr (p) / 4 -q) ;
  end
else
  if sqrt ( sqr (p) / 4 -q) = 0 then 
    begin
      x := -p/2 ;
      y := -p/2 ;
    end
  else
    if sqrt ( sqr (p) / 4 -q) < 0 then 
      showmessage ('This answer is impossible');