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

Как мне перемешать последовательность (больше 256)   Найти похожие ветки 

 
Norm Iridium ©   (2006-01-19 20:59) [0]

Как мне перемешать последовательность чисел, неповторяющихся, количество которых не ограничевается 256 элементами


 
Ell   (2006-01-19 21:02) [1]

А при чём тут ограничение 256?


 
Ell   (2006-01-19 21:07) [2]

Тип переменной, определяющей количество, задай не byte, а, например, word, тогда будет до 65536.


 
Norm Iridium ©   (2006-01-20 20:06) [3]

И в чем же тогда это все хранить?


 
Vemer ©   (2006-01-20 21:41) [4]

Кто как умет. Например я все храню в базе данных.


 
SergP ©   (2006-01-20 21:57) [5]

Наверное что-то типа:

for i:=high(myarray) dowmto 0 do
begin
 a:=random(i);
 b:=myarray[a];
 mmyarray[a]:=myarray[i];
 myarray[i]:=b;
end;


только причем здесь 256 - не пойму...


 
Norm Iridium ©   (2006-01-23 18:11) [6]

Спасибо за красивое решение.
А сколько влезет в массив элементов?


 
DiamondShark ©   (2006-01-23 18:30) [7]


> А сколько влезет в массив элементов?

Теоретически -- два гигабайта.
Практически -- сотня-другая мегабайт.

А сколько надо?


 
Norm Iridium ©   (2006-01-23 18:55) [8]

~150 000 элементов. Это около 600 килобайт... Значит влезет ;-)


 
Norm Iridium ©   (2006-01-23 18:56) [9]

А если более шустрый алгоритм?



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

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



Память: 0.46 MB
Время: 0.028 c
4-1133182418
Zeleniy
2005-11-28 15:53
2006.02.12
Как записать название раскладки клавиатуры (en, ru и т.д) в label


15-1137648770
Pazitron_Brain
2006-01-19 08:32
2006.02.12
MySQL


1-1136939802
plop
2006-01-11 03:36
2006.02.12
Visio + Delphi


15-1137501913
Yegorchic
2006-01-17 15:45
2006.02.12
Сотовый с ИК-портом...


2-1138082942
Andruh
2006-01-24 09:09
2006.02.12
проблема с выводом в мемо




   Наверх