// Procédure globale VersBinaire : DECIMAL -> CHAINE de 010011
FUNCTION VersBinaire(NOMBRE)
ch est une chaîne
nb est un entier long

nb = NOMBRE

ch = ""
TANTQUE nb > 0
SI Modulo(nb,2) ALORS
ch = "1" + ch
SINON
ch = "0" + ch
FIN
nb = nb/2
FIN
RENVOYER Ch

// Procédure globale BinaireVersChaine : CHAINE de 010011 -> DECIMAL
cBin est une chaîne = CHAINEBINAIRE
i est un entier
j est un entier
eDecimal est un entier
eTemp est un entier

pour i = Taille (cBin) à 1 pas -1
eTemp = 2*Val (cBin[[i à i]])
SI eTemp ALORS
eDecimal += Puissance (eTemp,j)
FIN
j++
FIN

RENVOYER eDecimal