// Переменные, используемые для работы генератора случайных чисел Перем next; //****************************************************************************** // rand(RAND_MAX) // // Параметры: // RAND_MAX - максимальное значение случайного числа // // Возвращаемое значение: // число // // Описание: // Возвращает случайное число в интервале от 0 до RAND_MAX // Функция rand(RAND_MAX)
next = next * 1103515245 + 12345; return(цел(next / ( (RAND_MAX+1)*2)) % (RAND_MAX + 1));
КонецФункции // rand()
//****************************************************************************** // srand(seed) // // Параметры: // seed - число // // Возвращаемое значение: // Нет // // Описание: // Инициализирует генератор случайных чисел // Функция srand(seed)
2(7) Вначале генератор инициализируется: srand(СтартовоеЧисло); Причем СтартовоеЧисло м.б. любым, можно брать его из таймера или задавать произвольно. Затем можно получать случайные числа: СлЧисло = rand(); Все это щастье реально работает :-) у меня на нем построен простенький шифратор-дешифратор.
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.