Exercices corrigés Pascal

Sommaire > Utilisation des instructions conditionnelles
Entiers pairs et impairs
Case of

	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.
	Voir le fichier Oddornot.pas.


Program oddornot;
Var
  valeur : Integer;
Begin
  WriteLn('Entrez la valeur de l''entier');
  ReadLn(valeur);
  if (Odd(valeur)) then
    WriteLn('Entier impair');
    { On ne met volontairement pas le else ;) }
  if (not (odd(valeur))) then
    WriteLn('Entier pair');
  ReadLn;
End.

lien : oddornot.zip

Case of

[haut]

auteur : Giovanny Temgoua

	Ecrire un programme qui affiche ce menu : 1. Effectuer une multiplication 2. Effectuer une addition 3. Effectuer une soustraction 4. Effectuer une division En utilisant des instructions if simples, suivant le choix de l'utilisateur, afficher un message lui indiquant l'opération qu'il a choisie : 'Vous avez choisi une multiplication / division / etc'.
	Solution : voir le fichier Switch1.pas


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 choisi la multiplication');
  if (valeur = 2) then
    WriteLn('Vous avez choisi la addition');
  if (valeur = 3) then
    WriteLn('Vous avez choisi la soustraction');
  if (valeur = 4) then
    WriteLn('Vous avez choisi 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


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 choisi la multiplication') 
  else if (valeur = 2) then
    WriteLn('Vous avez choisi la addition') 
  else if (valeur = 3) then
    WriteLn('Vous avez choisi la soustraction') 
  else if (valeur = 4) then
    WriteLn('Vous avez choisi 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


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);

  case valeur of
    1: WriteLn('Vous avez choisi la multiplication');
    2: WriteLn('Vous avez choisi la addition');
    3: WriteLn('Vous avez choisi la soustraction');
    4: WriteLn('Vous avez choisi la division');
  else
    WriteLn('Choix incorrect');
  end;

  ReadLn;
End.

lien : switch1.zip
lien : switch2.zip
lien : switch3.zip

Consultez les autres F.A.Q's

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2010 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site ni de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.