Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

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

 
AlexSt   (2003-06-12 15:23) [0]

Здравствуйте, уважаемые мастера!
Не могу сообразить, как сделать следующее:
Имеется массив Mix: array [1..MaxNumber] of Byte; необходимо перемешать элементы массива в случайном порядке, причём этих элементов может быть очень много (до 10000).
Подскажите пожалуйста, как это можно сделать быстро?
Буду признателен за пример.


 
Palladin ©   (2003-06-12 15:39) [1]

10000 это совсем не много... это капля в море...

randomize;
for i:=1 to MaxNumber do
begin
idx1:=random(maxnumber-1)+1;
idx2:=random(maxnumber-1)+1;
t:=mix[idx1];
mix[idx1]:=mix[idx2];
mix[idx2]:=t;
end;


 
Sandman25 ©   (2003-06-12 15:45) [2]

Если нужно будет перемешать побольше, можно указать
for i := 1 to MaxNumber*10 {или сколько нужно} do
в решении Palladin © (12.06.03 15:39)



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

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.021 c
1-84345
Кен
2003-06-09 05:37
2003.06.26
Что изменить в Дельфи, чтобы она сохраняла формы в dfm-файлы


1-84419
SSSSS
2003-06-06 22:58
2003.06.26
НАРОД!!! Как вывести форматированный текст поверх катртинки


14-84701
Soft
2003-06-03 13:56
2003.06.26
Длинные волосы


11-84061
Alexander
2002-09-22 16:14
2003.06.26
Пытаюсь убрать у окна иконку в заголовке (ну это как тип Dialog


1-84282
comintegrator
2003-06-14 19:45
2003.06.26
удалить папку