Developpez.com - Pascal
X

Choisissez d'abord la catégorieensuite la rubrique :

logo
Sommaire > Utilisation des entrées/sorties
         Hello World !
         WriteLn et ReadLn
         Write et WriteLn



Hello World !
Auteur : Giovanny Temgoua
Exercice Ecrire un programme qui affiche 'Hello World' à l'écran.
 
Voir le fichier Hello1.pas.

Afficher ou masquer la solution

Program HelloWorld; (*On spécifie le nom du programme*)
Begin (*Début du programme*)
  Write('Hello World');
End.
									
Exercice Modifier le programme précédent pour qu'il vous permette de voir la sortie.
  Indication :

Consultez l'aide sur la procédure ReadLn ainsi que ReadKey. Dans le cas de ReadKey, voir à quelle unité elle appartient et modifier le programme en conséquence.

 
Solution avec ReadLn : Voir le fichier Hello2.pas.

Afficher ou masquer la solution

Program HelloWorld; (* On spécifie le nom du programme *)
Begin (* Début du programme *)
  Write('Hello World');
  ReadLn;
End.
									
 
Solution avec ReadKey : Voir le fichier Hello3.pas.

Afficher ou masquer la solution

Program HelloWorld; (* On spécifie le nom du programme *)
Uses Crt;
Begin (* Début du programme *)
  Write('Hello World');
  ReadKey;
End.
									
Téléchargement : hello1.zip
Téléchargement : hello2.zip
Téléchargement : hello3.zip

WriteLn et ReadLn
Auteur : Giovanny Temgoua
Exercice Ecrire un programme qui demande le nom de l'utilisateur et affiche un message pour lui souhaiter la bienvenue.
  Exemple :

On entre 'Jean' et le programme affiche 'Bonjour Jean, et bienvenue !'.

Prérequis :

Emploi de la directive var (consultez l'aide dessus).

 
Voir le fichier Welcome1.pas.

Afficher ou masquer la solution

Program Welcome;
Var name : String;
Begin
  WriteLn('Entrez votre nom');
  ReadLn(name);
  WriteLn('Bonjour ',name,', et bienvenue!');
  ReadLn;
End.
									
  Explications :

Vous n'arrivez pas voir le résultat de votre travail lorsque vous lisez la variable avec Read ? Normal, en fait, la lecture avec Read se termine avec le caractère de fin de ligne, celui-ci étant exclu; et le prochain appel de Read (ou ReadLn comme dans notre cas) commencera par la lecture de ce caractère (dont le code ASCII vaut 13 en passant) et c'est cela qui met fin à l'exécution du programme et nous empêche ainsi de voir le résultat.

Téléchargement : welcome1.zip

Write et WriteLn
Auteur : Giovanny Temgoua
Exercice Ecrire un programme qui utilise successivement les instructions Write et WriteLn pour écrire la même chaîne de caractères; puis inverser les instructions Write et WriteLn.
  Que remarquez-vous ? Concluez...

 
Voir les fichiers Write1.pas puis Write2.pas.

Afficher ou masquer la solution Write1.pas

Program Write1;
Begin
  Write('Avec Write');
  WriteLn('Avec WriteLn');
  ReadLn;
End.
									
Afficher ou masquer la solution Write2.pas

Program Write2;
Begin
  WriteLn('Avec WriteLn');
  Write('Avec Write');
  ReadLn;
End.
									
  On constate qu'à la difference de Write (puisqu'ils exécutent exactement les mêmes opérations), WriteLn fait un saut de ligne.

Téléchargement : write1.zip
Téléchargement : write2.zip

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 et 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.

Responsables bénévoles de la rubrique Pascal : Gilles Vasseur - Alcatîz -