Показать сообщение отдельно
Старый 15.01.2007, 02:24   #9
HolyDel
 
Регистрация: 26.09.2006
Сообщений: 6,035
Написано 1,474 полезных сообщений
(для 2,707 пользователей)
Re: Кратнось числа

кто - нибудь сравнивал?
Я сранил:
аля Nord - 1872
аля SubZer0 - 2697
яля MoKa 2161
ваши результаты в студию.
n=10000000
h=0
a=MilliSecs()
For i=1 To n
	If i Mod 5 = 0 Then h=h+1
Next
Print h+" time:"+(MilliSecs()-a)
h=0
a=MilliSecs()
For i=1 To n
	If Int(i/5.0)=i/5.0 Then h=h+1
Next
Print h+" time:"+(MilliSecs()-a)
h=0
d#=0.2
a=MilliSecs()
For i=1 To n
	If Int(i*d)=i*d Then h=h+1
Next
Print h+" time:"+(MilliSecs()-a)
WaitKey()
мой проц Celetone433. правда но был разогнан до 547.
(Offline)
 
Ответить с цитированием