Delphi-PRAXiS
Seite 1 von 5  1 23     Letzte » 

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi >= bei real? (https://www.delphipraxis.net/38870-%3D-bei-real.html)

Airblader 25. Jan 2005 14:06


>= bei real?
 
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 25. Jan 2005 14:07

Re: >= bei real?
 
Wie sind X und A deklariert? Mit normalen Float-Zahlen geht das.

...:cat:...

toms 25. Jan 2005 14:07

Re: >= bei real?
 
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 25. Jan 2005 14:08

Re: >= bei real?
 
Delphi-Quellcode:
if ((x * x) > a) or ((x * x) = a) then
//...
:thumb: Aenogym

Airblader 25. Jan 2005 14:14

Re: >= bei real?
 
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 25. Jan 2005 14:15

Re: >= bei real?
 
Dann hast du aber ein Problem, wenn x² genau so groß is wie a ;-)

Chegga 25. Jan 2005 14:16

Re: >= bei real?
 
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 25. Jan 2005 14:17

Re: >= bei real?
 
Da hat er Recht, und
Zitat:

if ((x * x) > a) or ((x * x) = a) then
das is doch nicht wirklich lang :gruebel:

Airblader 25. Jan 2005 14:18

Re: >= bei real?
 
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 25. Jan 2005 14:20

Re: >= bei real?
 
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:


Alle Zeitangaben in WEZ +2. Es ist jetzt 06:42 Uhr.
Seite 1 von 5  1 23     Letzte » 

Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf