[Dev-Pascal] Boucle "while do" de procédures [Résolu]

[dpm6996]

Bonjour,

J'ai un "petit" problème avec une boucle de procédures que je dois réaliser.

Voici ma séquence principale :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
begin
  Initialiser;
  InitialiserDonnees;
  nomEtudiant1;
    while not (nomEtudiant = '****') do begin
      encoderEtudiant;
      CalculerResultats;
      AfficherResultats;
    end;
  CalculerResultatsClasse;
  AfficherResultatsClasse;
  Terminer
end.

Mon problème est que normalement, lorsque dans la procédure "nomEtudiant1" on donne comme nom "****" le programme doit passer à "CalculerResultatsClasse" mais le résultat est toujours le même => le programme ne s'arrête pas

Merci à ceux qui pourront m'aider à comprendre mon erreur

[Roland Chastain]

Je supprime ma réponse qui ne répondait pas au problème. La solution correcte se trouve dans le message de Paul TOTH.

[Paul TOTH]

je suppose que nomEtudiant1 demande le nom de l'étudiant...comme c'est fait en dehors de la boucle, le nom ne change jamais.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
begin
  Initialiser;
  InitialiserDonnees;
  nomEtudiant1;
    while not (nomEtudiant = '****') do begin
      encoderEtudiant;
      CalculerResultats;
      AfficherResultats;
 
      nomEtudiant1; // étudiant suivant !
 
    end;
  CalculerResultatsClasse;
  AfficherResultatsClasse;
  Terminer
end.

accessoirement, on pourra faire de nomEtudiant1 une fonction booléenne qui renvoie True si un nom est donné, et False dans les autres cas, et tester directement sa valeur dans le WHILE.

[dpm6996]

Un tout grand merci.

j'ai rajouter la procédure "nomEtudiant1" a la fin de ma boucle et tout fonctionne a merveille

[droggo]

Hoa,

On est dans un cas typique où la boucle à privilégier est repeat ... until :

On passe au moins une fois dans la boucle pour lire le premier nom, et avec un while, ça t'oblige à déporter cette 1ère lecture hors de la boucle, d'où l'erreur courante consistant à oublier d'ajouter à nouveau la lecture dans la boucle.

[Paul TOTH]

Envoyé par droggo

Hoa,

On est dans un cas typique où la boucle à privilégier est repeat ... until :

On passe au moins une fois dans la boucle pour lire le premier nom, et avec un while, ça t'oblige à déporter cette 1ère lecture hors de la boucle, d'où l'erreur courante consistant à oublier d'ajouter à nouveau la lecture dans la boucle.

oui mais ça ne change pas le double appel...

Code :

1
2
3
4
5
6
 
  premiernom;
  repeat
    traitement;
    nomsuivant;
   until nom='*****';

pour l'éviter il faut passer par une fonction.

Code :

1
2
3
 
  while nouveaunom do
    traitement;

EDIT: dans d'autres langages on écrirait l'équivalent de ceci qui n'est pas possible en Pascal

Code :

1
2
3
 
  while (nom := lirenom) <> '****' do
   traitement;

[droggo]

Hoe,

Code :

1
2
3
4
5
6
7
8
 
repeat
  nom := lire_nom;
  if nom <> '*****' then
  begin
     traiter
  end;
until nom = '*****';