Boucle "while do" de procédures

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 ;)

Je supprime ma réponse qui ne répondait pas au problème. La solution correcte se trouve dans le message de 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.

Un tout grand merci.

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

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.

:)

Citation:

---

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;

---

Hoe,

Code:

---

1 2 3 4 5 6 7 8

repeat nom := lire_nom; if nom <> '*****' then begin traiter end; until nom = '*****';

---

:)