Ecrire un algorithme permettant de convertir un entier N écrit sous forme binaire en sa valeur décimale.
Exemple : N =10111010
après conversion on obtient valeur décimale = 186
Algorithme conversion ;
Var VB,B,D,P2 :entier ;
Debut
Ecrire(‘Donner un entier en binaire’) ;
Repeter Lire(VB) Jusqu’à VB>=0 ;
B ← VB ; / sauvegarde de VB pour affichage
P2 ← 1 ; / P2 contient la puissance de 2, initialement 20=1
D ← 0 ;
Repeter
D ← D + (B MOD 10)*P2 ; / récupérer le coefficient= le chiffre le plus à droite du nombre
P ← 2 * P2 ; / calcul de la puissance suivante de 2
B ← B DIV 10 ; / pour passer au coefficient suivant
Jusqu’à B=0 ;
Ecrire(‘La valeur décimale de ‘, VB, ‘ est : ‘,D) ;
Fin.
Ajouter un commentaire
Veuillez vous connecter pour ajouter un commentaire.
Pas encore de commentaires.