Binary digits: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,110: / Line 2,110: @@
 <syntaxhighlight lang="text">
-proc toBin num . bin$ .
+func$ bin num .
-   bin$ = ""
+   b$ = ""
    if num = 0
-      bin$ = "0"
+      b$ = "0"
    .
    while num > 0
-      bin$ = num mod 2 & bin$
+      b$ = num mod 2 & b$
       num = num div 2
    .
+   return b$
 .
-toBin 2 bin$
+print bin 2
-print bin$
+print bin 50
-toBin 50 bin$
+print bin 9000
-print bin$
-toBin 9000 bin$
-print bin$
 </syntaxhighlight>
 {{out}}