Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];

Вниз

Генерация случайных чисел без повторов   Найти похожие ветки 

 
Aiax   (2003-06-09 12:45) [0]

Надо сгенерить миллион 6-значных чисел без повторов. Как это сделать оптимально - пока не знаю. Пробовал каждое вновь создаваемое число сравнивать со всеми предыдущими и пересоздавать его при повторе - но это процесс дико медленный и на моём компе генерация идет минут 30. Подскажите как это сделать быстрее и гарантировано избежать повторений. Заранее спасибо.


 
DmS   (2003-06-09 12:49) [1]

был уже такой вопрос как-то ...

смысл в том, что тебе надо перемешать массив чисел идущих по порядку (например по возрастанию - этообеспечит уникальность). перемешиваешь так - просто меняешь местами i-ый и j-ый элементы (i, j - случайные числа).



 
Aiax   (2003-06-09 13:00) [2]

Был бы благодарен за фрагментик кода, который сгенерит мне уникальную последовательность, потому что если честно идею DmS не понял


 
DmS   (2003-06-09 13:04) [3]

a : array [1..1000] of integer;

for i:=1 to 1000 do a[i]:=1 000 000 + i;
Randomize;


for i:=1 to 1000 do begin
newPos := Random (1000);
tmpA:= a[newPos];
a[newPos]:=a[i];
a[i]:=tmpA;
end;


код на скорую руку :)


 
Aiax   (2003-06-09 13:19) [4]

Хе, код увидел - сразу дошло :) Действительно просто и надежно! Пасибки большое DmS



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.029 c
1-84140
ngczn
2003-06-10 13:27
2003.06.26
маска ввода


3-83876
ec
2003-05-29 18:57
2003.06.26
TDBImage


14-84636
sly fox
2003-06-10 08:34
2003.06.26
Где взять готовые отчеты?


14-84687
Fareader
2003-06-03 19:31
2003.06.26
Работа в Днепропетровске


1-84415
Dmitry111
2003-06-09 13:45
2003.06.26
Использование Excel из Delphi





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский