Binary digits: Difference between revisions

m
(→‎dt: add)
Line 2,110:
 
<syntaxhighlight lang="text">
proc toBinarytoBin num . binarybin$ .
binarybin$ = ""
if num = 0
binarybin$ = "0"
.
while num > 0
binarybin$ = num mod 2 & binarybin$
num = num div 2
.
.
toBin 2 bin$
call toBinary 2 binary$
print binarybin$
call toBinarytoBin 50 binarybin$
print binarybin$
call toBinarytoBin 9000 binarybin$
print binarybin$
</syntaxhighlight>
{{out}}
2,012

edits