Вниз
Скачать: 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.009 c
3-23860
zx
2002-07-19 15:43
2002.08.08
EhLib TPrintDBGridEh


1-24004
c0pYc@t
2002-07-26 08:57
2002.08.08
StringToReal


7-24248
GreatMaster
2002-05-25 17:36
2002.08.08
Ыскейп команды для принтера или как обломать автопрогон страницы?


1-24041
ded_di
2002-07-25 17:15
2002.08.08
Тех.Задание


1-24086
SuMaga
2002-07-25 12:13
2002.08.08
вот такая вот непонятная Фигня?




   Наверх