Показать сообщение отдельно
 
Непрочитано 28.08.2011, 14:26
#9
Vov.Ka


 
Регистрация: 21.07.2008
Луцьк
Сообщений: 166


VVA, по первой ссылке нужно в функции dwgru-random-range заменить
Код:
[Выделить все]
 (- Maxnum (fix (* (- Maxnum Minnum) (_dwgru-random))))
на
Код:
[Выделить все]
 (- Maxnum (fix (* (- Maxnum Minnum -1) (_dwgru-random))))
проверка
Код:
[Выделить все]
 (repeat 50 (print (dwgru-random-range 1 2)))
Vov.Ka вне форума  
 
Размещение рекламы