Algorithme Calculatrice
{
        variable op1,op2,res : réel
                 operateur : caractere
                 erreur : logique
        
        erreur <-- FAUX
            
        Afficher("Donner la valeur du premier opérande : ")
        Saisir(op1)
        Afficher("Donner l'opérateur (+ - * ou /) : ")
        Saisir(operateur)
        Afficher("Donner la valeur du deuxième opérande : ")
        Saisir(op2)

        
        Selon (operateur)
        {
                '+' : res <-- op1 + op2
                '-' : res <-- op1 - op2
                '*' : res <-- op1 * op2
                '/' : 
                        Si (op2 = 0) alors
                        {
                                Afficher("division par zéro impossible")
                                erreur <-- VRAI
                        }
                        sinon
                        {
                                res <-- op1 / op2
                        }
                sinon : Afficher("Vous vous êtes trompé d'opérateur.\n")
                        erreur <-- VRAI

        }
        Si (NON(erreur)) alors
        {
                Afficher("Le résultat est : ", res,".\n")
        }
}