Nombre Réel to-) Binaire |
Auteur |
Message |
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Mer 10 Nov 2010, 15:41
|
|
|
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...
_________________________________________________
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 |
|
|
|
Persalteas
Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Mer 10 Nov 2010, 21:44
|
|
|
bien
|
|
|
|
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
|
|
|
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 |
|
|
|
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Ven 12 Nov 2010, 10:25
|
|
|
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 |
|
|
|
R # 2 B
Autorisation : Membre
Nb de messages : 21
Inscrit le : Ven 07 Jan 2011, 14:35
|
Posté le : Mer 02 Fév 2011, 9:51
|
|
|
Citer : l.davin | bien utile pour les Terminal S
qui ont comme spécialité SI...
|
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 ! |
|
|
|
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Mer 02 Fév 2011, 11:39
|
|
|
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.
---------------------- 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 |
|
|
|
Persalteas
Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Mer 02 Fév 2011, 15:24
|
|
|
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.
|
|
|
|
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Mer 02 Fév 2011, 17:03
|
|
|
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 |
|
|
|
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Ven 04 Fév 2011, 10:59
|
|
|
Ç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 |
|
|
|
Google_AdSense
|
Publicité
|
|
|
|
|
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Ven 04 Fév 2011, 17:16
|
|
|
Il y manquer ":N/10->N"...
Désolé, j'ai corriger.
---------------------- 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 |
|
|
|
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Lun 07 Fév 2011, 13:51
|
|
|
Çà y est, j'ai trouver la formule mathématique pour passer de n importe qu'elle base en Réel (base 10).
Je poste le prgm dès que possible.
---------------------- 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 |
|
|
|
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Mar 08 Fév 2011, 11:54
|
|
|
MAIS QUI SUPPRIME TOUT MES MESSAGES !!! ???
---------------------- 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 |
|
|
|
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Mar 08 Fév 2011, 17:06
|
|
|
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 |
|
|
|
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Jeu 10 Fév 2011, 11:04
|
|
|
15 ans plus tard...
Vous savez il y à des gens qui sont mort comme çà...
Personne ne là essayer ?
---------------------- 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 |
|
|
|
Persalteas
Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Jeu 10 Fév 2011, 14:17
|
|
|
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.
|
|
|
|
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Ven 11 Fév 2011, 11:35
|
|
|
HOUA ! Mito, tu fais çà de tête !
Perso si c'est vrai je te dis respect à vie...
Ah oui, de tête mais en combien de temps ?
---------------------- 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 |
|
|
|
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
|
|
|
Salut !! Si, je l'ai testé ton programme : pas utile pour tout le monde mais j'aime bien
|
|
|
|