Le prog doit refaire des instructions +haut Fermé

Question

--EN PASCAL, dans L'environnement Delphi7--

ben voilà, je demande à l'utilisateur de faire un choix, s'il répond oui, le programme doit remonter de quelque lignes et refaire l'exécution de celles-ci

le problème, c'est que j'ai aucune idée comment faire ça

Une Exemple de ce que j'ai

-----------------------------

//L'EXÉCUTION recommence ICI//
Writeln ('Combien de cinemas sont ouverts???');
Readln (NbCinemas);
If NbCinemas = 0
Then Begin
Writeln ('Aucun cinema d"ouverts');

Repeat
Writeln ('Voulez-vous regarder pour un autre complexe?(O/N');
Readln (Choix);
Choix := Upcase(Choix);
If Choix = 'O'
Then

//INSÉREZ CODE POUR FAIRE REMONTER ET RECOMMENCER L'EXÉCUTION ICI//

Else If Choix = 'N'
Then
Exit

Else Writeln('Mauvaise touche')
UNTIL (choix='O') OR (choix='N');

End
-----------------

j'espère que vous pouvez m'aider, je suis sûr que c vraiment stupide, mais ça commence à me rendre fou,
Merci d'avance

Alex

teebo · Answer

Salut,
Tu n'aurais pas fait du Basic par le passe?
Tu en as garde un mauvais reflexe :o)

Tu dois faire un truc du genre (il faut chercher les commandes en Pascal je ne me souvient plus):


Do

   Writeln ('Combien de cinemas sont ouverts???');
   Readln (NbCinemas);
   If NbCinemas = 0
   Then Begin
   Writeln ('Aucun cinema d"ouverts');

   Repeat
   Writeln ('Voulez-vous regarder pour un autre complexe?(O/N');
   Readln (Choix);
   Choix := Upcase(Choix); 

While (Choix=="O")

Exit

. . C'est quoi une signure
\_/

Alex D. · Answer

ah, j'y ai pensé à faire ça, mais je me suis dit que ça ne fonctionnerait paslol, ok, je vais regarder ça, merci

Alex D. · Answer

ugh, à moins que je ne le fais pas correctement, je n'arrive pas à faire fonctionner ça...:(

Le prog doit refaire des instructions +haut

3 réponses

Discussions similaires