>= 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:

Delphi-Quellcode:

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.

...:cat:...

[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
//...

:thumb: Aenogym

[Airblader]

Habs nun ganz anders gemacht ;)

Delphi-Quellcode:

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 :gruebel:

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
//...

:roll: Umständlicher geht es auch nicht mehr... :wink:
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 :gruebel:

[Airblader]

Zitat:

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 :angel: )

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

:spin2: