Correction

Fermé
arnaul2 Messages postés 103 Date d'inscription mercredi 22 juillet 2009 Statut Membre Dernière intervention 13 février 2014 - 26 sept. 2012 à 20:06
arnaul2 Messages postés 103 Date d'inscription mercredi 22 juillet 2009 Statut Membre Dernière intervention 13 février 2014 - 27 sept. 2012 à 21:10
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!




1 réponse

KX Messages postés 16668 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 17 mars 2023 3 004
27 sept. 2012 à 17:28
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.
0
arnaul2 Messages postés 103 Date d'inscription mercredi 22 juillet 2009 Statut Membre Dernière intervention 13 février 2014 1
27 sept. 2012 à 21:10
Merci KX! comme je suis un novice je crois que j'aurai encore besoin de toi pour faire un bon programme avec des animations et tous les blocages!
Merci encore!
;)
0