Algorithme Calcul_Puissance
{

        variable a : réel
                 b : entier
                 reponse : caractere
                 puis : réel
                 
         répeter
         {
                Afficher("Entrez le nombre réel que vous voulez élever à la puissance : ")
                Saisir(a)
                Afficher("Entrez la puissance (positive) ")
                Saisir(b)
                
                puis <-- puissance(a,b)
                
                Afficher(a,"^",b,"=",puis,".\n")
         
         
                Afficher("Voulez vous recommencer O/N ? ")
                Saisir(reponse)
         } jusqu'à (reponse = 'N')

}