Random

← →
sergAP (2006-04-21 11:56) [0]

Подскажите, такая ситуация
имеется список вопросов (пример 100 шт);
используя случайный выбор (random) - выподает 20-тый вопрос.
как сделать что бы 20-тый больше не выпал из этого же списка,
и выборка пошла из 99-ти (без 20-го)?

заранее благодарен
neo_cleaner

← →
Desdechado © (2006-04-21 11:58) [1]

перед выдачей вопроса проверять список использованных на предмет наличия в нем только что сгенерированного
если есть, повторить генерацию

← →
Сергей М. © (2006-04-21 12:04) [2]

while StringList.Count > 0 do begin
i := Random[StringList.Count];
ShowMessage(StringList[i]);
StringList.Delete(i);
end;

← →
vl_chel © (2006-04-21 14:10) [3]

Поиметь массив со списком выданных вопросов а дальше как в "Что Где Когда" вопрос обработан переходим к следуешему

Использовать множество (var s:Set of byte) , при получении номера проверять if NUM in s -> новый номер если нет -> добавить его в s (s:=s+[NUM])

сделать статический на 100 или динамический массив : boolean

Random Найти похожие ветки