Output est vide

Bonjour,

Sur le programme ci-dessous, quelle que soit la valeur initiale de A (même 482), la question sera au moins posée une fois (plus si vous désobéissez). Mais quand j'exécute le code en désobéissant, rien ne se passe. Quelqu'un peut svp m'expliquer pourquoi ?

Code:

---

1 2 3 4 5 6 7 8 9 10

PROGRAM jeu_simpliste (input,output); VAR a : integer; BEGIN writeln('Entrez le nombre 482'); REPEAT readln(a) UNTIL a = 482; writeln('C''est gentil de m''avoir obéi') END.

---

Bonjour !

Il se passe ce qui doit se passer, à savoir que le programme attend une nouvelle saisie. :)

Ce sera plus clair comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

PROGRAM jeu_simpliste (input, output);   VAR a : integer;   BEGIN //writeln('Entrez le nombre 482'); REPEAT writeln('Entrez le nombre 482'); readln(a) UNTIL a = 482; writeln('C''est gentil de m''avoir obéi') END

---

Merci, ca marche maintenant.

Je me permets de proposer deux petites améliorations : 1° le nombre est tiré au hasard 2° en cas de mauvaise réponse un message adapté s'affiche. ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

program JeuSimple(input, output);   uses SysUtils; // pour disposer de la fonction IntToStr()   var a : integer; n : integer;   begin Randomize; n := Random(1000); repeat WriteLn('Entrez le nombre '+IntToStr(n)+' !'); ReadLn(a); if a <> n then Write('J''ai dit : '); until a = n; WriteLn('C''est gentil de m''avoir obei.'); WriteLn('Appuyez sur la touche Entree...'); ReadLn; end.

---