"Рандом" с указанным интервалом 0_o Это возможно ?

[urrya]

Доброго времени уважаемые программисты.
Снова есть задачка. Требуется "рандомно" задавать координаты, это не проблема конечно.
Но нужно что бы "рандом" был с указанным интервалом между цифрами.
К примеру от 0 до 200 и интервал между числами равен кратности 4, т.е. 0-4-16-8-32-52-80-24 ... .
Или от 0 до 200 и интервал между числами равен кратности 8, т.е. 0-8-32-64-56-88 ... .
Возможно ли так сделать?
Заранее всем спасибо.

 

[veselroger]

Ну, можно как-нибудь так, я думаю:

Func _GetRandom($min=0, $max=100, $int=5)
   local $rnd, $i, $iter
   $rnd = Round(Random(0, Floor($max/$int) )) ;Определяем, на каком прохождении остановиться (Максимальное значение/интервал)
   return $min + ($rnd * $int)
EndFunc

For $i=1 to 100
   ConsoleWrite( _GetRandom() & @CRLF)
Next

 

[urrya]

veselroger

Спасибо!