Conversion du décimal vers le DCB

Bonjour,

j'ai un problème : je veux un programme en Pascal qui convertit un nombre décimal vers le DCB (décimal codé en binaire) sur 4 bits. J'ai réfléchi mais je n'ai pas pu.

Bonjour !

Tu peux regarder cette discussion.

Sauf erreur de ma part, le plus grand nombre représentable avec 4 chiffres binaires est 15 (1111). La méthode de conversion consiste à rechercher les puissances de deux contenues dans le nombre.

Tu peux jeter un oeil ici aussi:
http://fr.wikipedia.org/wiki/Binary_coded_decimal

Je trouve néanmoins ce codage extrêmement débile, car on ne stocke que 100 nombres dans 8 bits, alors qu'on peut en mettre "naturellement" 256, d'où une énorme perte de place.
Et ca ne facilite pas forcément les algorithmes et la lecture/écriture de données... Mais comme cette méthode est encore enseignée......

Bonjour,

Pour décomposer un nombre entier en chiffres décimaux, il faut le diviser successivement par 10 et récupérer les restes successifs dans un octet. Forcément, les 4 bits de poids faible de cet octet contiendront le chiffre extrait.

S'il s'agit de conversion en packed BCD (2 chiffres par octet), il faut appliquer un décalage de 4 bits pour un chiffre sur deux (les puissances impaires de 10).

Exemple : la conversion de 94 en packed BCD (à généraliser pour des nombres supérieurs à 99 ;)) :

• Le résultat est mis à zéro ;
• Division de 94 par 10 : quotient = 9 et reste = 4 --> le reste est additionné au résultat ;
• Division du quotient (9) par 10 : quotient = 0 et reste = 9 --> le reste est décalé de 4 bits vers la gauche et additionné au résultat.

Il reste à transformer en pseudocode cette résolution faite sur papier puis à généraliser le principe dans une boucle. Des tests sur papier permettront de valider la solution ou d'en trouver une meilleure.
Pour terminer : on traduit le pseudocode en Pascal. 8-)

Citation:

---

Envoyé par Alcatîz

le reste est décalé de 4 bits vers la gauche et additionné au résultat

---

N'est-ce pas plutôt : le résultat est décalé de 4 bits et le reste est additionné au résultat ? :roll:

Autrement, voici une procédure qui peut aider à comprendre et à mettre en œuvre la solution expliquée par Alcatîz. :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

{ Ecrire en chiffres binaires la valeur d'une variable de type LongInt. }   program test;   procedure WriteBinaryDigits(li: longInt); var i: integer; s: string; begin s := '0000'; s := s + s; s := s + s; s := s + s;   {$Define Version1} for i := 32 downTo 1 do begin {$IfDef Version1} if li mod 2 = 1 then s[i] := '1'; li := li div 2; {$Else} if li and 1 = 1 then s[i] := '1'; li := li shr 1; {$EndIf} end;   for i := 0 to 3 do begin Write(Copy(s, 8 * i + 1, 8)); if i < 3 then Write(' '); end; end;   begin WriteBinaryDigits(255); ReadLn; end.

---

Citation:

---

00000000 00000000 00000000 11111111

---

Citation:

---

Envoyé par Roland Chastain

N'est-ce pas plutôt : le résultat est décalé de 4 bits et le reste est additionné au résultat ? :roll:

---

Non, puisque les digits sont déterminés de la droite vers la gauche : le premier digit trouvé est stocké dans les 4 bits de poids faible et le second dans les 4 bits de poids fort.

Citation:

---

Envoyé par Alcatîz

Non, puisque les digits sont déterminés de la droite vers la gauche : le premier digit trouvé est stocké dans les 4 bits de poids faible et le second dans les 4 bits de poids fort.

---

Merci Alcatîz. Je ne sais pas à quoi je pensais. :oops:

L'auteur de la discussion ne s'étant plus manifesté, je me permets de poster ce que j'ai fait :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66

program essaiDCB;   uses Crt;   procedure WriteLnBinaryDigits(l: longInt); const s1 = '00000000000000000000000000000000'; var i: integer; s2: string; begin s2 := s1; for i := 32 downto 1 do begin if l and 1 = 1 then s2[i] := '1'; l := l shr 1; end; for i := 1 to 8 do Write(Copy(s2, 4*i-3, 4), ' '); WriteLn; end;   function DCB(l: longInt; pckd: boolean): longInt; var i: longInt; { résultat } r: longInt; { reste de la division } m: longInt; { plus grande valeur représentable } j: integer; { compteur } n: integer; { nombre de chiffres décimaux traités } begin if pckd then begin n := 8; m := 99999999; end else begin n := 4; m := 9999; end; if l > m then l := m; i := 0; for j := 0 to n - 1 do begin r := l mod 10; l := l div 10; r := r shl ((32 div n) * j); i := i or r; end; DCB := i; end;   var i: longInt;   begin ClrScr; Write('Veuillez saisir un nombre entier : '); ReadLn(i); WriteLn; WriteLnBinaryDigits(i); WriteLnBinaryDigits(DCB(i, false)); WriteLnBinaryDigits(DCB(i, true)); WriteLn; WriteLn('Appuyez sur une touche...'); ReadKey; end.

---

En suivant le lien donné plus haut par wormful_sickfoot j'ai appris comment fonctionnait un afficheur à 7 segments : ça ferait un beau sujet d'exercice. Quelqu'un du forum s'y est-il déjà essayé ?

Ce serait intéressant de refaire avec FlashPascal cette animation. :)