Comment Ca Marche l'informatique ?
Accueil
Forum
Aide
bordure
Page d'accueil
Ajouter aux favoris
Signalez une erreur
Ecrire à Jean-Francois Pillou
Introduction
Structure
Caractéristiques
Structures conditionnelles
Version 2.0.3
Les structures conditionnelles en Pascal Page précédente Retour à la page d'accueil

Les structures de boucle

Notre exemple avance. Maintenant, si nous désirons construire une phrase non plus avec trois mots, mais avec cinq, nous n'allons tout de même pas répéter notre code cinq fois !!!

Pour celà, il suffit d'utiliser une des structures de boucle. Il en existe trois : le For ... to ... do ... (pour <valeur initiale> jusqu'à <valeur finale> faire <ceci>, le while (tant que <condition>) et le repeat ... until (répète <çeci> jusqu'à <condition>).

Le For et le while sont utilisés quand on connait à l'avance le nombre de fois la boucle doit être exécutée. Dans le repeat ... until la condition de fin de boucle est à la fin, et on l'utilise quand la boucle doit au moins être parcourue une fois.

Notre exemple avec un For :

Program MonDeuxiemeProg;

function ConstruitPhrase(phrase:string):string;
var s : string;
begin
  readln(s);
  ConstruitPhrase:=phrase+', '+s;
end;

var
  Phrase : string;
  i : integer;
begin
  Phrase:='';  {initialiser à chaine vide}

  for i:=1 to 3 do begin
    writeln('Entrez un mot :');
    Phrase:=ConstruitPhrase(Phrase);
  end;

  {afficher le résultat}
  writeln('La phrase complète est :');
  writeln(Phrase);

  writeln('Appuyer sur <entrée> pour quitter');
  readln;
end.

Tout ce qui est entre le begin et le end du For est exécuté en boucle. N'oubliez pas la déclaration de notre nouvelle variable i.

Avec un while :

  [...]

  i:=1;  {initialiser i}
  while i<>3 do begin
    writeln('Entrez un mot :');
    Phrase:=ConstruitPhrase(Phrase);
    inc(i);  {incrémente i à chaque tour}
  end;

  {afficher le résultat}
  [...]
end.

ATTENTION : Dans ce cas vous voyez que vous êtes vous-même obligé d'incrémenter votre compteur i. Ne pas oublier d'initialiser votre variable ni de l'incrémenter sinon votre programme tournera indéfiniment.

Avec un repeat

  [...]

  i:=1;  {initialiser i}
  repeat
    writeln('Entrez un mot :');
    Phrase:=ConstruitPhrase(Phrase);
    inc(i);  {incrémente i à chaque tour}
  until i>3;

  {afficher le résultat}
  [...]
end.

On voit bien que dans ce cas, le plus efficace est le For. Mais alors, pourquoi utiliser un while ? Et bien parce que on ne peut mettre dans une boucle For qu'un compteur. Dans un while ou un repeat, la condition pourrait être quelque chose de plus complexe, comme par exemple :

while length(phrase) <= 100; {

execute la boucle tant que la longueur de la variable phrase

}

                                              

{ne dépasse pas 100 caractères}

ou encore : 

until length(phrase) > 100; {

    termine la boucle si la longueur de la variable phrase

}

                                           

{dépasse 100 caractères}

Si on change les règles du jeux, et que l'on veut demander à l'utilisateur quand il désire s'arrêter, on pourrait utiliser un repeat :

  [...]

var
  Phrase : string;
  reponse : char;  {contiendra un caractère}
begin
  Phrase:='';  {initialiser à chaine vide}
  repeat
    writeln('Entrez un mot :');
    Phrase:=ConstruitPhrase(Phrase);
    writeln('Voulez-vous continuer ? (entrez o pour continuer) ');
    readln(reponse);
  until Upcase(reponse)<>'O';  {différent de o ou O}

  {afficher le résultat}
  [...]
end.

 

Structures de test

Alors, reste un petit problème que vous aurez forcément remarqué : notre phrase commence toujours par une virgule !

Pour corriger ça, il suffit simplement de n'ajouter la virgule que si la chaine n'est pas vide. c'est là toute l'utilité des tests


[...]
function ConstruitPhrase(phrase:string):string;
var s : string;
begin
  readln(s);
  if phrase = '' then
    ConstruitPhrase:=s
  else
    ConstruitPhrase:=phrase+', '+s;
end;
[...]

Ce qui se traduit en gros  par :

Si phrase est vide alors
  mettre s dans phrase
sinon
  ajouter s à phrase et mettre le tout sans phrase

Remarquez qu'il n'y a pas de point-virgule après la ligne phrase:=phrase+s. En effet, l'instruction du If ne se termine qu'après le else.

On peut aussi utiliser un if sans else :


[...]
function ConstruitPhrase(phrase:string):string;
var s : string;
begin
  readln(s);
  if phrase <> '' then
    phrase:=phrase+', ';
  ConstruitPhrase:=Phrase+s;;
end;
[...]

Article écrit par Thierry Cornu

Ce document issu de CommentCaMarche.net est soumis à la licence GNU FDL. Vous pouvez copier, modifier des copies de cette page tant que cette note apparaît clairement.