Yoko

Solaire wrote:Если тебе нужны именно такие задержки, сделай так:

Code: Select all

VAR R
if ........................ then
   R=UO.Random(3)*100+400
endif

Mihail wrote:а если к примеру мне надо установить рандом между 4-мя переменными?
но чтобы они как бы не повторялись.. допустим есть у меня a, b, c и d. сначала он выбирает любую из этих переменных, затем выбирает из оставшихся трех, затем из двух ну и последнюю..

sub Rand()
   VAR R, k=3, i=0
   DIM a[4], T[4]
   a[0]='500'
   a[1]='600'
   a[2]='700'
   a[3]='800'
   repeat
      R=UO.Random(k)
      T[i]=a[R]
      a[R]=a[k]
      a[k]=T[i]
      k=k-1
      i=i+1
   until k==0 
   T[i]=a[k]
    for i=0 to 3
      UO.Print(T[i])
      wait(1000)
   next
end sub

Solaire wrote:

Mihail wrote:а если к примеру мне надо установить рандом между 4-мя переменными?
но чтобы они как бы не повторялись.. допустим есть у меня a, b, c и d. сначала он выбирает любую из этих переменных, затем выбирает из оставшихся трех, затем из двух ну и последнюю..

Вот. Мучалась долго. Выдает элементы массива а в призвольном порядке.

Code: Select all

sub Rand()
   VAR R, k=3, i=0
   DIM a[4], T[4]
   a[0]='500'
   a[1]='600'
   a[2]='700'
   a[3]='800'
   repeat
      R=UO.Random(k)
      T[i]=a[R]
      a[R]=a[k]
      a[k]=T[i]
      k=k-1
      i=i+1
   until k==0 
   T[i]=a[k]
    for i=0 to 3
      UO.Print(T[i])
      wait(1000)
   next
end sub

Mihail wrote:спасибо большое, теперь буду долго пытаться осмыслить прочитанное

Edred wrote:Хмм, я бы вставил проверку что k = i. Чтобы уже без рандома возвращало единственное значение. Я честно говоря не уверен (и лень проверять) как скриптовый модуль воспримет пожелание вернуть random(0)