Ecrire un programme qui affiche 'Hello World' à l'écran.

Solution : 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 : Voir le fichier Hello2.pas

program HelloWorld; (*On spécifie le nom du programme*)
begin (*Début du programme*)
  write('Hello World');
  readln;
end.

Version avec ReadKey :

Solution : Voir le fichier Hello3.pas

program HelloWorld; (*On spécifie le nom du programme*)
uses crt;
begin (*Début du programme*)
  write('Hello World');
  readkey;
end.

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éréquis : Emploi de l'instruction var (consultez l'aide dessus)

Solution : Voir le fichier Welcome1.pas :

program HelloWorld;
var
  name: string;
begin
  writeln('Entrez votre nom');
  readln(name);
  writeln('Bonjour ', name, ' et bienvenue!');
  readln;
end.

Remarque

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

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

Solution : Voir les fichiers Write1.pas puis Write2.pas :

program writewriteln;
begin
  write('Avec Write');
  writeln('Avec Writeln');
  readln;
end.

program writewriteln;
begin
  writeln('Avec Writeln');
  write('Avec Write');
  readln;
end.

On constate qu'à la différence de Write (puisqu'ils exécutent exactement les mêmes opérations), WriteLn fait un saut de ligne.

Ecrire trois programmes qui permettent d'affecter une valeur à une variable de type Char.

Solution : 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 ?