Décompte secondes

Fermé
arnaul2 Messages postés 103 Date d'inscription mercredi 22 juillet 2009 Statut Membre Dernière intervention 13 février 2014 - 29 sept. 2012 à 17:04
KX Messages postés 16668 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 17 mars 2023 - 29 sept. 2012 à 17:08
Bonjour,
Dans le programme qui va suivre, j'aimerai que le jeu dure 30 secondes et qu'il s'arrete apresès mais j'arrive pas à le faire.

Merci!

Program Jeu;
uses crt;

{function realOfGetTime:real; }
var
h,m,s,c:word;
name: string [10];
nombre,juste,compteur: integer;
{getTime(h,m,s,c); }
begin

clrscr;


{result:=h*3600+m*60+s+real(c)/100; }

compteur:=1;
juste:= 25650;



writeln;

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
Begin
writeln('c''est plus');
writeln;
End
Else
Begin
if nombre > juste then
writeln ( ' c''est moins');
writeln;
End;

Until nombre=juste;

compteur:=compteur+1;

if nombre <= juste then


writeln(' VOUS AVEZ GAGNE !!!!!!!! ');

writeln;
writeln('avec ', compteur ,' essais ');



readln;

end.



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
29 sept. 2012 à 17:08
En Pascal tu ne pourras pas. Le readln(nombre) est bloquant, tu ne pourras rien faire d'autre tant que l'utilisateur n'aura pas appuyé sur Entrée.

Ce que tu peux faire par contre c'est utiliser le code que je t'ai donné hier pour faire des différences d'heures et alerter quand on a dépassé 30 secondes, mais aucune action ne pourra se déclencher exactement à 30 secondes.
0