Exercices corrigés Pascal

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

Hello World !

[haut]

auteur : Giovanny Temgoua

	Ecrire un programme qui affiche 'Hello World' à l'écran.
	Voir le fichier Hello1.pas.


Program HelloWorld; (*On spécifie le nom du programme*)
Begin (*Début du programme*) 
  Write('Hello World'); 
End.

	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.


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.


Program HelloWorld; (* On spécifie le nom du programme *)
Begin (* Début du programme *) 
  Write('Hello World');
  ReadKey; 
End.

lien : hello1.zip
lien : hello2.zip
lien : hello3.zip

WriteLn et ReadLn

[haut]

auteur : Giovanny Temgoua

	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.


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.

lien : welcome1.zip

Write et WriteLn

[haut]

auteur : Giovanny Temgoua

	Ecrire un programme qui utilise successivement les instructions Write et WriteLn pour écrire la même chaîne de caractères ; puis inversez les instructions Write et WriteLn. Que remarquez-vous ? Concluez...
	Voir les fichiers Write1.pas puis Write2.pas.


Program Write1;
Begin
  Write('Avec Write');
  WriteLn('Avec WriteLn');
  ReadLn;
End.


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.

lien : write1.zip
lien : write2.zip

Write et WriteLn

[haut]

auteur : Giovanny Temgoua

	Ecrire trois programmes qui permettent d'affecter une valeur à une variable de type Char.
	Voir les fichiers Readkey1.pas, Readkey2.pas et Readkey3.pas.


Program Readkey1;
Var
  c : Char;
Begin
  WriteLn('Entrez la valeur');
  Read(c);
End.


Program Readkey2;
Var
  c : Char;
Begin
  WriteLn('Entrez la valeur');
  ReadLn(c);
End.


Program Readkey3;
Var
  c : Char;
Begin
  WriteLn('Entrez la valeur');
  c := ReadKey;
End.

Pouvez-vous lire plus d'un caractère avec Read ? ReadLn ? ReadKey ?

lien : readkey1.zip
lien : readkey2.zip
lien : readkey3.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.