1. Accueil
  2. EXERCICES
  3. Langage Pascal_Exercices
  4. Equivalent Binaire | Langage Pascal

Equivalent Binaire | Langage Pascal

Écrire Programme Pascal qui lit un nombre décimal et affiche son équivalent binaire.

Principe : La conversion d'un nombre décimal en nombre binaire (en base B = 2),reviens à faire des divisions entières successives par 2 jusqu'à ce que le quotient devienne nul.Le résultat obtenue sera la juxtaposition des restes.Remarques: bit de poids le plus fort correspondant au reste obtenu à l'ultime étape de la division.

Exemple :  (65)10 = (01000001)2.

CORRECTION

Program EquivalentBinaire;

Const N = 8;//L'élément est codeé sur 8 bits
Var nb,d, i: Integer;
  T: Array[1..N] Of Integer;
Begin
  //www.pandacodeur.com
  For i:=1 To N Do
    T[i] := 0;
  Writeln('entrez le nombre dont vous souhaitez avoir l''équivalent binaire');
  Readln(nb);
  If (nb<0) Then
    T[1] := 1;
  i := N;
  //www.pandacodeur.com
  Repeat
    T[i] := Abs(nb) Mod 2;
    d := nb Div 2;
    nb := d;
    i := i-1;
  Until (nb=0);
  Writeln('l''éqivalent binaire de votre nombre est:');
  For i:=1 To N Do
    Writeln(T[i]);
  //Plus d'exercices corriges sur le site :
  //www.pandacodeur.com
End.

 

★ ★ ★ ★ ★
1 vote. Moyenne 5 sur 5.

Ajouter un commentaire

Anti-spam