Dezimalzahlen ins Binärsystem

[implementation]

Zitat von NewDelphiBenutzer:

aber wir müssen das mit mod und dif machen

Hmm, okay. Dann benutzen wir statt des Abziehens einfach Mod und statt des Testens auf GrößerGleich eben Div

Code:

WENN i div 128 = 1 DANN
  SETZE BOX
  i = i mod 128