Autorisation : Membre
Nb de messages : 85
Inscrit le : Dim 13 Déc 2015, 16:27
Posté le : Dim 13 Nov 2016, 11:57
Programme : HEXADECIMAL
260 octets ( peu faire mieux mais moins esthétique )
Utilise les variables I , J , A , Q , R , F
La Liste L1
Code
DelVar L1
3 -> dim (L1
EffEcr
Imput "Nombre = ? ", A
For (J, 1 ,100
Parent (A/16) -> Q
A - (16 × Q) -> R
If A= 0
Goto 1
R-> L1 (J
Q-> A
End
Lbl 1
Output 4,1,"EN HEXADECIMAL :
16-> A
For(I,1,J-1
L1 (I) -> F
If F =< 9
Output ( 5,A,F
If F = 10
Output ( 5,A,"A
If F = 11
Output ( 5,A,"B
If F = 12
Output ( 5,A,"C
If F = 13
Output ( 5,A,"D
If F = 14
Output ( 5,A,"E
If F = 15
Output ( 5,A,"F
A -1 -> A
End
Pause
DelVar L1
0 -> R
0 -> I
0 -> J
" [2 espaces après le " ]
Voila !!!
Si vous avez des questions ou des remarques et si vous trouvez des bugs, dites le !!!
Bon dimanche à tous.
(Edit) pour ceux qui ont MirageOS, rajouter : avant le "DelVar", votre programme sera plus rapide !!!
---------------------- La programmation : l'avenir d'hier ...........
mes prgm pour ti82 : PrgmHEURE , PrgmCHRONOMÈTRE , PrgmQUITTER