Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
Nombre Réel to-) Binaire
ld le 10/11/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-)"...
Persalteas le 10/11/2010 à 21:44
bienlinkakro le 11/11/2010 à 00: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.ld le 12/11/2010 à 10:25
Merci !
Pour l’erreur, c'est une bonne remarque, je corrigerait...
Salut...R # 2 B le 02/02/2011 à 09:51
l.davin a écrit :
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)
ld le 02/02/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.
Persalteas le 02/02/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 le 02/02/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 !
ld le 04/02/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...
ld le 04/02/2011 à 17:16
Il y manquer ":N/10->N"...
Désolé, j'ai corriger.
ld le 07/02/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.
ld le 08/02/2011 à 11:54
MAIS QUI SUPPRIME TOUT MES MESSAGES !!! ???
ld le 08/02/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
ld le 10/02/2011 à 11:04
15 ans plus tard...
Vous savez il y à des gens qui sont mort comme çà...
Personne ne là essayer ?
Persalteas le 10/02/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 le 11/02/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 ?
L'Ombre du Désespoir le 02/04/2011 à 16:58
Salut !! Si, je l'ai testé ton programme : pas utile pour tout le monde mais j'aime bien
Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.