Ti80.Online

Pour plus de programmes...
http://ti80.ctw.net
ti80@citeweb.net
-----------------------------------

il permet de convertir les nombres décimaux en nombres binaires et inversement.
 
Environ 400 octets
Ce programme a été fait par Julien.Richard-Foy@Wanadoo.fr
 
:0->E
:CLRHOME
:DISP "CONVERTIR :",""," 1.DEC->BIN"," 2.BIN->DEC",""
:LABEL 0
:INPUT: "CHOIX:",A
:IF A=1:GOTO 1
:IF A=2:GOTO 2
:GOTO 0
:LBL 1
:CLRHOME
:INPUT "NB DEC:",A
:DISP "CONVERSION..."
:LBL A
:IF A=1
:THEN
:1+E->E
:GOTO Y
:END
:1->D
:2->B
:LBL B
:IF A<B
:GOTO C
:2B->B
:D+1->D
:GOTO B
:LBL C
:A-B/2->A
:0.1->F
:FOR(¤,1,D (¤=teta)
:10F->F
:END
:E+F->F
:IF A=0
:GOTO D
:GOTO A
:LBL D
:DISP "NB BIN:",E
:STOP
:LBL 2
:CLRHOME
:INPUT "NB BIN:",A
:DISP "CONVERSION..."
:10->B
:0->D
:LBL Z
:A/B->C
:B*IPART C->A
:IF 10FPART C=1
:2^D+E->E
:IF IPART C=0
:GOTO Y
:10B->B
:D+1->D
:GOTO Z
:LBL Y
:DISP "NB DEC:",E