Correction
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!
--
La connaissance parle , la sagesse écoute
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!
--
La connaissance parle , la sagesse écoute
1 réponse
-
ModérateurLorsque 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.
