Показать сообщение отдельно
Старый 25.05.2011, 15:03   #19
Черный крыс
 
Сообщений: n/a
Ответ: Уменьшения числа

Сообщение от Vadimich Посмотреть сообщение
а как это?
Local a:Float = Rand(- 100.0, 100.0)
Local s:Float = -0.1

a = Min((Abs(a) * s) - 0.1, 0.0) * Sgn(a)

Если а меньше 0.1 то а приравнится к нулю.

Насчет функции Sgn(number) она какая то сверхсложная ?

Function Sgn:Int(num:Float)
    If a > 0.0 Then Return True
    If a < 0.0 Then Return -True
    Return False
End Function
Функция Min
Function Min:Float(v0:Float, v1:Float)
    If v0 < v1 Then Return v0
    Return v1
End Function
 
Ответить с цитированием