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

Вниз

Генератор случайных числе   Найти похожие ветки 

← →
reonid   (2002-04-01 13:56) [14]

отобрази оставшиеся числа диапазона 0..N-1 в непрерывный диапазон 0..M-1 и ищи случайное число в лиапазоне 0..M-1.
Можно, например, хранить целые в TList:

for i := 0 to N-1 do List.Add(Pointer(i));

i := Random(List.Count);
Result := Integer(List[i]);
List.Remove(Pointer(Result));

---

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

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

Наверх

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