|
Математика Методы математического моделлирования, программирование математических концепций, роль математики в создании игр |
13.01.2007, 22:12
|
#1
|
Разработчик
Регистрация: 08.06.2006
Сообщений: 412
Написано 13 полезных сообщений (для 4 пользователей)
|
Кратнось числа
Люди!
Скажите пожалуйста,как узнать кратно ли число пяти на блице
|
(Offline)
|
|
13.01.2007, 22:27
|
#2
|
|
Re: Кратнось числа
ну если оно делится нацело то оно кратно 5 ...
а вот целостность числа я проверяю как полный извращенец
if (int)variable = variable then print "число целое" endif
|
|
|
13.01.2007, 22:40
|
#3
|
Знающий
Регистрация: 07.10.2006
Сообщений: 269
Написано 22 полезных сообщений (для 30 пользователей)
|
Re: Кратнось числа
if chislo mod 5=0 then print "число кратно"
|
(Offline)
|
|
13.01.2007, 23:44
|
#4
|
Администратор
Регистрация: 03.09.2005
Сообщений: 2,408
Написано 301 полезных сообщений (для 996 пользователей)
|
Re: Кратнось числа
if int(chislo/5.0)=chislo/5 then printl "kratno"
__________________
Как минимум я помог многим (с)
|
(Offline)
|
|
14.01.2007, 00:51
|
#5
|
.
Регистрация: 05.08.2006
Сообщений: 10,429
Написано 3,454 полезных сообщений (для 6,863 пользователей)
|
Re: Кратнось числа
D#=.2
If Int(Number*D)=Number*D : Print "Kratno" : Else : Print "Nekratno" : Endif
|
(Offline)
|
|
14.01.2007, 02:10
|
#6
|
Дэвелопер
Регистрация: 17.01.2006
Сообщений: 1,512
Написано 78 полезных сообщений (для 110 пользователей)
|
Re: Кратнось числа
Жуть) C mod самый простой вариант.
|
(Offline)
|
|
14.01.2007, 03:08
|
#7
|
.
Регистрация: 05.08.2006
Сообщений: 10,429
Написано 3,454 полезных сообщений (для 6,863 пользователей)
|
Re: Кратнось числа
И не самый производительный, осталось их всех сравнить, и вывести самый производительный.
|
(Offline)
|
|
14.01.2007, 12:39
|
#8
|
Разработчик
Регистрация: 08.06.2006
Сообщений: 412
Написано 13 полезных сообщений (для 4 пользователей)
|
Re: Кратнось числа
Спасибо всем =)
|
(Offline)
|
|
15.01.2007, 02:24
|
#9
|
☭
Регистрация: 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)
|
|
15.01.2007, 04:55
|
#10
|
Зануда с интернетом
Регистрация: 04.09.2005
Сообщений: 14,014
Написано 6,798 полезных сообщений (для 20,935 пользователей)
|
Re: Кратнось числа
не мешало бы прогнать фейковые вычисления вначале, чтобы уравновесить...
__________________
http://nabatchikov.com
Мир нужно делать лучше и чище. Иначе, зачем мы живем? tormoz
А я растила сына на преданьях
о принцах, троллях, потайных свиданьях,
погонях, похищениях невест.
Да кто же знал, что сказка душу съест?
|
(Offline)
|
|
15.01.2007, 16:40
|
#11
|
Знающий
Регистрация: 07.10.2006
Сообщений: 269
Написано 22 полезных сообщений (для 30 пользователей)
|
Re: Кратнось числа
У меня:
Nord - 2204
SubZer0 - 2323
MoKa - 2135
проц Celerone работает на 1.87
|
(Offline)
|
|
15.01.2007, 18:00
|
#12
|
Зануда с интернетом
Регистрация: 04.09.2005
Сообщений: 14,014
Написано 6,798 полезных сообщений (для 20,935 пользователей)
|
Re: Кратнось числа
__________________
http://nabatchikov.com
Мир нужно делать лучше и чище. Иначе, зачем мы живем? tormoz
А я растила сына на преданьях
о принцах, троллях, потайных свиданьях,
погонях, похищениях невест.
Да кто же знал, что сказка душу съест?
|
(Offline)
|
|
15.01.2007, 19:19
|
#13
|
Знающий
Регистрация: 07.10.2006
Сообщений: 269
Написано 22 полезных сообщений (для 30 пользователей)
|
Re: Кратнось числа
impersonalis, надеюсь я тебя правильно понял:
С выключеным отладчиком и n=3000000:
Nord - 829
SubZer0 - 805
MoKa - 738
Добавленно:
Delay 2000;n=10000000;
Nord - 360
SubZer0 - 335
MoKa - 261
|
(Offline)
|
|
16.01.2007, 01:40
|
#14
|
.
Регистрация: 05.08.2006
Сообщений: 10,429
Написано 3,454 полезных сообщений (для 6,863 пользователей)
|
Re: Кратнось числа
Вот, как и предпологал mod будет более длителен, т.к. что-то встроенное (хотя не факт в других случаях). А * быстрее чем /. Вот и написал. Выходит быстрейший?
|
(Offline)
|
|
16.01.2007, 16:17
|
#15
|
Unity/C# кодер
Регистрация: 03.10.2005
Адрес: Россия, Рязань
Сообщений: 7,568
Написано 3,006 полезных сообщений (для 5,323 пользователей)
|
Re: Кратнось числа
Nord - 244
SubZer0 - 305
MoKa - 233
n=10000000
Celeron D 2.4GHz
Вывод: разные процессоры имеют разные архитектуры, а следовательно одни и теже операции выполняются разное время.
PS: при выполнении 10млн. одних и тех же операций несколько миллисекунд разницы не имеют большого значения, зато с mod все выглядит читабельнее чем два последних варианта
2Nord: Движку необходимо некоторое время для инициализации, поэтому в начале программы необходимо сделать задержку. Это может быть либо цикл с большим числом повторений либо задержка (Delay 2000) в начале программы (как говорил impersonalis).
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 16:19.
|