Bonjour,

Pour mon TPE, il faut que je réalise un programme qui convertit de binaire vers décimal, sur calculatrice (TI-82)
Je n'y arrive pas voici ce que j'ai déjà fait.

: Input "Binaire=",Chaîne1
: longueur(Chaîne1)-->N
:expr(Chaîne1)-->A
:""-->Chaine1
:100-->L
While ent(A*(2^L)>0
:L-1-->L
:End

Aidez moi s'il vous plaît ?

Salut !

:CrlHome
:Input "Binaire : ", Str1
:0->B
:For(A,length(Str1),1,-1
:B+expr(sub(Str1,A,1))*2^(A-1)->B
:End
:Disp B

à l'envers

:ClrHome
:Input "Nombre : ",A
:Input "BASE : ",B
:"0123456789ABCDEF"->Str1
:" "->Str0
:While A=/=0
:int(A/B)->Q
:A-BQ->R
:sub(Str1,R+1,1)+Str0->Str0
:Q->A
:End
:sub(str0,1,length(Str0)-1)->Str0
:Disp Str0