Discussion :

[gregnon171]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[krachik]

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

[krachik]

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

[gregnon171]

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!

[krachik]

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

[krachik]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é?
@+