>= bei real?

[Aenogym]

Zitat von Chegga:

Hi,

Delphi-Quellcode:

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

Umständlicher geht es auch nicht mehr...

ich hab das gleiche komische problem, wie air. bei mir geht obiges, aber nicht >=...

Zitat von Chegga:

So geht es bei mir auch problemlos:
[...]

du glücklicher

Aenogym

[Wuaegner]

hm
bei mir geht's auch so:

Delphi-Quellcode:

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

[Airblader]

Zitat von 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

Sorry, im 2. sollte es "<" und nicht ">" sein

Naja, jetzt geht alles

Es sei denn, die Wurzel aus 16 ist nicht 4
(jaja, +- 4, aber bei uns nur nicht negative Zahlen)

air

[Matze]

Zitat von Airblader:

Es sei denn, die Wurzel aus 16 ist nicht 4
(jaja, +- 4, aber bei uns nur nicht negative Zahlen)

Wurzel 16 ist definitiv 4, nicht +/- 4 *klugsch...*

[Chegga]

Hi,

Zitat von Airblader:

(jaja, +- 4, aber bei uns nur nicht negative Zahlen)

Es gibt nur positive Zahlen unter der Wurzel.
Alles andere ist Sinnlos.

MfG Marc

[Edit] Mein "Stadtsnachbar" war mal wieder schneller! [/Edit]

[Ultimator]

Nö, denn...

Code:

sqr(x)=a <=> sqrt(a)=x

Dann kannst du ja, wenn a 16 sein soll, für x sowohl +4 als auch -4 einsetzen
Weil das Vorzeichen bei geradem Exponenten wegfällt

*auch mal klugsch...en will*

[Wuaegner]

Aber:

x² = 16 |wurzel( )
x = +/- 4 <= das is dann aber schon die Lösungsmenge gell?

[st-matze]

Ich würde ja zum Vergleich von float/double and so on
grundsätzlich folgendes empfehlen

Delphi-Quellcode:

uses
  Math,
  Types;
{..}
  if CompareValue(x*x,a) = LesserThanValue then

[SubData]

√ aus ± 16 = 4 ...

[Steve]

Wurzel von -16 ist die leere Menge (außer bei komplexe Zahlen glaub ich)

Wurzel 16 = +-4 stimmt.


Ist ja aber hier auch wurscht -g-

Gruß
Stephan