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'

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

Hallo,

wenn man das ganze etwas strukturiert wird es auch lesbarer.

zusammenfalten · markieren

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

Dankeschön ^^

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.

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

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

zusammenfalten · markieren

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

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