Форум: "Основная";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];
Вниз
Перемешать элементы массива Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.029 c
