Форум: "Основная";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.011 c