Exercices corrigés Pascal

Exercices corrigés PascalConsultez toutes les sources

Nombre d'auteurs : 3, nombre de sources : 49, dernière mise à jour : 6 mars 2008

Sommaire→Utilisation des instructions conditionnelles

Entiers pairs et impairs
Case of

Version hors-ligne

Entiers pairs et impairs

Ecrire un programme qui dit si oui ou non l'entier lu au clavier est pair ou impair.
Préréquis : Consultez l'aide sur la fonction Odd. Consultez ensuite l'aide sur not.

Solution : Voir le fichier Oddornot.pas :

Oddornot.pas

Cacher/Afficher le codeSélectionnez

program oddornot;
var
  valeur: integer;
begin
  writeln('Entrez la valeur de l''entier');
  readln(valeur);
  if (odd(valeur)) then
    writeln('Entier impair');
  if (not (odd(valeur))) then
    writeln('Entier pair');
  readln;
end.

Créé le 21 juillet 2004 par Giovanny Temgoua

Case of

Ecrire un programme qui affiche ce menu :

Effectuer une multiplication
Effectuer une addition
Effectuer une soustraction
Effectuer une division

Puis suivant le choix de l'utilisateur et utilisant des instructions if simples, afficher un message lui indiquant l'opération qu'il a choisie en respectant le modèle : 'Vous avez choisi une multiplication/division etc...'

Solution : Voir le fichier Switch1.pas :

Switch1.pas

Cacher/Afficher le codeSélectionnez

program switch1;
var
  valeur: integer;
begin
  writeln('1. Effectuer une multiplication');
  writeln('2. Effectuer une addition');
  writeln('3. Effectuer une soustraction');
  writeln('4. Effectuer une division');
  readln(valeur);
  if (valeur = 1) then
    writeln('Vous avez choisit la multiplication');
  if (valeur = 2) then
    writeln('Vous avez choisit la addition');
  if (valeur = 3) then
    writeln('Vous avez choisit la soustraction');
  if (valeur = 4) then
    writeln('Vous avez choisit la division');
 
  readln;
end.

Faire une variante de ce programme en utilisant le schéma if/then/else et en prévoyant un message au cas où une entrée incorrecte est faite.

Solution : Voir le fichier Switch2.pas :

Switch2.pas

Cacher/Afficher le codeSélectionnez

program switch2; 
var 
  valeur: integer; 
begin 
  writeln('1. Effectuer une multiplication'); 
  writeln('2. Effectuer une addition'); 
  writeln('3. Effectuer une soustraction'); 
  writeln('4. Effectuer une division'); 
  readln(valeur); 
  if (valeur = 1) then 
    writeln('Vous avez choisit la multiplication') 
  else if (valeur = 2) then 
    writeln('Vous avez choisit la addition') 
  else if (valeur = 3) then 
    writeln('Vous avez choisit la soustraction') 
  else if (valeur = 4) then 
    writeln('Vous avez choisit la division') 
  else 
    writeln(æChoix incorrectÆ); 
  readln;
end.

Faire une autre variante de Switch2 utilisant cette fois l'instruction case of.

Solution : Voir le fichier Switch3.pas

Switch3.pas

Cacher/Afficher le codeSélectionnez

program switch3;
var
  valeur: integer;
begin
  writeln('1. Effectuer une multiplication');
  writeln('2. Effectuer une addition');
  writeln('3. Effectuer une soustraction');
  writeln('4. Effectuer une division');
  readln(valeur);
 
  case valeur of
    1: writeln('Vous avez choisit la multiplication');
    2: writeln('Vous avez choisit la addition');
    3: writeln('Vous avez choisit la soustraction');
    4: writeln('Vous avez choisit la division');
  else
    writeln('Choix incorrecte');
  end;
 
  readln;
end.

Remarque :

Le case ... of se termine par un end;

Créé le 21 juillet 2004 par Giovanny Temgoua

Version hors-ligne