Wie verwende ich die If-Befehle

[Klaus01]

Hallo,

wenn man das ganze etwas strukturiert wird es auch lesbarer.

Delphi-Quellcode:

p := strtofloat (edit1.Text); 
q := strtofloat (edit2.text); 
if sqrt ( sqr (p) / 4 -q) > 0 then ; // hier muss das ; weg
  begin
    x = -p/2 + sqrt ( sqr (p) / 4 -q) ; 
    y = -p/2 - sqrt ( sqr (p) / 4 -q) ; 
  end
else 
  if sqrt ( sqr (p) / 4 -q) = 0 then ; // hier auch
    begin
      x = -p/2 ; 
      y = -p/2 ; 
    end
  else 
    if sqrt ( sqr (p) / 4 -q) < 0 then ;  // hier auch
      showmessage ("This answer is impossible");

Grüße
Klaus