Discussion :

[williamdunord]

salut à tous,
y-a-t-il moyen sous pascal de savoir exactement me temps qu'à mis un algorithme pour ce réaliser ?
(je souhaite en fait lancer deux algorithmes différents pour résoudre un problème et savoir combien chacun d'eux à mis pour s'exécuter...)

merci !

[mario52]

Bonjour

il te suffit de faire une procédure " chronomètre" et la mettre en depart de la procédure a tester et à l'arrivee et tu calcules la différence de tes deux variables arrivee - depart = temps de travail

[williamdunord]

euh est-ce que tu pourrais m'aider un peu plus pour créer cette procédure stp ?
je vois pas bien

[Alcatîz]

Bonjour !

La question a déjà été posée, une recherche devrait te donner des éléments de réponse :
http://www.developpez.net/forums/sho...ighlight=timer
http://www.developpez.net/forums/sho...=chronom%E8tre
(il y en a sans doute d'autres)

[williamdunord]

j'ai regardé les liens que tu m'as mis... mais je comprend pas bien comment fonctionne "gettime"...
il faut que je crée une procédure gettime ??

[Alcatîz]

GetTime est une procédure de l'unité standard DOS :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Procedure GetTime (var Heure, Minute, Seconde, Centiemes : Word);

[williamdunord]

j'ai essayé ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
program test;
var t:real;
begin
gettime(h1,m1,s1);
{ici se trouverai le reste de mon programme
{........
{........}
gettime(h2,m2,s2);
t:=(h2+m2+s2)-(h1+m1+s1);
writeln(t);
readln;
end.

et il met dit pour gettime "unknown identifier"...

[Alcatîz]

Tu dois déclarer l'utilisation de l'unité DOS au début du programme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Program test;
Uses DOS;
Begin
  ...

Attention que GetTime nécessite 4 paramètres, tu n'en passes que 3

[williamdunord]

mais je dois créer une procédure gettime ?
ou alors je peux mettre directement gettime(h1,m1,s1,c1).........gettime(h2,m2,s2,c2)
???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
program test;
uses dos;
var t,h1,h2,m1,m2,s1,s2,c1,c2:word;
begin
gettime(h1,m1,s1);
{ici se trouverai le reste de mon programme
{........
{........}
gettime(h2,m2,s2);
t:=(h2+m2+s2)-(h1+m1+s1);
writeln('t:=',t);
readln;
end.

là il m'affiche par exemple t=44... mais c'est 44 quoi ??
comment afficher les unités de temps ?

[Alcatîz]

ou alors je peux mettre directement gettime(h1,m1,s1,c1).........gettime(h2,m2,s2,c2)

Oui

Pour ce qui est du calcul, n'oublie pas que tu as des heures, des minutes, des secondes et des centièmes, donc ça ne se soustrait pas aussi simplement que tu le fais. Tu peux, par exemple, tout convertir en 1/100 secondes.

[Thekiller]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
gettime(h1,m1,s1);
{ici se trouverai le reste de mon programme
{........
{........}
gettime(h2,m2,s2);
t:=(h2+m2+s2)-(h1+m1+s1);

tu peut mettre directement gettime(heur,min,sec,cent);
pui t1:=min*60*100+sec*100+cent; ca va te donner le temp en centieme
aprés ta procedure tu refait
gettime(heur,min,sec,cent);
pui t2:=min*60*100+sec*100+cent;
(et noublie pa de declarer heur,min,sec,cent a la place de tes h1,m1,s1..)
puis tu fait T2-T1 et tu aurra la difference de temp

[mario52]

Bonjour

équivalent de GetTime en langage machine ;

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 heure_;
uses dos,crt;
 
procedure heure;
var heure,minute,seconde,centieme:byte;
    regis:registers;
begin
  regis.ah:=$2C;          {appel de la fonction 2CH}
  intr($21,regis);        {interruption 21H du DOS}
                          {résultats obtenus}
  heure     :=regis.ch;   {registre CH (Hight)}
  minute    :=regis.cl;   {registre CL (Low)}
  seconde   :=regis.dh;   {registre DH (Hight)}
  centieme  :=regis.dl;   {registre DL (Low)}
                          {pour mémoire CX = 1 WORD}
                          {octet Fort   de CX : CH = 1 BYTE}
                          {octet Faible de CX : CL = 1 BYTE}
                          { CX = (CH * 256) + CL   }
  writeln(heure,':',minute,':',seconde,':',centieme);
end;
 
begin;
clrscr;
heure;
readln;
end.

[droggo]

Hio,

Bonjour

équivalent de GetTime en langage machine ;

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 heure_;
uses dos,crt;
 
procedure heure;
var heure,minute,seconde,centieme:byte;
    regis:registers;
begin
  regis.ah:=$2C;          {appel de la fonction 2CH}
  intr($21,regis);        {interruption 21H du DOS}
                          {résultats obtenus}
  heure     :=regis.ch;   {registre CH (Hight)}
  minute    :=regis.cl;   {registre CL (Low)}
  seconde   :=regis.dh;   {registre DH (Hight)}
  centieme  :=regis.dl;   {registre DL (Low)}
                          {pour mémoire CX = 1 WORD}
                          {octet Fort   de CX : CH = 1 BYTE}
                          {octet Faible de CX : CL = 1 BYTE}
                          { CX = (CH * 256) + CL   }
  writeln(heure,':',minute,':',seconde,':',centieme);
end;
 
begin;
clrscr;
heure;
readln;
end.

Ceci n'a rien à voir avec le langage machine, mais se contente d'appeler les interruptions du dos

[mario52]

Bonjour

Ceci n'a rien à voir avec le langage machine, mais se contente d'appeler les interruptions du dos

A bon , et c'est quoi le langage machine ? l'assembleur ?

langage machine est l'expression qui se trouve dans le livre que j'utilise ,
pour différencier le pascal, cette façon de faire et l'assembleur

alors ?

[droggo]

Goa,

Tout ce que tu as fait, c'est l'appel d'une interruption du DOS en utilisant des type et procédure implémentés dans ton compilateur Pascal.
Ton programme est donc tout simplement un programme... Pascal.

Le "langage machine" correspond à l'assembleur, mais c'est une expression qu'on n'utilise plus beaucoup, on préfère utiliser le vrai nom : assembleur, tout simplement.

[M.Dlb]

Pour moi le langage machine, c'est encore plus bas niveau, c'est-à-dire "000110001101110101110001110010101000000011111", du binaire quoi !

[Ultima]

Bonjour,
je suis tout à fait d’accords avec wormful_sickfoot, le langage machine, c’est du binaire (ou de l’hexa car c’est plus compact et plus parlant) et je pense que c’est un abus de langage que de dire que l’assembleur est un langage machine.
Si l’on part d’un code hexa, on peut relativement facilement passer à un code assembleur (si on maitrise l’assembleur, ce qui n’est pas mon cas).
C’est le fait qu’un code hexa soit relativement proche d’un code assembleur qui fait que beaucoup font l’amalgame.

Pour revenir sur le code de Mario52: ce n’est pas de l’assembleur, et encore moins un langage machine.
Et je rejoins droggo pour dire que c’est du pascal (dons un langage de haut niveau, complètement à l’opposé du langage machine qui est de bas niveau).

Mario52 dit tenir ses informations sur le langage machine d’un livre. Je lui conseil de changer de livre car visiblement il y a erreur sur la définition qu’il a du langage machine.

Remarque : Tout ce que je sais sur les langages de bas et haut niveau, je les tire d’un bouquin sur le C et le C++; bien évidement j’ai vérifié ces informations avant de poster une réponse.

[droggo]

Qao,

Pour moi le langage machine, c'est encore plus bas niveau, c'est-à-dire "000110001101110101110001110010101000000011111", du binaire quoi !

Si on veut y aller, ce n'est pas ça non plus : c'est un gros tas de transistors passants ou pas, plus des capas chargées ou non, des impulsions électriques, etc..., je ne vais pas vous expliquer le fonctionnement d'un processeur, n'est-ce pas.

Je n'aime d'ailleurs pas l'expression "langage machine", et je comprends pourquoi on ne l'utilise pratiquement plus, c'est trop vague.

Pour en revenir à l'assembleur, il est généralement considéré comme étant du "langage machine", car étant le plus proche du processeur, et pour cause. Mais on peut effectivement considérer qu'il s'agit d'un abus de langage.

Et certes, il vaut mieux parler de langage de très bas niveau, ça exprime mieux ce que l'on veut dire.
Encore qu'il faudrait s'entendre sur la définition des niveaux des langages, car c'est parfois un peu flou quand même.

[Ultima]

salut,

Si on veut y aller, ce n'est pas ça non plus : c'est un gros tas de transistors passants ou pas, plus des capas chargées ou non, des impulsions électriques, etc..., je ne vais pas vous expliquer le fonctionnement d'un processeur, n'est-ce pas.

Il existe une définition très précise de ce qu’est le langage machine ; si on s’y tient, l’affirmation de wormful_sickfoot est irréfutable.

Encore qu'il faudrait s'entendre sur la définition des niveaux des langages, car c'est parfois un peu flou quand même.

Je pense que ce n’est peut être pas si flou que ça ;
Les langages de bas niveau sont L’ASM et le langage machine, ils sont caractérisés par le fait que le développeur doit tenir compte du processeurs pour lequel il conçoit son code.

Avec les langages de haut niveau, on ne ce soucis plus du processeur avec lequel on travail, et ce n’est plus le développeur qui défini la gestion de la mémoire.
On ne distingue donc que deux famille complètement distinctes.

[Alcatîz]

L'ajout de "code machine" directement dans un programme se fait par une directive inline comme dans cet exemple de l'aide de TP :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
   PROCEDURE FillWord(VAR Dest; Count: WORD;
     Data: WORD);
   BEGIN
     INLINE(
       $C4/$7E/<Dest/   { LES   DI,Dest[BP]  }
       $8B/$4E/<Count/  { MOV   CX,Count[BP] }
       $8B/$46/<Data/   { MOV   AX,Data[BP]  }
       $FC/             { CLD                }
       $F3/$AB);        { REP   STOSW        }
   END;