π
<-

prog pour convertir binaire en texte

Programmation et implémentation d'algorithmes.

prog pour convertir binaire en texte

Unread postby spok123100 » 11 May 2014, 13:39

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.
User avatar
spok123100
Niveau 5: MO (Membre Overclocké)
Niveau 5: MO (Membre Overclocké)
Level up: 68%
 
Posts: 9
Joined: 29 Mar 2014, 20:04
Gender: Not specified
Calculator(s):
MyCalcs profile
Class: gymnase

Re: prog pour convertir binaire en texte

Unread postby Bisam » 11 May 2014, 14:16

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...
User avatar
BisamAdmin
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Level up: 69.6%
 
Posts: 5670
Joined: 11 Mar 2008, 00:00
Location: Lyon
Gender: Male
Calculator(s):
MyCalcs profile

Re: prog pour convertir binaire en texte

Unread postby spok123100 » 11 May 2014, 14:17

merci c'est en basic?
User avatar
spok123100
Niveau 5: MO (Membre Overclocké)
Niveau 5: MO (Membre Overclocké)
Level up: 68%
 
Posts: 9
Joined: 29 Mar 2014, 20:04
Gender: Not specified
Calculator(s):
MyCalcs profile
Class: gymnase

Re: prog pour convertir binaire en texte

Unread postby pierrotdu18 » 11 May 2014, 14:17

C'est en basic pour TI-Nspire...
Bonjour
User avatar
pierrotdu18Premium
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Level up: 40.5%
 
Posts: 975
Joined: 07 Nov 2013, 20:18
Location: Paris V
Gender: Male
Calculator(s):
MyCalcs profile
Class: MP* Lycée Henri IV

Re: prog pour convertir binaire en texte

Unread postby Bisam » 11 May 2014, 14:18

Oui, c'est du Basic... et c'est la même chose pour une TI89 !
User avatar
BisamAdmin
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Level up: 69.6%
 
Posts: 5670
Joined: 11 Mar 2008, 00:00
Location: Lyon
Gender: Male
Calculator(s):
MyCalcs profile

Re: prog pour convertir binaire en texte

Unread postby spok123100 » 11 May 2014, 14:19

parfait c'est super sympa
User avatar
spok123100
Niveau 5: MO (Membre Overclocké)
Niveau 5: MO (Membre Overclocké)
Level up: 68%
 
Posts: 9
Joined: 29 Mar 2014, 20:04
Gender: Not specified
Calculator(s):
MyCalcs profile
Class: gymnase

Re: prog pour convertir binaire en texte

Unread postby spok123100 » 11 May 2014, 14:23

euh la première ligne est déjà impossible à faire sur ti 89
User avatar
spok123100
Niveau 5: MO (Membre Overclocké)
Niveau 5: MO (Membre Overclocké)
Level up: 68%
 
Posts: 9
Joined: 29 Mar 2014, 20:04
Gender: Not specified
Calculator(s):
MyCalcs profile
Class: gymnase

Re: prog pour convertir binaire en texte

Unread postby Bisam » 11 May 2014, 14:29

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
User avatar
BisamAdmin
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Level up: 69.6%
 
Posts: 5670
Joined: 11 Mar 2008, 00:00
Location: Lyon
Gender: Male
Calculator(s):
MyCalcs profile

Re: prog pour convertir binaire en texte

Unread postby spok123100 » 11 May 2014, 14:30

je persiste: la premiére oigne est pas en ti 89 basic
User avatar
spok123100
Niveau 5: MO (Membre Overclocké)
Niveau 5: MO (Membre Overclocké)
Level up: 68%
 
Posts: 9
Joined: 29 Mar 2014, 20:04
Gender: Not specified
Calculator(s):
MyCalcs profile
Class: gymnase

Re: prog pour convertir binaire en texte

Unread postby Bisam » 11 May 2014, 14:34

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".
User avatar
BisamAdmin
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Level up: 69.6%
 
Posts: 5670
Joined: 11 Mar 2008, 00:00
Location: Lyon
Gender: Male
Calculator(s):
MyCalcs profile

Next

Return to Programmation

Who is online

Users browsing this forum: ClaudeBot [spider] and 6 guests

-
Search
-
Social TI-Planet
-
Featured topics
Comparaisons des meilleurs prix pour acheter sa calculatrice !
"1 calculatrice pour tous", le programme solidaire de Texas Instruments. Reçois gratuitement et sans aucune obligation d'achat, 5 calculatrices couleur programmables en Python à donner aux élèves les plus nécessiteux de ton lycée. Tu peux recevoir au choix 5 TI-82 Advanced Edition Python ou bien 5 TI-83 Premium CE Edition Python.
Enseignant(e), reçois gratuitement 1 exemplaire de test de la TI-82 Advanced Edition Python. À demander d'ici le 31 décembre 2024.
Aidez la communauté à documenter les révisions matérielles en listant vos calculatrices graphiques !
1234
-
Donations / Premium
For more contests, prizes, reviews, helping us pay the server and domains...
Donate
Discover the the advantages of a donor account !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partner and ad
Notre partenaire Jarrety Calculatrices à acheter chez Calcuso
-
Stats.
2004 utilisateurs:
>1954 invités
>44 membres
>6 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Other interesting websites
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)