Показать сообщение отдельно
Старый 25.05.2011, 10:06   #1
Vadimich
Нуждающийся
 
Аватар для Vadimich
 
Регистрация: 26.08.2010
Сообщений: 54
Написано 3 полезных сообщений
(для 3 пользователей)
Уменьшения числа

Привет всем! Хочу узнать, какой самый быстрый и наиболее оптимизированный способ свести случайное значение на 0...
оно может быть как положительным, так и отрицательным

к примеру я бы сделал что-то вроде этого:

a# = Rnd (-10,10); задаем случайное значение
s# = .1; шаг уменьшения

;в цикл

If a>0 Then

If a>s Then
a = a - s
Else
a = 0
EndIf

Else If a<0

If a<(-s) Then
a = a + s
Else
a = 0
EndIf

EndIf

насколько это оптимальный вариант, когда производительность критична?
еще был самый простой вариант - делить... это вообще одна строчка.. но мне как-то советовали избегать вычеслений
с длинными числами с плавающей точкой. Помогите, пожалуйста
(Offline)
 
Ответить с цитированием