Discussion :

[katassili]

Salut à tout le monde,

Je désire savoir comment on peut faire une confirmation de sortie d'une boucle telle que "Si vous désirez sortir appuyez sur Y" :

Code :

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

1
2
3
        write('if you want exit tape :Y =>');
	readln (i);
        until i='y';

Mais je désire ajouter un message de confirmation de sortie comme "si vous êtes sûr tapez encore y".

[katassili]

Je viens de trouver la solution, c'est tres simple :

Code :

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

1
2
3
4
        write('if you want exit tape :Y =>');
        write('are you sure :Y =>');
        readln (i);
        until i='y';

Le premier write('if you want exit tape :Y =>'); n'a aucune relation avec la commande mais elle est là pour nous faire croire à une 1ere question, mais la 2eme write('are you sure :Y =>'); c'est elle qui met fin à la boucle.
C'est ça la confirmation que je viens de déduire et ça marche.

merci

[Guesset]

Bonjour,

Sauf que ça ne marche pas.

Hormis le fait que le code va afficher les 2 messages avant même que l'utilisateur ait tapé quelque chose, on ne peut sortir que si il répond Y. S'il répond autre chose, on lui repose la même question jusqu'à ce qu'il finisse par taper "Y". Il n'a donc pas le choix. Normalement, s'il répond autre chose, il devrait revenir dans le corps principal du programme pour continuer son travail.

Par ailleurs on n'écrit pas un until sans mettre le repeat qui va avec.

Enfin, comme mentionné précédemment, on ne demande pas 'Y' pour n'accepter que 'y' ou on rend le code insensible à la casse (minuscules/majuscules).

Code Pascal :

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

1
2
3
4
5
6
7
8
9
10
11
12
function ExitControl : Boolean;
var c : Char;
begin
   write('if you want exit : "Y" ');
   readln (c);
   if (c = 'Y') or (c= 'y') then begin 
      write('Are you sure : "Y" ');
      readln (c);
      if (c = 'Y') or (c= 'y') then Exit(true); // True : oui je veux sortir
   end;
   Result := False; // Non je ne veux pas sortir
end;

Salutations

[Jipété]

Bonsoir,

Sauf que ça ne marche pas.

auquel cas il faudrait enlever le , qui ne peut qu'induire les lecteurs en erreur.

Y a-t-il un modo dans l'avion le forum ?