Feven()/Fodd()

Sonderfunktion zum prüfen von Fließkommawerten auf gerade/ungerade.

Feven() prüft auf gerade und Fodd() auf ungerade.

Syntax: byte = Feven( value as single )
Syntax: byte = Fodd( value as single )

• 0 = Falsch
• 1 = Wahr
• 2 = Keins von Beiden

Das Prüfen auf gerade/ungerade funktioniert nur mit ganzen Zahlen. Durch eine Typkonvertierung auf einen Integerwert kann man den Teil vor dem Komma mit den Funktionen für Integerwerte auf gerade/ungerade prüfen. Dabei bleibt jedoch der Nachkommaanteil unbeachtet.

Die Sonderfunktionen Fodd() und Feven() beachten hierbei jedoch auch den Nachkommaanteil. Ist der Nachkommaanteil ungleich 0, dann wird dies durch einen zusätzlichen Rückgabewert signalisiert.

Beispiel:

  dim a as single
  a=28.22
 
  select case Fodd(a)
  case 0
    print "Die Zahl ";str(a);" ist gerade."
  case 1
    print "Die Zahl ";str(a);" ist ungerade."
  case 2
    print "Die Zahl ";str(a);" ist weder gerade noch ungerade"
  end select
 
  select case Feven(a)
  case 0
    print "Die Zahl ";str(a);" ist ungerade."
  case 1
    print "Die Zahl ";str(a);" ist gerade."
  case 2
    print "Die Zahl ";str(a);" ist weder gerade noch ungerade"
  end select

Siehe auch: Odd, Even