Главная страница
    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.007 c
1-70260
User
2003-05-12 12:22
2003.05.22
Create(?)


1-70341
Shadowofman
2003-05-08 17:17
2003.05.22
Как повысить точность TTimer?


1-70330
Yuraz
2003-05-08 19:31
2003.05.22
Как раскрасить опр. ячейку StringGrid?


1-70213
Angel_Forever
2003-05-11 10:46
2003.05.22
Shutdown в Win NT 2k XP


1-70375
klyonov
2003-05-08 17:19
2003.05.22
WS_EX_TRANSPARENT и не только





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