В добавление к примеру из сортировки выбором, да в принципе и для любой сортировки, можно дописать функцию перемешивания элементов, например так…
Код
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
procedure TForm2.Unsort(var MyArray: TMyArray; min, max: Integer); var i,RandomPos, tmp : Integer; begin for i := min to max do begin //Выбираем случайную позицию Randomize; RandomPos:=min+trunc(Random(max-min+1)); //Переставляем элементы tmp:=MyArray[RandomPos]; MyArray[RandomPos]:=MyArray[i]; MyArray[i]:=tmp; end; end; |
Каждый из элементов массива попадает у нас на произвольное место в списке.