Aide pour Pascal

mazdakzar

mazdakzar

General Kenobi
Salut,

je dois faire un travail pour l'école avec le langage Pascal, voila ce que je dois obtenir :

-entrez un chiffre entre 1 et 10
5
-perdu, veuillez ressayer
10
-gagner !
Cliquez pour agrandir...
je dois faire en sorte qu'après 5 essaie si le chiffre n'est pas trouver le programme se ferme, et si on trouve avant, bah sa ferme avant :-D

Mais voila j'ai du mal avec la "boucle while" , dev pascal ne veut pas compiler, quelqu'un peu m'aider ?


PHP: 
program jeu (input, output);

var chif1, arret : integer;

begin

writeln ('Vous avez 5 essaie pour trouver le bon chiffre qui est entre 1 et 10');

writeln ('entrez un chiffre');
readln (chif1);

arret := 1

while (arret < 5) do
 begin

 if chif1 = 5 then
   begin

   writeln ('bravo vous avez trouver le bon chiffre !');

   end;

 else
   begin

   writeln ('perdu, recommencez');
   arret = arret +1;

   end;

 end;

writeln; ('La partie est fini, vous avez perdu');

readln;

end.




Merci !!
 
Placebo

Placebo

Bloups fan
program jeu (input, output);

var chif1, arret, but : integer;

begin

writeln ('Vous avez 5 essaie pour trouver le bon chiffre qui est entre 1 et 10');

but := 5 ; // chiffre a trouver.

arret := 1;

chif1:=-1;

while (chif1<>but) and ( arret <5 ) do
begin
writeln ('entrez un chiffre');

readln (chif1);

if chif1 = but then
begin

writeln ('bravo vous avez trouver le bon chiffre !');

end//;

else
begin

writeln ('perdu, recommencez');
arret := arret +1;

end;

end;

writeln ('La partie est fini, vous avez perdu');

readln;

end.
Cliquez pour agrandir...
Mais ca fonctionne ça fait ce que tu veux.

Mais tu auras tjs, le "Vous avez perdu", utilise un booléen pour l'afficher ou pas, si tu sais :).

Puis j'ai donné une valeur arbitaire a chif1, dans ce cas -1 c'est pas le top mais bon il est 2h :D
 
PHoenix_w

PHoenix_w

L'homme Truc
Il devrait initialiser sa variable arrêt à 0 il me semble.
 
Connectez-vous pour réagir !
Haut