fonction puissance(E X: réel, E n: entier): réel
{
        variable i : entier
                 p : réel
        
        p <-- 1
        Si ((X=0) ET (n != 0)) alors
        {
                p <-- 0
        }
        sinon
        {
                Pour i de 1 à n par pas de 1
                        p <-- p * X
        }
        retourne p                
}


Algorithme Utilisation_de_Puissance
{
        variable n1 : entier
                 x : réel
                 reponse : caractere
         
         
         repeter
         {        
                 Afficher("Veuillez saisir le premier nombre à élever à la puissance :")
                 Saisir(x)
                 Afficher("Veuillez saisir la puissance :")
                 Saisir(n1)
        
                 Afficher(x,"^",n1,"=", puissance(x,n1),"\n")
                 
                 Afficher("Voulez vous recommencer ? (O/N)")
                 Saisir(reponse)
         jusqu'à (reponse='N')
}