prog pour convertir binaire en texte

[spok123100]

salut,

comme je l'ai demandé sur le chat je voudrais un programme de conversion binaire-texte.

en assembleur ou BASIC puisque je suis sur ti 89 ( hw2)

voilà merci pour les réponses.

[Bisam]

En voici un dans un sens :

Code: Select all

str2bin(txt)
Func
Local i,j,n,p,r,rep
dim(txt)->n
""->rep
For i,1,n
    ord(mid(txt,i,1))->p
    For j,1,8
        mod(p,2)->r
        (p-r)/2->p
        string(r)&rep->rep
    EndFor
EndFor
EndFunc

L'autre sens arrive sous peu...

[spok123100]

merci c'est en basic?

[pierrotdu18]

C'est en basic pour TI-Nspire...

[Bisam]

Oui, c'est du Basic... et c'est la même chose pour une TI89 !

[spok123100]

parfait c'est super sympa

[spok123100]

euh la première ligne est déjà impossible à faire sur ti 89

[Bisam]

L'autre sens :

Code: Select all

bin2str(nb)
Func
Local i,n,rep
""->rep
dim(nb)->n
If mod(n,8)≠0
    Return("Erreur : le nombre de 0 et 1 n'est pas multiple de 8")
For i,1,n,8
    rep&char(expr("0b"&mid(nb,i,8)))->rep
EndFor
EndFunc

[spok123100]

je persiste: la premiére oigne est pas en ti 89 basic

[Bisam]

La première ligne, c'est le nom du programme, enfin de la fonction, avec son argument.
Il faut créer une fonction en appuyant sur [Apps] [7] [3], mettre le nom de la fonction et ensuite insérer les lignes manquantes dans l'éditeur de programmes de la calculette.

Les 2 programmes s'utilisent avec des chaînes de caractères.

Par exemple :

Code: Select all

str2bin("Salut")

renverra

Code: Select all

"0101001101100001011011000111010101110100"

et réciproquement

Code: Select all

bin2str("0101001101100001011011000111010101110100")

renverra "Salut".