Aide svp programme en pascal

Fermé
axel20012 Messages postés 2 Date d'inscription mardi 24 janvier 2012 Statut Membre Dernière intervention 26 décembre 2012 - 24 déc. 2012 à 15:18
nicocorico Messages postés 799 Date d'inscription dimanche 19 juin 2011 Statut Membre Dernière intervention 3 juillet 2018 - 23 janv. 2013 à 21:48
Écrire le programme PASCAL qui convertit 10 nombres entiers, pris aléatoirement dans l'intervalle de 1 à 5000, en binaire, en décimal codé binaire(DCB) puis en chiffres romains.

En décimal codé en binaire (DCB), chaque chiffre décimal est écrit en binaire sur 4 bits.

Exemples (147)10 = (0001 0100 0111)BCD et (23,15)10 = (0010 0011,0001 0101)BCD
Les codes ASCII des chiffres décimaux vont de 48 à 57.
A voir également:

2 réponses

Salam,
je vous donne la solution en algorithme :)
pour i de 1 à 10 faire
x<--aléa(5000) + 1
b<--""
repeter
r<-- x mod 2
convch(r,c)
b<-- c + b
x<-- x div 2
jusqu'à (x=0)
b<--"0"+b
valeur(b,y,e)
ecrire(x,"(10)=",y,"(DCB))
fin pour
(c'est de de décimal en binaire mais pour la reste je n'ai pas compris :/ )
0
nicocorico Messages postés 799 Date d'inscription dimanche 19 juin 2011 Statut Membre Dernière intervention 3 juillet 2018 138
Modifié par nicocorico le 23/01/2013 à 21:51
Pour le dcb il te suffit d'isoler chaque chiffre en décimal(Div et Mod 10 donc) puis de les ré-agglomérer en occupant 4 bits, c'est à dire en multipliant par 16 au lieu de 10.

Le chêne aussi était un gland, avant d'être un chêne
0