Binary digits: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,103: / Line 2,103: @@
 func toBinary num . binary$ .
    binary$ = ""
-   currentNum = num
+   if num = 0
+      binary$ = "0"
-   repeat
+   .
-      binary$ = currentNum mod 2 & binary$
+   while num > 0
-      currentNum = currentNum div 2
-      until currentNum < 2
+      binary$ = num mod 2 & binary$
+      num = num div 2
    .
-   binary$ = currentNum & binary$
 .
-call toBinary 5 binary$
+call toBinary 2 binary$
 print binary$
 call toBinary 50 binary$