Poster un nouveau sujet Poster une réponse
Nombre Réel to-) Binaire
Auteur Message
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Mer 10 Nov 2010, 15:41   Citer 

Programme Binaire par Davin... 133 Ko.

Voici un petit prgm qui convertit les nombres
réels en binaire...bien utile pour les Terminal S
qui ont comme spécialité SI... happy.gif
_________________________________________________


Code
:Input"R-)B",x
:0-)B:While x pas égale à 0
:B+1-)B
:x-2int(x/2)-)R
:partEnt(x/2)-)x
:R-)L BIN(B)
:End
For(A,1,B)
:If A=17:Then:Disp "ERREUR..."
:EffVar L BIN:Stop:End:Output(8,17-A,L BIN(A))
:End
:EffVar L BIN


_________________________________________________
*
(L BIN) signifit la liste ayant le nom "BIN"
et le petit "L" est celui que vous trouverez
en tête du catalogue à L...
"-)" signifit la touche "sto-)"...

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mer 10 Nov 2010, 21:44   Citer 

bien

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 11 Nov 2010, 0:29   Citer 

J'hallucine de plus en plus quant à la quantité de progs de ce type.

La ligne 2partDéc(x/2)-)R est juste mathématiquement, mais pour réduire les risques d'erreurs par arrondit il est mieux de passer par x-2int(x/2)-)R

Bien quand même.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Ven 12 Nov 2010, 10:25   Citer 

Merci !
Pour l’erreur, c'est une bonne remarque, je corrigerait...
Salut...

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
R # 2 B
Avatar

Autorisation : Membre
Nb de messages : 21
Inscrit le : Ven 07 Jan 2011, 14:35
Posté le : Mer 02 Fév 2011, 9:51   Citer 


Citer : l.davin
bien utile pour les Terminal S
qui ont comme spécialité SI... happy.gif



Utile aussi pour les Secondes option MPI (d'ailleurs je crois qu'avec la réforme ça a changé de nom)

----------------------
Calto : Ti-82 Stats.Fr

programmeur depuis presque 2 ans

Peu de motivations sauf pour la programmation (évidemment !)

En cours les 3/4 de la journéee, le reste penché sur ma calto !
 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Mer 02 Fév 2011, 11:39   Citer 

Oui ! Mais je n'ais toujour pas trouver, n'y par moi même, n'y sur le forum;
Un prgm capable de faire l'oppération inverse, soit: Bin to-> Réel. cry.gif

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mer 02 Fév 2011, 15:24   Citer 

linkakro en a fait un qui convertit de n'importe quelle base vers n'imorte quelle base.

il doit être capable de traduire de la base 2 vers la base 10, techniquement.

il faudrait le retrouver.

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 02 Fév 2011, 17:03   Citer 

Il y en a un au site du zéro encore plus simple que ma version inédite (mais avec moins d'options)
Je vais publier ma dernière version et mettre le lien ici aussi.

EDIT= ça y est je l'ai posté dans son sujet. Ca fait un up dans les pages !

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Ven 04 Fév 2011, 10:59   Citer 

Ça y est j'en ais un "BIN -> Réel"


Code
:1->M:0->R
:Input N
:While 1
:Output(8,1,R
:N/10->N
:R+Ment(10PartDéc(N->R
:2M->M
:End



Il fonctionne bien, seul défaut, il ne s’arrête pas tout seul...

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Ven 04 Fév 2011, 17:16   Citer 

Il y manquer ":N/10->N"...
Désolé, j'ai corriger. ahh.gif

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Lun 07 Fév 2011, 13:51   Citer 

Çà y est, j'ai trouver la formule mathématique pour passer de n importe qu'elle base en Réel (base 10). bigmouth.gif
Je poste le prgm dès que possible. happy.gif

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Mar 08 Fév 2011, 11:54   Citer 

MAIS QUI SUPPRIME TOUT MES MESSAGES !!! ??? maxiangry.gif

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Mar 08 Fév 2011, 17:06   Citer 

Voilà le petit dernier !


Code
:EffEcr
:Menu("CONVERT","R->B",1,"B->R",2
:Lbl 1
:Input"R-)B",x
:if X supérieur ou = à 65535:Then:Disp "ERREUR...":Stop:End
:0-)B:Repeat x=0
:B+1-)B
:x-2int(x/2)-)R
:partEnt(x/2)-)x
:R-)L BIN(B)
:End
For(A,1,B)
:Output(8,17-A,L BIN(A
:End
:EffVar L BIN:Stop
:Lbl 2
:Input "BASE",B
:0->E:0->R
:Input N
:input "10^(",P  ----------- (nombre de chiffes).
:Repeat E-1=p
:Output(8,1,R
:N/10->N
:if ent(10partDéc(N)>B:Disp "ERREUR !"
:R+B^Eent(10PartDéc(N->R
:E+1->E
:End



----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Jeu 10 Fév 2011, 11:04   Citer 

15 ans plus tard...
Vous savez il y à des gens qui sont mort comme çà... moodforlove.gif
Personne ne là essayer ? ahh.gif

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Jeu 10 Fév 2011, 14:17   Citer 

tu sais, ça, moi je le fais de tête. je n'ai pas besoin d'un programme pour.
Et très probablement, les autres non plus.

et si ça ce trouve, certains l'ont testé, mais ils n'ont pas répondu.

 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Ven 11 Fév 2011, 11:35   Citer 

HOUA ! Mito, tu fais çà de tête ! bigmouth.gif
Perso si c'est vrai je te dis respect à vie... glasses.gif
Ah oui, de tête mais en combien de temps ? laugh.gif

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
L'Ombre du Désespoir



Autorisation : Membre
Nb de messages : 1
Inscrit le : Sam 02 Avr 2011, 16:55
Posté le : Sam 02 Avr 2011, 16:58   Citer 

Salut !! Si, je l'ai testé ton programme : pas utile pour tout le monde mais j'aime bien cupsmiley.gif

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2024 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink