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

Вниз

Random элементов массива.   Найти похожие ветки 

← →
Сергей Ж.   (2003-09-27 00:02) [0]

Есть массив упорядоченный. Как сделать так, чтобы элементы его хаотично перемешались?

---

← →
Zacho ©   (2003-09-27 00:29) [1]

Например, так:
var
i,r,tmp:integer;
begin
for i:=Low(MyArray) to High(MyArray) do
begin
tmp:=MyArray[i];
r:=Random(High(MyArray))+Low(MyArray);
MyArray[i]:=MyArray[r];
MyArray[r]:=tmp;
end;
end;

---

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

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

Наверх

Память: 0.46 MB
Время: 0.025 c