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

Вниз

Случайный выбор   Найти похожие ветки 

 
Rocker   (2003-05-10 07:25) [0]

Есть ли какой-нибудь наиболее простой способ случайного выбора значений из какой-либо структуры данных, например, множеств, и чтобы при этом значения не повторялись?
То есть, допустим:


type myset=set of byte;
.......
var s:myset;
begin
s:=[0,1,2,5,8,9];
.........
//Надо вызвать все числа: 0,1,2,5,8,9 в случайном порядке
end;


 
FAO   (2003-05-10 08:37) [1]

random


 
Rocker   (2003-05-10 08:47) [2]


> FAO (10.05.03 08:37)
> random


Что такое random я и так знаю, читайте, пожалуйста, лучше вопрос.

PS. То, о чем я спрашиваю, я знаю как реализовать с помощью циклов проверок, а мне было бы интересно узнать способ попроще и побыстродейственней!


 
Great_Lesh   (2003-05-10 09:42) [3]

А другого не дано, т.к. остальные способы либо менее быстродейственные, либо, если привязывать к переменным ОС, не случайны в условиях одного сеанса, поэтому рандомайз_таймер и рандом!


 
NDeu   (2003-05-10 11:40) [4]

Примерно так:
1.Заполняеш резултантного масива поочередно(неслучайно)
2.Пробегаеш того и обмениваеш каждой итем со случайной



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

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

Наверх





Память: 0.44 MB
Время: 0.006 c
3-70187
Endi
2003-05-03 15:52
2003.05.22
Выборка по разным частям записи


1-70242
Kardash
2003-05-11 15:17
2003.05.22
Как сделать фон формы градацией какого-нибудь цвета ???


14-70480
Anat
2003-05-03 15:42
2003.05.22
Как отправить письмо по NMSMTP.


3-70172
Оля
2003-05-03 08:35
2003.05.22
Как выбрать тип БД?


7-70539
Alexander2030
2003-02-11 14:14
2003.05.22
Закрыть программу





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский