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.
Ajouter un commentaire
Veuillez vous connecter pour ajouter un commentaire.
Pas encore de commentaires.