Exercice corrigé : Mini calculatrice + CASE + IF

Voilà un petit exercice sur les contrôles en Pascal.

Ecrire un programme qui saisit:

* un entier "X"
* un opérateur arithmétique "OP" de type "caractère" pouvant être {*,+,-,/}
* un entier "Y"

effectue l'opération X OP Y et affiche son résultat.

Exemple:

Code:

X  = 5
OP = +
Y  = 9
Résultat: 5 + 9 = 14

ou aussi

Code:

X  = -7
OP = /
Y  = 0
Résultat: erreur=division par zéro.

Bon courage.

Voilà un exemple de solution.

Code:

program calculette;

uses wincrt;

var

  X,Y: integer;
  op: char;

begin

    write('X = ');
    readln(X);

    write('OP = ');
    readln(OP);

    write('Y = ');
    readln(Y);



    case (OP) of

        '+' : writeln(X,' + ',Y,' = ',X+Y);

        '-' : writeln(X,' - ',Y,' = ',X-Y);

        '*' : writeln(X,' x ',Y,' = ',X*Y);

        '/' : if (Y<>0) then
                writeln(X,' / ',Y,' = ',(X/Y):2:3)
              else
                writeln('ERREUR: division par Zéro!');

    else

            writeln('OPERATION INCONNUE!');

    end;

end.

Des commentaires ?