Главная
Регистрация
Вход
Авторизироваться
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: ADMIN, Nextik  
прога для определения частоты проца телефона
maestrodanДата: Пятница, 12.08.2011, 12:20 | Сообщение # 1
Непонятливый
Группа: Пользователи
Сообщений: 21
Награды: 0
Репутация: « 0 »
Статус: Offline
Вот, хочется глянуть эти характеристики телефона, а как написать такую прогу-не в курсе...
 
PassCallДата: Понедельник, 15.08.2011, 23:48 | Сообщение # 2
Знающий
Группа: Проверенные
Сообщений: 89
Награды: 0
Репутация: « 4 »
Статус: Offline
эх...

Code

program speed_o_meter;
var
timer1,timer2,i:integer;
a:real;

begin
timer1:=GetRelativeTimeMs;

for i:=1 to 50000 do
a:=sin (i);

timer2:=GetRelativeTimeMs;
timer1:=timer2-timer1;
drawtext ('Время: '+integertostring(timer1)+' миллисек.',0,0);
repaint;
delay (1000);
end.
 
  • Страница 1 из 1
  • 1
Поиск: