Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

developer forums

Code Snippets / Decimal To Binary

Author

Message

CuCuMBeR

Years of Service

User Offline

Joined: 11th Jan 2003

Location: Turkey

Posted: 24th Mar 2005 03:32

Link

i dont know if its done before, but the following code converts any integer number into binary format.

+ Code Snippet

top:
input "Enter a number: ", Number$
Number = val(Number$)
if Number = 0 then cls : goto top

while Number <> 0
   Binary = Number Mod 2
   Number = Number / 2
   print str$(Binary);
endwhile
print
goto top

Profile PM

Server time is: 2024-11-23 14:13:22
Your offset time is: 2024-11-23 14:13:22