IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Turbo Pascal Discussion :

Mesurer la durée d'exécution d'un programme [Turbo Pascal]


Sujet :

Turbo Pascal

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    Décembre 2011
    Messages
    4 160
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Décembre 2011
    Messages : 4 160
    Billets dans le blog
    9
    Par défaut Mesurer la durée d'exécution d'un programme
    Bonjour !

    Voici un exemple de code permettant de mesurer la durée d'exécution d'un programme.

    Ce chronomètre se compose de trois variables globales et de deux procédures, l'une pour commencer à compter, l'autre pour arrêter. Le code utilise la procédure GetTime() de l'unité Dos.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    Program Chrono;
    Uses Dos;
     
    Var t1,t2,temps: Real;
     
    Procedure Marche;
    Var h,m,s,c: Word;
    Begin
      GetTime(h,m,s,c);
      t1 := h*3600 + m*60 + s + c/100;
    End;
     
    Procedure Arret;
    Var h,m,s,c: Word;
    Begin
      GetTime(h,m,s,c);
      t2 := h*3600 + m*60 + s + c/100;
      temps:=t2-t1;
    End;
     
    Begin
      Marche;
      { Ici la partie du programme à chronométrer }
      Arret;
     
      Write('Temps: ',temps:0:2,' s');
     
      ReadLn;
    End.

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    Juillet 2009
    Messages
    2 420
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2009
    Messages : 2 420
    Par défaut
    Cela serait mieux s'il y était dans la section Contribuez
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  3. #3
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    Décembre 2011
    Messages
    4 160
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Décembre 2011
    Messages : 4 160
    Billets dans le blog
    9
    Par défaut
    Citation Envoyé par l_autodidacte Voir le message
    Cela serait mieux s'il était dans la section Contribuez
    Merci du conseil !

    J'ai retravaillé mon petit exemple (que j'ai trouvé dans un programme d'échecs), de façon à avoir une seule procédure au lieu de deux. Pour le test je me suis servi de la procédure Delay.

    J'imagine qu'il y a peut-être d'autres façons de mesurer le temps d'exécution d'un programme. Je serais curieux de les voir.



    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    Program Chronometre;
    Uses Crt, Dos;
     
    Var t1,t2,t3: Real;
     
    Procedure Chrono(b: Boolean);
    Var
      h, m, s, c: Word;
    Begin
      GetTime(h, m, s, c);
      If b Then
        t1 := h * 3600 + m * 60 + s + c / 100
      Else Begin
        t2 := h * 3600 + m * 60 + s + c / 100;
        t3 := t2 - t1;
      End;
    End;
     
    Begin
      ClrScr;
      Chrono(True);
      Delay(1000);
      Chrono(False);
      Write('Temps: ', t3:0:2, ' s');
      ReadKey;
    End.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 3
    Dernier message: 26/12/2014, 23h39
  2. Réponses: 1
    Dernier message: 13/04/2011, 14h28
  3. Réponses: 0
    Dernier message: 10/11/2010, 17h06
  4. Mesurer le temps d'exécution d'un programme
    Par ArthurC dans le forum Pascal
    Réponses: 3
    Dernier message: 21/04/2008, 14h28
  5. Réponses: 3
    Dernier message: 28/02/2007, 18h46

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo