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

Вниз

Перемешать массив   Найти похожие ветки 

 
Vladislav   (2002-07-25 12:12) [0]

Как быстрее всего перемешать массив?


 
RV   (2002-07-25 12:30) [1]

смотря какой массив
смотря что понимать под перемешанным/неперемешанным массивом


 
Viewer   (2002-07-25 12:39) [2]

Для перемешиванния в случайном порядке использовать случайный подход.
Случайно выбирать i,j из диапазона и обменивать значения.

Для "неслучайного" подхода взять два близких простых числа A,B и с их шагом циклически пробежаться несколько раз по массиву обменивая ячейки с индексами кратными этим числам.


 
eSKey   (2002-07-25 12:44) [3]

А поиском по форуму воспользоваться трудно? Эта тема уже не первый раз обсуждается и имеет простейшее решение.


 
RV   (2002-07-25 13:05) [4]

массив исходный (неперемешанный?)
a[1]=1
a[2]=2
..
a[n]=n

массив ( перемешанный?)
a[1]=n
a[2]=2
..
a[n]=1

с какого момента массив считается перемешанным?
-----
один волос - не борода
2 - не борода
3 - не борода
...
100000 - борода

сколько волос уже борода?


 
Vladislav   (2002-07-25 13:14) [5]

for i := 1 to High( Numbers ) do Numbers[ i ] := i;
for i := High( Numbers ) downto 1 do begin
R := Random( i );
S := Numbers[R];
Numbers[R] := Numbers[i];
Numbers[i] := S;
end;


 
RV   (2002-07-25 13:22) [6]

можно до половины цикл сделать
брать рандомом елемент и менять с соответствующим из второй половины



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

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

Наверх





Память: 0.45 MB
Время: 0.005 c
14-24183
^Sanya
2002-07-08 00:11
2002.08.08
Почём нынче лицензионное Delphi? (5,6)


1-23975
V.Turecky
2002-07-26 20:55
2002.08.08
Можно ли установить свой цвет Transparent в TImage?


14-24224
Bboy
2002-07-15 09:29
2002.08.08
Подскажите недогадливому, как снести XP???


3-23895
Александр Рогань
2002-07-17 18:15
2002.08.08
Динамическая загрузка формы из файла !!!


3-23910
BS
2002-07-18 10:29
2002.08.08
Проблемы - снова ADO выгружается на 30-м разе.





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