Aide svp programme en pascal

É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. 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
    1. 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 :/ )