Binary digits: Difference between revisions

Content deleted Content added
Hout (talk | contribs)
Line 1,237: Line 1,237:
100 N2 = ABS(INT(N))
100 N2 = ABS(INT(N))
110 B$ = ""
110 B$ = ""
120 FOR N1 = N2 TO 0 STEP 0
120 FOR N1 = N2 TO 0 STEP -1
125 REM 0 this zero is a bug for typing error! A FOR loop with STEP 0 do nothing
130 : N2 = INT(N1 / 2)
130 : N2 = INT(N1 / 2)
140 : B$ = STR$(N1 - N2 * 2) + B$
140 : B$ = STR$(N1 - N2 * 2) + B$