Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для мобильных телефонов > MidletPascal > Основной форум

Основной форум Сюда все проблемы связанные с программированием.

Ответ
 
Опции темы
Старый 14.08.2011, 11:10   #1
maestrodan
AnyKey`щик
 
Регистрация: 14.08.2011
Сообщений: 9
Написано 0 полезных сообщений
(для 0 пользователей)
Определение частоты процессора

Здравствуйте, подскажите пожалуйста, как можно написать в мп прогу для определения частоты процессора.
а ещё, есть ли какая-нибудь процедура для перевода из риала в текст?
(Offline)
 
Ответить с цитированием
Старый 14.08.2011, 12:19   #2
PacMan
Нуждающийся
 
Регистрация: 02.01.2009
Сообщений: 87
Написано 18 полезных сообщений
(для 35 пользователей)
Ответ: Определение частоты процессора

Непосредственно частоту процессора узнать из мидлета нельзя.
Дело в том, что java-приложение выполняется не процессором, а ява-машиной, которая уже выполняется процессором. То есть мы можем узнать только быстродействие java-машины.
В принципе можно реализовать какой-то единый алгоритм и высчитывать быстродействие в неких условных единицах.
(Offline)
 
Ответить с цитированием
Старый 15.08.2011, 23:51   #3
PassCall
Разработчик
 
Аватар для PassCall
 
Регистрация: 07.04.2011
Адрес: Млечный путь, Земля, Европа, Беларусь, Могилев
Сообщений: 391
Написано 94 полезных сообщений
(для 319 пользователей)
Ответ: Определение частоты процессора

Подскажу даже:

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

засекаеш время до, затем после и отнимеш.
__________________
Мечта программиста: запрограммировать процесс программирования.

Всё гениальное - просто.

http://passcall.ucoz.com
(Offline)
 
Ответить с цитированием
Старый 15.08.2011, 23:56   #4
PassCall
Разработчик
 
Аватар для PassCall
 
Регистрация: 07.04.2011
Адрес: Млечный путь, Земля, Европа, Беларусь, Могилев
Сообщений: 391
Написано 94 полезных сообщений
(для 319 пользователей)
Ответ: Определение частоты процессора

Для перевода из реал в текст есть вроде realtostring, но как ей пользоваться, даже Вассерман не знает.

Могу разве что предложить такое:
a:=trunc(real_number-frac(real_number));//убираем дробь
b:=trunc(frac(a)*100.0);//оставляем только дробь. 100 имеет два нуля, значит будет 2 знака после запятой.
S:=''+a+'.'+b;//целое число+точка+дробь. вуаля!
__________________
Мечта программиста: запрограммировать процесс программирования.

Всё гениальное - просто.

http://passcall.ucoz.com
(Offline)
 
Ответить с цитированием
Старый 17.08.2011, 17:41   #5
maestrodan
AnyKey`щик
 
Регистрация: 14.08.2011
Сообщений: 9
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Определение частоты процессора

насчет частоты проца, PassCall, не совсем понял, можно подробнее?
насчет realtostring вроде нарыл
var
R:real;
s:string
begin
s:=integerToString(trunc(R))+','+integerToString(t runc(frac(R)*1000));
end;
(Offline)
 
Ответить с цитированием
Старый 17.08.2011, 19:15   #6
PassCall
Разработчик
 
Аватар для PassCall
 
Регистрация: 07.04.2011
Адрес: Млечный путь, Земля, Европа, Беларусь, Могилев
Сообщений: 391
Написано 94 полезных сообщений
(для 319 пользователей)
Ответ: Определение частоты процессора

Сообщение от maestrodan Посмотреть сообщение
var
R:real;
s:string
begin
s:=integerToString(trunc(R))+','+integerToString(t runc(frac(R)*1000));
end;
Не совсем хорошо. Ибо trunc округляет.

Поэутому из числа 17.85 получиться "18,8500".

Правильнее:
s:=integerToString(trunc(R-frac(R)))+','+integerToString(trunc(frac(R)*1000)) ;


А начет определение частоты:
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.
Число указывает за сколько миллисекунд высчиталось 50000 вычислений синуса. Незнаю сколько тактов занимает вычисление синуса, поэтому частоту в герцах не вычислю.
__________________
Мечта программиста: запрограммировать процесс программирования.

Всё гениальное - просто.

http://passcall.ucoz.com
(Offline)
 
Ответить с цитированием
Старый 18.08.2011, 00:54   #7
maestrodan
AnyKey`щик
 
Регистрация: 14.08.2011
Сообщений: 9
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Определение частоты процессора

Спасибо за подсказки!
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 02:34.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com