Test ob Zahl durch 8 teilbar - Modulo?

[Delle]

Dachte das geht einfach so, aber anscheinend doch nicht:

Code: Alles auswählen

test = a%8
If test=1
; ja
endif

[MVXA]

Code: Alles auswählen

If (a%8) = 0
; ja
endif

[Delle]

Ähm ist doch 1, nicht 0... mein obiger Code stimmt, mußte lediglich immer zu a + 1 machen weil mit 0 gestartet...

[MVXA]

16 durch 8 rest 0. Bei Modulo bekommst du immer den Rest einer Divison .
Verstehe jetzt nicht genau was du erreichen möchtest.

[Delle]

Halt nur wissen, ob eine Zahl durch 8 teilbar ist. Was dabei rauskommt, is mir egal

[MVXA]

Code: Alles auswählen

isteilbar = (Not 16%8)
If isteilbar
    Debug "Teilbar!"
Else
    Debug "NICHT Teilbar!"
EndIf

Sieht eleganter aus als n a + 1.... also das (Not 16%8)

[helpy]

NOT geht aber erst ab PB 4.0!

Und hier noch 'ne Möglichkeit ohne die Modulo-Funktion. Geht aber nur, weil der Teiler (8) eine Zweier-Potenz ist!

Hier noch eine Möglichkeit (für PB 3.94):

Code: Alles auswählen

	If (Zahl & $07) = 0
		; Durch 8 Teilbar
	EndIf

Ab PB4.0:

Code: Alles auswählen

	If Not (Zahl & $07)
		; Durch 8 Teilbar
	EndIf

Und eine zweite Möglichkeit mit PB4.0

Code: Alles auswählen

	If (i & $07) XOr $03
		; Durch 8 Teilbar
	EndIf

cu, helpy

[Froggerprogger]

Noch einen:

Code: Alles auswählen

Procedure IsTeilbar(a.l, b.l) ; true wenn b teilt a gilt
    If a % b = 0
        ProcedureReturn #True
    Else
        ProcedureReturn #False
    EndIf
EndProcedure