VPF::Скорость процессора. - Форум программистов

Dimannn

Дата 13.6.2006, 12:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 318
Регистрация: 14.4.2005
Где: Владимир

Репутация: нет
Всего: 1

Как вы думаете, насколько объективно будет в досе следующий код оценивать скорость процессора?

Код


Uses DOS;
Var hour, minute, m2, seconds, ms: WORD;
    tm,tm2,tot: LongInt ;
begin

GetTime(hour,minute,seconds, ms);
tm:=seconds*100+ms;
ASM
mov AX, 0
@@lpA:
inc AX
mov BX, 0
@@lpB:
inc BX
mov CX, 0
@@lpC:
inc CX
mov DX, 0
@@lpD:
inc DX
push DX
mov DX, 0
inc DX
add DX, 5
dec DX
xor DX, DX
or DX, $A0
add DX, 5
cmp dx, dx
jmp @@n
@@n:
shl DX, 1
shr DX, 1
pop DX
cmp DX, $FFFF
jne @@lpD
cmp CX, $FF
jne @@lpC
cmp BX, $F
jne @@lpB
cmp AX, $F
jne @@lpA
end;
GetTime(hour,m2,seconds, ms);
tm2:=seconds*100+ms;
tot:=tm2-tm;
If tot<0 then tot:=tot+6000;
WriteLn('Total time: ',tot,' milliseconds');
ReadLn;
end.

--------------------

Хотите быстро и без проблем опубликовать вашу программу в сети за 5 минут?
Тогда потратьте пару минут чтобы посмотреть, что предлагает OpenProject.org.ru

drkot

Дата 22.6.2006, 20:21 (ссылка)

(нет голосов)

Загрузка ...

Ищущий

Профиль
Группа: Завсегдатай
Сообщений: 1042
Регистрация: 5.5.2006

Репутация: нет
Всего: 8

Думаю в досе даже без асма простыми форами обективно будет (процесс то один выполняется (почти))

--------------------

Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.

skyboy

Дата 23.6.2006, 10:24 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: нет
Всего: 260

Dimannn, если выполняется в виртуальной машине под Windows XP, то оценить производительность процессора будет невозможно.
drkot, смотря какие for'ы. Ведь есть ещё кэш.

drkot

Дата 23.6.2006, 14:46 (ссылка)

(нет голосов)

Загрузка ...

Ищущий

Профиль
Группа: Завсегдатай
Сообщений: 1042
Регистрация: 5.5.2006

Репутация: нет
Всего: 8

Цитата(skyboy @ 23.6.2006, 10:24

)

виртуальной машине под Windows XP

об этом речи небыло. (хотя PC Mark выдает на виртуалке очень близкие результаты к полученым на "реальном" железе)

Цитата(skyboy @ 23.6.2006, 10:24

)

Ведь есть ещё кэш

есть. если процесс один (ДОС) то особого влияния кеш не окажет.

--------------------

Dimannn

Дата 24.6.2006, 16:24 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 318
Регистрация: 14.4.2005
Где: Владимир

Репутация: нет
Всего: 1

Просто Athlon 3200+ выдал результат, близкий к Pentium 2600...

--------------------

drkot

Дата 26.6.2006, 10:19 (ссылка)

(нет голосов)

Загрузка ...

Ищущий

Профиль
Группа: Завсегдатай
Сообщений: 1042
Регистрация: 5.5.2006

Репутация: нет
Всего: 8

если не ошибаюсь

Цитата(Dimannn @ 24.6.2006, 16:24

)

Athlon 3200+

цифирик здесь некий рейтинг, а не частота ядра как в

Цитата(Dimannn @ 24.6.2006, 16:24

)

Pentium 2600

Так как в твоем тесте не использовались всякие хитрые команда, а только стандарт Х86 то и результат быстродейтсвия может заметно отличатся от PC Mark-а.

ЗЫЖ Тут обгонять должен тот у кого частота повыше (команды по тактам отрабатывают).

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »