Code: Alles auswählen
; Variablen a, b und c sind ganzzahlig:
c = (a / b) * b
c = a - (a % b) ; alternativ
Code: Alles auswählen
; Variablen a, b und c sind ganzzahlig:
c = (a / b) * b
c = a - (a % b) ; alternativ
Code: Alles auswählen
Floor(226, 10) = 220
Code: Alles auswählen
EnableExplicit
Procedure ggT(a,b)
Protected rest,ergebnis
If b>a:Swap b,a:EndIf
Repeat
rest=a%b
ergebnis=a/b
If rest=0:ProcedureReturn b:EndIf
a=b
b=rest
ForEver
EndProcedure
Debug ggT(50,12)
Code: Alles auswählen
; Die Dividende muss nur mit dem Rest subtrahiert werden
Ergebnis.i = a-(a%b)