[Free Pascal] Output est vide [Résolu]

[Jijidev]

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.

[Roland Chastain]

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

[Jijidev]

Merci, ca marche maintenant.

[Roland Chastain]

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.