correction

Question

Bonjour, 
Dans le programme qui suis en Dev Pascal, j'ai un problème avec Goto et Else...
Program        Jeu;

     var
     name: string [10];
     nombre, juste,a,b: integer;

begin
     juste:= 25650;
     a:=5;
     b:=5;

     GOTOXY(a,b);

     Writeln (' BIENVENUE AU JUSTE PRIX ');
     writeln;
     Write ('comment vous appelez vous?   ');
     readln (name);
     writeln;
     writeln ('Suivez bien les intructions ' , name );
     writeln;
     writeln;
     writeln(' VOUS DEVEZ TROUVER UN NOMBRE QUI SE SITUE ENTRE 0 ET 30000');
     writeln;

     writeln (' Vous avez 30 secondes ---- top c''est parti');
     repeat
           writeln;
           readln (nombre);
           writeln;
           writeln;

          if nombre < juste then

             writeln ( ' c''est plus') ;
             writeln
          else
            writeln ( ' c''est moins');
            writeln;


     Until nombre=juste;

     if nombre = juste then
     writeln(' VOUS AVEZ GAGNE  !!!!!!!! ');


 readln;

end.


Merci de votre aide!



Configuration: Windows 7 / Chrome 17.0.963.56

KX · Answer

Lorsque tu as plusieurs instructions à exécuter dans le même then, il faut les encadrer par begin end :

If nombre < juste
Then Begin
     writeln('c''est plus');
     writeln;
     End
Else Begin
     writeln ( ' c''est moins');
     writeln;
     End;
Pour ton GotoXY, je ne vois pas l'intérêt, tu dois pouvoir le supprimer.

Correction

1 réponse

Discussions similaires

Newsletters