Wie verwende ich die If-Befehle

[Muddy]

Hallo Leute. Ich habe wiedermal ein PRoblem bei Turbodelphi bei meinen Info HA's.

Und zwar zeigt er mir wiedermal einen Fehler an.
Am besten hier der Code:
p := strtofloat (edit1.Text);
q := strtofloat (edit2.text);
if sqrt ( sqr (p) / 4 -q) > 0 then ;
x = -p/2 + sqrt ( sqr (p) / 4 -q) ;
y = -p/2 - sqrt ( sqr (p) / 4 -q) ;
else
if sqrt ( sqr (p) / 4 -q) = 0 then ;
x = -p/2 ;
y = -p/2 ;
else
if sqrt ( sqr (p) / 4 -q) < 0 then ;
showmessage ("This answer is impossible");

so. bei dem ersten 'else erwartet er eigentlich das END. Ich verstehe nich warum.
Hier die Meldung:

[Pascal Fehler] QuadtratischeGleichung1.pas(44): E2153 ';' nicht erlaubt vor einem 'ELSE'

[DeddyH]

Zitat:

';' nicht erlaubt vor einem 'ELSE'

Was steht vor dem else? Ein Semikolon, richtig. Darf das da stehen? Nein, richtig. Noch genauer kann Dir der Compiler doch nicht mehr sagen, was nicht stimmt

[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

[Muddy]

Dankeschön ^^

[Muddy]

Jetzt ist dort, aber immernoch ein Fehler.
Er Meldet:
[Pascal Fehler] QuadtratischeGleichung1.pas(43): E2029 ':=' erwartet, aber '=' gefunden

D.h ich muss ein : hinter = setzen, aber dann zeigt er den Fehler immernoch an.

[Muddy]

Ach nein. Ich meine ds : weg machen, aber trotzem ist die Meldung dort angezeigt.

[Neutral General]

Zitat:

[Pascal Fehler] QuadtratischeGleichung1.pas(43): E2029 ':=' erwartet, aber '=' gefunden

Zitat von ich:

Pferd erwartet, aber Kamel gefunden.

was schreibst du stattdessen? Du schreibst Pferd und nicht lemaK

ADD:

Merk dir:

=
Vergleiche
:=
Zuweisung



und:

die Stringanführungszeichen sind diese hier --> ' <--- und nicht die "

Gruß
Neutral General

[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');

[Klaus01]

Merde, da habe ich wohl etwas übersehen :o(
Grüße
Klaus