|
|
|
|
|
|
|
Вернуться
| 1 Kuzmin Alexey Andreevich, 22 января 2009 г. 19:15:51 | |
Var start:Extended;
begin
start:=now;
...;
DoSomething;
...;
Write((now-start)*24*60*60);
end.
|
|
|
| 2 Kuzmin Alexey Andreevich, 22 января 2009 г. 19:14:40 | |
|
It's very simple!
|
|
|
| 3 Беляев Сергей Николаевич, 21 января 2009 г. 8:13:32 | |
//Вот вам пара функций для размышления (я их использую в тестирующей системе на делфи для замера времени выполнения программ):
function GetCPUTick: Int64;
asm
DB $0F,$31
end;
procedure CalibrateCPU;
var
t: cardinal;
res: int64;
begin
t := GetTickCount;
while t=GetTickCount do;
Res := GetCPUTick;
while GetTickCount<(t+400) do;
Res := GetCPUTick - res;
CPUClock := 2.5e-6*Res;
end;
|
|
|
| 4 Мехрдод ТРГИ [9"А" team], 20 января 2009 г. 17:11:47 | |
|
translate it into russian and maybe somebody help you!!!
|
|
|
Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!
| | | |
