Forum TI-Planet.org

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.

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...

merci c'est en basic?

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

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

parfait c'est super sympa

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

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

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

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".