Вниз
Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c
1-24097
wowa
2002-07-26 15:47
2002.08.08
Delphi и C


14-24222
Oleg_Gashev
2002-07-14 03:03
2002.08.08
Favorites


3-23899
Ильдар
2002-07-17 15:46
2002.08.08
Еще один вопрос по Paradox y


3-23883
Prog_mail
2002-07-17 12:23
2002.08.08
Помогите, пожалуйста, с UpdateSQL


3-23953
the-best-officeman
2002-07-18 21:06
2002.08.08
for i := 0 to table1.RecordCount-1 do begin




   Наверх