19 lines
205 B
Text
19 lines
205 B
Text
PROGRAM:BINARY
|
|
:Disp "NUMBER TO"
|
|
:Disp "CONVERT:"
|
|
:Input A
|
|
:0→N
|
|
:0→B
|
|
:While 2^(N+1)≤A
|
|
:N+1→N
|
|
:End
|
|
:While N≥0
|
|
:iPart(A/2^N)→C
|
|
:10^(N)*C+B→B
|
|
:If C=1
|
|
:Then
|
|
:A-2^N→A
|
|
:End
|
|
:N-1→N
|
|
:End
|
|
:Disp B
|