fonction nbchiffres(E n:entier, E base :entier):entier
{
        variable quotient, nbdivision : entier
        
        Si (n = 0) alors
        {
                nbdivision <-- 1
        }
        sinon
        {
                nbdivision <-- 0
                quotient <-- n
                
                Tant que (quotient !=0)
                {
                        quotient <-- quotient div base
                        nbdivision <-- nbdivision + 1
                }
        }
        
        retourne nbdivision
}


Algorithme Utilisation
{
        variable Nombre, base : entier
                 reponse : caractere

        repeter
        {
                Afficher("Veuillez saisir un nombre en base 10 :")
                Saisir(Nombre)
                
                Afficher("Veuillez saisir la base dans laquelle vous souhaitez représenter ce nombre :")
                Saisir(base)
                
                Afficher("Il faut ",nbchiffres(Nombre, base), " chiffres pour représenter ", Nombre, " en base ", base,".\n")
                
                Afficher("Voulez vous recommencer ? (O/N)")
                Saisir(reponse)
        } jusqu'à (reponse = 'N')

}