function getcpuspeed: Double;
const
delaytime = 500; //الوقت يحسب باجزاء الثانية
var
timerhi, timerlo: Dword;
priorityclass, priority: Integer;
begin
priorityclass := getpriorityclass(getcurrentprocess);
priority := getthreadpriority(getcurrentthread);
setpriorityclass(getcurrentprocess, realtime_priority_class);
setthreadpriority(getcurrentthread, thread_priority_time_critical);
sleep(10);
asm
dw 310fh // rdtsc
mov timerlo, eax
mov timerhi, edx
end;
sleep(delaytime);
asm
dw 310fh // rdtsc
sub eax, timerlo
sbb edx, timerhi
mov timerlo, eax
mov timerhi, edx
end;
setthreadpriority(getcurrentthread, priority);
setpriorityclass(getcurrentprocess, priorityclass);
result := timerlo / (1000.0 * delaytime);
end;
ما هو الحساب الذهني , كيف اتعلم الحساب الذهني في المنزل , في أي عمر يبدأ الطفل تعلم الحساب الذهني
