Вверх ↑
Этот топик читают: Гость
Ответов: 100
Рейтинг: 10
#1: 2009-12-17 10:05:09 ЛС | профиль | цитата
В общем вопрос такой, как создать генератор случайных чисел, чтобы генерируемые им значения не повторялись пока не будут сгенерированы все числа в диапазоне?
карма: 1

0
Ответов: 1397
Рейтинг: 50
#2: 2009-12-17 10:16:03 ЛС | профиль | цитата
Наверно сделать проверку сгенерированных чисел на повторы и при их наличии удалять повторы.
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 4641
Рейтинг: 334
#3: 2009-12-17 10:19:35 ЛС | профиль | цитата
Random

смотреть примеры!
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Разработчик
Ответов: 26151
Рейтинг: 2127
#4: 2009-12-17 10:19:38 ЛС | профиль | цитата
Вот так можно сгенерировать неповторяющуюся последовательность от 0 до 99



Add(MainForm,2953706,189,210)
{
link(onCreate,12158879:doWork2,[])
}
Add(StrList,7129927,259,105)
{
Point(onGetIndex)
Point(doGetIndex)
link(Str,77841:Random,[(265,93)(230,93)(230,191)(195,191)])
link(onGetIndex,12393840:doEvent1,[])
}
Add(Random,77841,189,147)
{
Max=99
link(onRandom,7129927:doGetIndex,[])
}
Add(Case,10014520,392,112)
{
Value=Integer(-1)
link(onTrue,7129927:doAdd,[(439,125)(439,86)(247,86)(247,111)])
}
Add(DoData,6759746,392,224)
{
link(onEventData,2122520:doText,[])
link(Data,7129927:Text,[(398,190)(265,190)])
}
Add(ListBox,2122520,448,203)
{
Left=10
Top=10
Width=360
Height=235
}
Add(If_else,11456556,266,224)
{
Op2=Integer(100)
link(onTrue,6759746:doData,[])
link(onFalse,77841:doRandom,[(373,237)(373,75)(177,75)(177,153)])
link(Op1,7129927:Count,[])
}
Add(Hub,12393840,308,112)
{
link(onEvent1,10014520:doCase,[])
link(onEvent2,12158879:doWork1,[(334,125)(334,176)(242,176)])
}
Add(HubEx,12158879,238,224)
{
link(onEvent,11456556:doCompare,[])
}

карма: 22

0
Ответов: 4641
Рейтинг: 334
#5: 2009-12-17 10:20:01 ЛС | профиль | цитата
----
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Разработчик
Ответов: 26151
Рейтинг: 2127
#6: 2009-12-17 10:21:18 ЛС | профиль | цитата
Ravilr, и что ты чела туда послал, тот пример ему ни в пень не нужен
карма: 22

0
Ответов: 4641
Рейтинг: 334
#7: 2009-12-17 10:22:17 ЛС | профиль | цитата
nesco писал(а):
тот пример ему ни в пень не нужен


Пример использования компонента Random для генерации не повторяющейся последовательности случайных чисел от 0 до 9
Иногда такую задачу называют "перемешивание колоды карт". Пример статистически корректен
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Разработчик
Ответов: 26151
Рейтинг: 2127
#8: 2009-12-17 10:22:36 ЛС | профиль | цитата
Ravilr, тебя попросили ответить на вопрос, тебе что в падлу написать пример из нескольких компонент
карма: 22

0
Ответов: 4641
Рейтинг: 334
#9: 2009-12-17 10:23:00 ЛС | профиль | цитата
nesco, это не то ?
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Разработчик
Ответов: 26151
Рейтинг: 2127
#10: 2009-12-17 10:24:45 ЛС | профиль | цитата
Ravilr писал(а):
Пример статистически корректен

Я не тот пример глянул, извини.
карма: 22

0
Ответов: 4641
Рейтинг: 334
#11: 2009-12-17 10:25:11 ЛС | профиль | цитата
nesco писал(а):
тебе что в падлу написать пример

я считаю нет смысла делать пример, если он есть уже в вики.

nesco, если я где то не прав...скажи!
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 100
Рейтинг: 10
#12: 2009-12-17 10:25:34 ЛС | профиль | цитата
nesco, выложеный вами код, как его использовать? собирать схему вручную с написанными там элементами и их параметрами?
карма: 1

0
Разработчик
Ответов: 26151
Рейтинг: 2127
#13: 2009-12-17 10:26:42 ЛС | профиль | цитата
Ravilr писал(а):
это не то ?

Что не то, пример не так работает что ли
Я привел пример для генерации гарантированной последовательности чисел от 0 до 99
------------ Дoбавленo в 10.27:
PanQ писал(а):
nesco, выложеный вами код, как его использовать? собирать схему вручную с написанными там элементами и их параметрами?

Copy/Paste на поле Hiasm'a

Вставка и копирование схем на форуме
карма: 22

1
Голосовали:PanQ
Ответов: 100
Рейтинг: 10
#14: 2009-12-17 10:30:08 ЛС | профиль | цитата
Спасибо, буду пробовать
------------ Дoбавленo в 10.30:
Спасибо, буду пробовать
карма: 1

0
Разработчик
Ответов: 26151
Рейтинг: 2127
#15: 2009-12-17 10:33:04 ЛС | профиль | цитата
Ravilr писал(а):
если я где то не прав...скажи!

Ну не всегда же можно носом в справку тыкать, можно и самому чего-то сделать, а вдруг интереснее получится, чем в справке
карма: 22

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)