Gerade, ungerade, Rest einer Division

DECL REAL Ausgangswert,HaelfteAusgangswert,Rest
DECL INT GanzzahligerTeil

HaelfteAusgangswert = AusgangsWert / 2
GanzzahligerTeil = HaelfteAusgangswert
Rest = HaelfteAusgangswert - GanzzahligerTeil

If Rest == 0 THEN
EVEN = TRUE
ELSE
ODD = TRUE
ENDIF

So geht's am einfachsten:

IF (iZahl B_AND 1) == 0 THEN
; gerade
ELSE ; (iZahl B_AND 1) == 1
; ungerade
ENDIF

Suchfunktion nutzen!

Es steht fest:
Jede Zahl wird intern binär verarbeitet.

IF (iZahl B_AND 1) == 0 THEN

Jede Binärzahl, die bitweise "und" mit 1 verknüpft wird hat als Ergebnis 1 oder 0.

; gerade

Jede gerade Zahl bringt bei dieser Operation "0" als Ergebnis.

ELSE ; (iZahl B_AND 1) == 1
  ; ungerade

Es folgt: Jede ungerade Zahl bringt bei dieser Operation "1" als Ergebnis.

ENDIF

Hallo,

zum Rest einer Division (engl. Modulo) hier eine Funktion.

GLOBAL DEFFCT INT Modulo (n :IN, m :IN)
DECL INT n, m
 IF n==0 THEN
  RETURN 0
 ENDIF
 IF m==0 THEN
  RETURN 0
 ENDIF
 RETURN n - ( n / m ) * m
ENDFCT

Zitat von mlstefan

Ich habe so etwa nach allem gesucht aber nichts gefunden.

Also, bitte...Suchbegriff: ungerade
Vierter Treffer ist von mir genannter Code...

WolfHenk:

Man könnte als folgende Funktion erstellen:

DEFFCT BOOL EVEN(iValue:IN)
INT iValue
BOOL bResult
bResult = (iValue B_AND 1) == 0)
RETURN bResult
ENDFCT