Delphi, циклы, лаба

[verka1]

Подскажите красивый алгоритм (для лабы)

Дан диапазон стринговых переменных 100 штук

s001 := 'тест1'
s002 := 'тест2'
...
s100 := 'тест100'

диапазон разбит на 10 поддиапазонов по 10 переменных в каждом

s001 - s010
s011 - s020
...
s091 - s100

даны 10 булевых флагов каждый из которых разрешает работу в своем поддиапазоне

b1,b2...b10: Boolean;

т.е.
если b1=True То в диапазоне s001 - s010 можно выбирать

Задача:
осуществить случайный выбор, (Randomize) одного значения из всего доступного диапазона
(обходя запрещенные участки)

т.е.
если юзер указал (там чекеты на форме), например

b1:=True;
b2:=True;
b3:=False;
b4:=True;
b5:=True;
b6:=False;
b7:=True;
b8:=False;
b9:=True;
b10:=True;

то функция Randomize
должна выбирать одну переменную из списка:

[s001 - s020,s031 - s050,s061 - s070,s081 - s100]

т.е. возвращать значение Num:Integer = номер случайной переменной:

Num := Random(что-то хитрое)


...

Мной написан супер-пупер алгоритм, на 250 строк кода делающий все это, но препод заржал как коннь, сказал "это решается в несколько строк - хошь "трояк" - приму твое... а я трояк не хочу")

Мне хотя бы просто указать нужный путь, просто "кури циклы" мне не понятно)

[p51x]

А тут именно "кури цикл" - запускаете цикл, в котором выполняете рандом по всему диапозону, а в постусловии проверяете, что попали в допустимый.

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

[verka1]

Сообщение от p51x

А тут именно "кури цикл" - запускаете цикл, в котором выполняете рандом по всему диапозону, а в постусловии проверяете, что попали в допустимый...

А если разрешен, скажем всего 1 из 10 поддиапазонов, представляете какая вероятность что этот цикл зациклится на проверке постусловия и будет крутиться в нем 500 лет? )

[Аватар]

В массивы строки и флажки:

var m: array[1..100] of String;
    b: array[1..10] of Boolean;

и

  k:=0;
  for i:=1 to 10 do k:=k+Ord(b[i]);
  if k>0 then begin
    j:=Random(k*10)+1;
    for i:=1 to 10 do
      if not b[i] then Inc(j,10)
      else if j<=i*10 then begin
        ShowMessage(m[j]);
        Break;
      end;
  end
  else ShowMessage('Все выключено');

будет крутиться в нем 500 лет

не будет ))

[verka1]

Спасибо,
крутовато конечно написано, счас попытаюсь разобраться своим умишком что тут и где)