dev pascal

Question

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.


Configuration: Windows 7 / Chrome 17.0.963.56

KX · Answer

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;

Dev pascal

1 réponse

Votre réponse

Discussions similaires

Newsletters