Delphi - вывод рандомных вопросов из массива

[art.marked]

Здравствуйте, уважаемые программисты!

Программа тестирования должна выводить 10 вопросов из 32 (больше-меньше) в массиве. Но дело в том, что иногда всё-таки проскакивают одинаковые вопросы. Как исправить или может вообще по порядку пустить?

Краткий листинг процедуры:

 begin      //вывод вопроса на форму
   Randomize;
   vopros:= 1 + random(31);
   inc(num);
   label1.Caption:= Q+inttostr(num)+_of+inttostr(N); 
   label2.Caption:= test[vopros].que;          //рандомный выбор вопроса
   RadioGroup1.Items.Strings[0]:= ' '+test[vopros].v1;  //вывод ответов
   RadioGroup1.Items.Strings[1]:= ' '+test[vopros].v2;
   RadioGroup1.Items.Strings[2]:= ' '+test[vopros].v3;
   RadioGroup1.Items.Strings[3]:= ' '+test[vopros].v4;
   zero;
   ri:= test[vopros].r;
 end;

vopros - номер вопроса; que - текст вопроса;num - номер вопроса; ri - что-то с radio.group

Нужно подробнее - пишите.

Если будут умельцы, которые готовы подправить и подсчет оценки, то буду рад. +100 WMR

Заранее спасибо.

[Poma][a]

может вообще по порядку пустить?

Фи.. Только если

p := Random (32-10)+1;
for i := p to p+10 do
      // балуемся с вопросом

Но это не ахти..
Давайте сделаем так :

for i := 1 to 1000 do 
      Swap (a[Random(32)+1], a[Random(32)+1]

И далее выводим первые 10 вопросов.

P.S. Swap - должен быть самописный!!
UPDATE 19:13
P.P.S. А Вам не кажется, что по Вашему описанию переменных vopros и num выполняют одну и ту же функцию?

[s-andriano]

Сообщение от 'Poma

for i := 1 to 1000 do 
      Swap (a[Random(32)+1], a[Random(32)+1]

Ужас!
Зачем же такие извращения?

for i := 0 to 31 do
  swap(a[i], a[random(32)]);

И ничего лишнего.

[art.marked]

переменных vopros и num выполняют одну и ту же функцию?

Почти, vopros это случайный вопрос, а num отображает порядковый номер,.т.е. от 1 до 10 в программе.

В общем, сейчас то время, когда нет времени.
Поэтому, может есть выражения, которые делают рандом более рандомным?

Что-то я уже задумываюсь в сторону "все по порядку".

[Poma][a]

Зачем же такие извращения?

Почему же сразу извращения? По-моему очень даже ничего.
Всё красиво и даже интуитивно понятно..

[Fainder]

Но дело в том, что иногда всё-таки проскакивают одинаковые вопросы. Как исправить

Если вопрос является повтором, то взять следующий/предыдущий по порядку вопрос

[Человек_Борща]

Хоть бы кто вспомнил про RandomRange из модуля Math
Метод берет случайное число в пределах от X до N.

[Poma][a]

Хоть бы кто вспомнил про RandomRange из модуля Math

А чем это нам поможет?

[Человек_Борща]

А чем это нам поможет?

Ну как минимум так:

for i:=0 to 9 do
begin
 Randomize; //Меняем RandBase
 n:=RandomRange(1,Length(QArray));
 QArray[n].TextVoprosa
end;

[Poma][a]

Ну как минимум 2 вопроса :
1) Не совсем ясно зачем на каждой итерации цикла инициализировать ГПСЧ? ИМХО это делается 1 раз за всю программу
2) См. картинку. ТС просил вывести без повторов.