Exercice 8 Procédures et Fonctions Corrigé

Ecrire une fonction BIN permettant de convertir un entier positif du décimal au binaire.

Fonction BIN(X :entier) :entier ;

Var R,P :entier ;
Debut
P ← 1 ; BIN ← 0 ;
Repeter
R ← X mod 2 ;
BIN ← BIN + R*P ; P ← P*10 ;
X ← X div 2 ;
Jusqu’à X=0 ;
 
Fin.

Ajouter un commentaire

Veuillez vous connecter pour ajouter un commentaire.

Pas encore de commentaires.