Qbasic Program to convert decimal number into binary
Posted by Mahibabu
REM Qbasic Program to convert decimal number into binary number
CLS
INPUT "enter decimal number"; d
WHILE d <> 0
r = d MOD 2
r$ = STR$(r)
s$ = r$ + s$
d = d \ 2
WEND
PRINT "binary number is"; s$
END
