Forum de Ti-Gen.org, le site francophone des TI

Bienvenue Invité ! Se connecter Mes sujets	Administrer
Utilisateurs actifs : Aucun membre + 1 visiteur

Avant de poster sur le forum, il y a des régles de bases à respecter pour une bonne entente et un respect de tous.
Veuillez lire la charte du forum.

:: Index » Forum Ti68K » Programmation TI-Basic » Conversion binaire (54 réponse(s))

./POST DE DEPART (post n°0) Marquer comme non lu.

Invité

Ecrit le: Lundi 19 avril 2004 à 15:08

Sur nos caltos 68K, on ne peut convertir de nombres en binaire que jusqu'à
11111111111111111111111111111111 (32), et lorsqu'on utilise la fonction Bin, elle ne peut avoir aucun caractère après. Par exemple, Disp string(10?Bin) est impossible, puisqu'une parenthèse intervient après le Bin.
Pour remédier à cela, j'ai fait un programme de conversion binaire :
bin(n)
Prgm
""->var2
While n>1
mod(n,2)->var1
floor(n/2)->n
string(var1)&var2->var2
EndWhile
Disp var2
EndPrgm
Le problème, c'est que je voudrais supprimer une variable. Il me faudrait juste le nombre de départ (n), et le résultat (var2).
[edit] Thor j'ai modifié le ? par >

-Edité le: Lundi 19 avril 2004 à 15:35 par Thor-

./Post n°1 Marquer comme non lu.

Invité

Ecrit le: Lundi 19 avril 2004 à 15:09

Pourquoi il me met While n?1 ? J'ai mis While n "est supérieur ou égal à" 1 ! Avec le signe supérieur ou égal !

-Edité le: Lundi 19 avril 2004 à 15:09 par AS-

./Post n°2 Marquer comme non lu.

matth

Ecrit le: Lundi 19 avril 2004 à 16:42

Membre privilégié

Messages: 1329

Membre n°54

Inscrit le 16 février 2004

voici le code qu'il te faut, si j'ai bien compris ton probleme :

bin(n)
Fonc
local var1,var2
""->var2
While n>1
mod(n,2)->var1
floor(n/2)->n
string(var1)&var2->var2
EndWhile
Return var2
EndFonc

J'ai transformé le programme en fonction, pour pouvoir l'utiliser dans une expression, et j'ai défini les deux varialbes en local ...

Ici un peu de pub pour bestofmicro, n'hésiter pas a double-cliquer, vous y trouverez du matériel informatique tres interressant

http://www.informatiquefrance.com/stop-faute.jpg

./Post n°3 Marquer comme non lu.

Invité

Ecrit le: Lundi 19 avril 2004 à 17:01

Oui, mais là il y a du code en plus pour le local, et la variable var1 est toujours là... Et je veux la virer ! #non#

./Post n°4 Marquer comme non lu.

matth

Ecrit le: Lundi 19 avril 2004 à 17:13

Membre privilégié

Messages: 1329

Membre n°54

Inscrit le 16 février 2004

var1 n'est plus la !!!
Elle n'existe que pour la durée de fonctionnement du prog ...

Ici un peu de pub pour bestofmicro, n'hésiter pas a double-cliquer, vous y trouverez du matériel informatique tres interressant

./Post n°5 Marquer comme non lu.

Invité

Ecrit le: Lundi 19 avril 2004 à 18:29

Oui mais je ne veux plus voir cette variable ! Je veux en faire une fonction la plus petite possible, et la plus rapide possible...

./Post n°6 Marquer comme non lu.

Folco

Ecrit le: Lundi 19 avril 2004 à 21:53

Administrateur

Groupe: Staff de Ti-Gen

Messages: 1286

Membre n°181

Inscrit le 05 avril 2004

commence par effacer var1 de ton var-link, et tu verras qu'après l'appel à la fonction, elle n'y sera toujours plus.
Et tu peux virer la ligne:

:Return var2

Etant donné que var2 est la dernière variable affectée, ta fonction vaudra toujours var2.

-Edité le: Lundi 19 avril 2004 à 21:54 par Martial Demolins-

<<< Kernel Extremist©®™ >>>
Pas la peine d'aller là plus d'une fois tous les six mois...

"Il faut apprendre pour savoir qu'il faut apprendre pour savoir."

./Post n°7 Marquer comme non lu.

matth

Ecrit le: Lundi 19 avril 2004 à 22:08

