Показать сообщение отдельно
  #2  
Старый 11.05.2011, 18:55
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Случайной перестановки? да просто.
Код:
a:=random(N);// N - количество элементов
b:=random(N);
while b=a do 
   b:=random(N); // чтобы никогда не было a=b
Потом меняем местами значения элементов списка A и B.
Делаем этот код столько раз, сколько хочется.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием