Dev pascal

[Fermé]
Signaler
Messages postés
103
Date d'inscription
mercredi 22 juillet 2009
Statut
Membre
Dernière intervention
13 février 2014
-
Messages postés
16400
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
21 septembre 2021
-
Bonjour,
J'aimerai mettre dans mon programme la fonction qui compte les secondes, genre à la fin du programme ca dit en combien de temps on a joué.

Program Jeu;
uses crt;

var
name: string [10];
nombre, juste,a,b,compteur: integer;

begin
clrscr;
compteur:=1;
juste:= 25650;
{a:=25;}
{b:=5;}

{GOTOXY(a,b);}
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

sound(b);
writeln(' VOUS AVEZ GAGNE !!!!!!!! ');
Delay(40);
writeln;
writeln('avec ', compteur ,' essais ');
Nosound;



readln;

end.



1 réponse

Messages postés
16400
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
21 septembre 2021
2 879
Tu devrais utiliser la procédure getTime(var h,m,s,c:word).

Exemple (calcule l'heure en secondes)

function realOfGetTime:real;
var h,m,s,c:word;
begin
   getTime(h,m,s,c);
   result:=h*3600+m*60+s+real(c)/100;
end;