Algorithmes et programmation en Pascal

Sommaire > Intervalles et enregistrements > Suggestions d'exercices supplémentaires
Procédures
Programme mystère

Dans tous les exemples du [LIEN]cours sur les procédures[/LIEN], regarder ce qui se passe quand on met ou on enlève le var devant un paramètre.

Programme mystère

[haut]

auteur : Edouard Thiel

Que fait ce programme ?


PROGRAM abyz;

VAR 
  d : Char;

PROCEDURE change (var c : char);
BEGIN
  if (c >= 'a') and (c <= 'z')
  then c := chr (ord('a') + ord('z') - ord(c));
END;

BEGIN
  Read (d);
  while d <>> '.' do
    begin 
      change (d); 
      write (d);
      read (d);
    end;
  ReadLn;
END.

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.