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.
Ajouter un commentaire