forum.boolean.name - Туториал "Змейка"

ceil и floor не проще заюзать для етой задачи?

Код:

x#=0.93

y#=0.33

z#=-2.33

zero#=0



Print CeloeChislo(x)

Print CeloeChislo(y)

Print CeloeChislo(z)

Print CeloeChislo(zero)



WaitKey



Function CeloeChislo%(z#)

        If z<0 Then Return Ceil(z) Else Return Floor(z)

End Function

можно обойтись без проверок если число всегда неотрицательно или всегда отрицательно.

а за mod 1 спасибо, ето много где может пригодиться.