Data commit

Task/Binary-digits/TI-83-BASIC/binary-digits-1.basic

@@ -0,0 +1,19 @@
+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

Task/Binary-digits/TI-83-BASIC/binary-digits-2.basic

@@ -0,0 +1,9 @@
+PROGRAM:BINARY
+:Input X
+:" "→Str1
+:Repeat X=0
+   :X/2→X
+   :sub("01",2fPart(X)+1,1)+Str1→Str1
+   :iPart(X)→X
+:End
+:Str1

Task/Binary-digits/TI-83-BASIC/binary-digits-3.basic

@@ -0,0 +1,5 @@
+PROGRAM:BINARY
+:Disp "NUMBER TO"
+:Disp "CONVERT"
+:Input "Str1"
+:Disp real(25,Str1,10,2)

Task/Binary-digits/TI-83-BASIC/binary-digits-4.basic

@@ -0,0 +1,12 @@
+:Input "DEC: ",D
+:" →Str1
+:If not(D:"0→Str1
+:While D>0
+:If not(fPart(D/2:Then
+:"0"+Str1→Str1
+:Else
+:"1"+Str1→Str1
+:End
+:iPart(D/2→D
+:End
+:Disp Str1