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)

        Si (operateur = '+') alors
        {
                res <-- op1 + op2
        }
        sinon
        {
                Si (operateur = '-') alors
                {
                        res <-- op1 - op2
                }
                sinon
                {
                        Si (operateur = '*') alors
                        {
                                res <-- op1 * op2
                        }
                        sinon
                        {
                                Si (operateur = '/') alors
                                {
                                        Si (op2 = 0) alors
                                        {
                                                Afficher("division par zéro impossible")
                                                erreur <-- VRAI
                                        }
                                        sinon
                                        {
                                                res <-- op1 / op2
                                        }
                                }
                        }
                }
        }
        Si (NON(erreur)) alors
        {
                Afficher("Le résultat est : ", res,".\n")
        }
}