Le prog doit refaire des instructions +haut
Alex D.
-
Alex D. -
Alex D. -
--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
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
3 réponses
-
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
\_/ -
ah, j'y ai pensé à faire ça, mais je me suis dit que ça ne fonctionnerait pas
lol, ok, je vais regarder ça, merci -
ugh, à moins que je ne le fais pas correctement, je n'arrive pas à faire fonctionner ça...
:(
