program Project1; {$APPTYPE CONSOLE} uses {$IFDEF WIN32} windows; {$ENDIF} {$IFDEF LINUX} libc; {$ENDIF} function RDTSC: int64; // fourni le nombre de cycle depuis le démarrage register; // du microprocesseur asm db $0f, $31 end; const Delta = 1000; // temps d'attente en milliseconde (soit 1 seconde) var t, t1 : int64; begin t := rdtsc; {$IFDEF WIN32} sleep(Delta); // fonction sleep de windows en millisecondes {$ENDIF} {$IFDEF LINUX} usleep(Delta*1000); // fonction usleep de linux en microsecondes {$ENDIF} t1:=rdtsc-t; writeln('This PC is running at about ',t1 div Delta,'kHz'); readln; end.