Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Генератор случайных чисел  (Прочитано 8552 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Элексир
Помогающий

ru
Offline Offline
Пол: Мужской

« : 24-11-2008 09:55 » 

Здравствуйте.помогите пожалуйста с генерацией случайных чисел.
Записан
Kivals
Модератор

us
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 24-11-2008 11:56 » 

Встроенной функции нету. Вот с использование внешнего объекта MSScriptControl.ScriptControl (есть во всех Windows, начиная с 2000):

Код:
//******************************************************************************
// СлучайноеЧисло(Знач Предел=1)
//
// Параметры:
//  Знач Предел=1
//
// Возвращаемое значение:
//  Случайное число в диапазоне:
//   0~1, если Предел равен 1;
//   1~Предел если Предел больше 1
//
Функция СлучайноеЧисло(Знач Предел=1)
ScrCtrl=CreateObject("MSScriptControl.ScriptControl");
ScrCtrl.Language="VBscript";
ScrCtrl.ExecuteStatement("randomize");   
СлучайноеЧисло=ScrCtrl.Eval("rnd");
Если Предел>1 Тогда
СлучайноеЧисло=1+Цел(СлучайноеЧисло*Цел(Предел));
КонецЕсли;
Возврат СлучайноеЧисло;
КонецФункции // СлучайноеЧисло()
Записан
Элексир
Помогающий

ru
Offline Offline
Пол: Мужской

« Ответ #2 : 24-11-2008 16:34 » 

Всем Спасибо буду пользить:)
Записан
Kivals
Модератор

us
Offline Offline
Пол: Мужской

WWW
« Ответ #3 : 24-11-2008 18:24 » 

Замечание: если используешь часто (в большом цикле) то инициализировать можно 1 раз, а потом вызывать только начиная с СлучайноеЧисло=ScrCtrl.Eval("rnd"); и все что дальше для приведения к нужному диапазону
Записан
Элексир
Помогающий

ru
Offline Offline
Пол: Мужской

« Ответ #4 : 13-12-2008 20:55 » 

Kivals, спасибо!!!
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines