Sur le code ci dessus l'expression '' se répete meme si le programme vient a sa fin et donne le resultat correcte! svp, comment éliminer cela?
L'exercice était de faire un jeu qui demande de trouver le nombre entre 0 et 10 choisi par l'ordinateur (en comptant les coups) et en aidant le joueur (en précisant si c'est plus ou c'est moins).
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
18 PROGRAM jeu_bis (input, output); VAR choix, rep, nb : integer; BEGIN nb := 0; choix := random(11); repeat nb := nb + 1; writeln('Choix ndeg. ',nb,' ? '); readln(rep); BEGIN IF rep > choix THEN writeln ('donne un nombre plus petit'); IF rep < choix THEN writeln ('donne un nombre plus grand'); {la question concerne cette ligne} END; until rep = choix; writeln('Trouvé en ',nb,' coups'); READLN;READLN; END.
Partager