Problème boucle read

Bonsoir,
J'ai un petit soucis lors d'une phase de test dans mon programme :

Code:

---

1 2 3 4 5

Repeat writeln('Voulez-vous rejouer? '); read(r); Until ((r='oui') or (r='non')); rejouer:=(r='oui');

---

Lorsque je teste pour savoir si l'utilisateur s'est trompé en ne mettant ni oui nin non, la boucle ne marche pas! En effet en essaytn de mettre non ou oui, jusqu'ici tout se passe bien mais lorsque l'utilisateur rentre autre chose, on voit s'afficher "Voulez-vous rejouer? " en boucle sans attente de l'utilisateur...Auriez-vous une idée de résolution du problème?
Je vous remercie par avance,
Gérard

bonjour et bienvenu
change ton read en readln (plus conseillé pour ces genres d'utilisation) cf http://cyberzoide.developpez.com/info/turbo/chap1.php3
@+

voila ce lien super pour voir la difference
http://physinfo.ulb.ac.be/cit_course...CAL/pas011.htm

Je tenais à vous remercier tout d'abord pour votre aide aussi rapide et pendant que je suis lancé j'aurais une nouvelle question...lorsque mon programme attend un entier comme donnée read et que l'utilisateur renvoie une chaîne de caractère par exemple, TP va renvoyer automatiquement un message d'erreur et fermera le programme. J'aurais voulu savoir la commande pour empêcher cette erreur et de l'utiliser pour marquer mon propre message d'erreur et forcer l'utilisateur à rerépondre. Sur TI en basic j'utilisais la fonction loop et je me débouillais après selon le code de l'erreur mais je ne suis pas encore assez avancé pour connaître toutes les fonctions de TP. Je m'en réfère à votre aide. Merci par avance!

Bonjour
je vois ce que tu veux ,et pour faire ce que tu dis il faut que tu reecrive la procedure read ou plutot ecrire une fonction qui te permet de lire les entiers

voila j'ai une soluttion pour toi il faut utiliser IOresult pour savoir si ce que tu veux s'est bien passé mais avant ça il faut desactiver le controle des entrees/Sorties en utilisant {$I-} si tu veux plus d'expliquation regarde dans l'aide en ligne de Turbo Pascal

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

{Fonction pour lire un entier au clavier} function lireEntier(nb:integer):integer; begin {Pour pouvoir intercepter les erreurs d'E/S par IOResult, il faut désactiver le contrôle des E/S } {$I-} readln(nb);{Lecture de l'entier} {Au cas ou il s'agirait pas d'un entier reitérer la demande} while (IOresult<>0) do begin write('Entrer un entier:'); readln(nb); end; lireEntier:=nb;{Affecter l'entier lu finalement} end;

---

voila j'espere t'avoir aidé?
@+

Merci énormément de ton aide ;) C'est vraiment très gentil! J'ai toujours pris l'habitude de résoudre mes problèmes d'algo tout seul mais cette fois-ci le délai était un peu court! Donc merci encore!

Citation:

---

Merci énormément de ton aide C'est vraiment très gentil!

---

il y a pas de quoi ;);)