[Free Pascal] Ligne qui se répète mais qui n'est pas nécessaire

[Jijidev]

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?

Code :

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.

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).

[Paul TOTH]

je ne vois pourtant pas d'erreur, juste un BEGIN/END qui ne sert à rien autour des deux IF

[Roland Chastain]

Soit dit en passant, c'est la troisième discussion que tu ouvres pour le même (petit) programme. Autant continuer la même discussion.

[Jijidev]

Pour Paul: merci, cela marche maintenant, pourtant j'ai rien modifier depuis hier.
Pour Roland: ce n'est pas le même programme .

[droggo]

Koa,

Envoyé par Jijidev

Pour Paul: merci, cela marche maintenant, pourtant j'ai rien modifier depuis hier.
Pour Roland: ce n'est pas le même programme .

Mais si, c'est bien le même programme, il ne s'agit que d'évolutions du prog de départ, donc à suivre dans le même sujet.