Aide svp programme en pascal

axel20012 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
nicocorico Messages postés 846 Statut Membre -
É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.

2 réponses

  1. hadir kb
     
    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
  2. nicocorico Messages postés 846 Statut Membre 138
     
    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