>= bei real?

[Airblader]

hi

muss ein kleines programm für mathe schreiben (Heron-Verfahren) und ich bau es etwas aus (nur checks oder so)

Jetzt will ich prüfen, ob x² >= a ist.
wenn nicht, soll eine fehlermeldung erscheinen.

aber das geht nicht:

if (x * x) >= a then Er bricht mit der Meldung ab, dass der Operator nicht auf diesen Operandentyp anwendbar ist.

Aber wie prüfe ich nun, ob x² größergleich a ist?

x und a sind beides real zahlen

air

[sakura]

Wie sind X und A deklariert? Mit normalen Float-Zahlen geht das.

......

[toms]

Compiliert bei mir problemlos:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  x,a: real;
begin
  if (x * x) >= a then
  begin
    //...
  end;
end;

[Aenogym]

Delphi-Quellcode:

if ((x * x) > a) or ((x * x) = a) then
//...

Aenogym

[Airblader]

Habs nun ganz anders gemacht

if (x * x) < a then So erspar ich mir sowal >= als auch ein "not" oder die "lange" Lösung von Aenogym.

Trotzdem nochmal Danke

@toms: Bei mir geht (ging) es aber nicht

air

[Ultimator]

Dann hast du aber ein Problem, wenn x² genau so groß is wie a

[Chegga]

Hi,

Delphi-Quellcode:

if ((x * x) > a) or ((x * x) = a) then
//...

Umständlicher geht es auch nicht mehr...
So geht es bei mir auch problemlos:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  x,a: real;
begin
  if (x * x) >= a then
  //...
end;

MfG Marc

[Wuaegner]

Da hat er Recht, und

Zitat:

if ((x * x) > a) or ((x * x) = a) then

das is doch nicht wirklich lang

[Airblader]

Zitat von Ultimator:

Dann hast du aber ein Problem, wenn x² genau so groß is wie a

Was erlaubt ist.
Wir haben heron zwar noch nicht (Vorarbeiter )

aber im buch steht "für x² >= a"

d.h. gleichgroß ist erlaubt (erzeugt dann nur einen rechenschritt).

Ich will ja nur x² > a abfangen, um Fehleingaben zu verhindern

air

[Wuaegner]

Zitat:

Jetzt will ich prüfen, ob x² >= a ist.
wenn nicht, soll eine fehlermeldung erscheinen.

Zitat:

Ich will ja nur x² > a abfangen, um Fehleingaben zu verhindern