Membre privilégié

Messages: 1329

Membre n°54

Inscrit le 16 février 2004

t'es sur pour le return ??
paske il y a
EndWhile
en derniere instruction , donc en tt logik, ss rien , il retourne "done" ...

Ici un peu de pub pour bestofmicro, n'hésiter pas a double-cliquer, vous y trouverez du matériel informatique tres interressant

./Post n°8 Marquer comme non lu.

Folco

Ecrit le: Lundi 19 avril 2004 à 23:16

Administrateur

Groupe: Staff de Ti-Gen

Messages: 1286

Membre n°181

Inscrit le 05 avril 2004

Faux, une fonction retoutrne toujours une valeur, jamais done

<<< Kernel Extremist©®™ >>>
Pas la peine d'aller là plus d'une fois tous les six mois...

"Il faut apprendre pour savoir qu'il faut apprendre pour savoir."

./Post n°9 Marquer comme non lu.

Invité

Ecrit le: Mardi 20 avril 2004 à 06:49

Oui mais mettre une variable en local, c'est bien la créer uniquement le temps du programme ? Et ben je n veux pas qu'elle se crée et je ne veux pas l'utiliser dans la fonction !
...

./Post n°10 Marquer comme non lu.

Invité

Ecrit le: Mardi 20 avril 2004 à 12:16

alors ta fonction ne marchera pas

./Post n°11 Marquer comme non lu.

Dari

Ecrit le: Mardi 20 avril 2004 à 18:44

Membre privilégié

Messages: 968

Membre n°203

Inscrit le 18 avril 2004

Héhé, je vous annonce en exclu qu'il a réussi à convertir 10^100 en binaire en 8 secondes chrono?Bravo !

"iPod, therefore, I am."

http://media.laquadrature.net/Quadrature_black-out_HADOPI_468x60px.gif

./Post n°12 Marquer comme non lu.

Invité

Ecrit le: Mardi 20 avril 2004 à 19:26

Ouaip ! (Merci pour les "congratulations" Dari) Regardez ça, j'ai enfin réussi !

D'abord, il faut inclure la lib ExtGraph comme suit... non je déconne :
bin2(n)
Prgm
""->r
Optionnel : checkTmr(0)->s
While n(est supérieur ou égal à)1
string(mod(n,2))&r->r
int(n/2)->n
EndWhile
Optionnel : Disp checkTmr(0)-s (le temps mis pour la conversion en secondes)
Disp r
EndPrgm

Et pour l'invité juste en dessous de mon post, je n'utilise que deux variables : le nombre de départ ( n ) et le résultat ( r ) ! En option les secondes écoulées ( s ) !
Ce programme convertit n'importe quel nombre (pour l'instant entier positif) en binaire.
8 secondes pour convertir 10^100, et 38 secondes pour convertir 1000^100 !
P.S. : Maintenant je vais m'attaquer à un convertisseur "universel", qui convertit n'importe quel type de nombre en la base que vous voulez, de base 2 (De 0 à 1) à base 36 (De 0 à Z) !
Bon, ça fait la 4e fois que j'édite ce post... il y en a marre... !

-Edité le: Mardi 20 avril 2004 à 20:21 par AS-

./Post n°13 Marquer comme non lu.

matth

Ecrit le: Mardi 20 avril 2004 à 19:30

Membre privilégié

Messages: 1329

Membre n°54

Inscrit le 16 février 2004

ben t'a toujours deux variables : n et r ...

Ici un peu de pub pour bestofmicro, n'hésiter pas a double-cliquer, vous y trouverez du matériel informatique tres interressant

./Post n°14 Marquer comme non lu.

Invité

Ecrit le: Mardi 20 avril 2004 à 19:31

Oui mais je n'ai plus var1, var2 et r !

./Post n°15 Marquer comme non lu.

Folco

Ecrit le: Mardi 20 avril 2004 à 20:35

Administrateur

Groupe: Staff de Ti-Gen

Messages: 1286

Membre n°181

Inscrit le 05 avril 2004

non mais AS là tu le fais exprès ou quoi?

<<< Kernel Extremist©®™ >>>
Pas la peine d'aller là plus d'une fois tous les six mois...

"Il faut apprendre pour savoir qu'il faut apprendre pour savoir."

./Post n°16 Marquer comme non lu.

Invité

Ecrit le: Mardi 20 avril 2004 à 20:39

Comment ça exprès ? J'ai réussi, non ?