Выбор случайных вопросов без повторений

Posted by obzor under Delphi

К примеру есть 57 вопросов из которых должны отобразится всего 15 у пользователя на экране.

Каждый следующий вопрос должен появляться при нажатии кнопки.
Но как показала практика из за генерации случайных чисел вопросы могут выпадать по два раза подряд одни и те же. Или за все время прохождения теста.

Вопрос, как сделать проверку чисел чтобы не выводить значения которые уже были?

Аватар

Можно, например, в TList поместить номера вопросов, рандомно выбирать и удалять после выбора. Аналогично это можно сделать с массивом номеров.

jillitil

Легко, красиво и изящно используя Set

VAR
   L: Set of 1..57  ;
   R: Byte;
   I: Integer;
Begin
  Randomize;
  For i:= 1 to 15 Do
  Begin
    Repeat
      R:= Random(57) + 1;
    Until Not (R in L);
      L:= L + [R]
  End;

  For I:= 1 to 57 Do
  If I in L Then WriteLn(I);
End.

Serge_Bliznykov

в таких задачах намного удобнее просто заполнить массив(список) значениями подряд и потом перемешать случайным образом: ТЫЦ

например,

const N = 57;
var
 i,k,buf:integer;
 mas: array [1..N] of integer;
begin
 //заполнить
 for i:=1 to N do mas:=i;
 Randomize;

 //----------перемешать-------------
 for i:=1 to N-1 do
  begin
   k:= Random(N-i+1)+i;
   if k<>i then begin
     buf:=mas;
     mas:=mas[k];
     mas[k]:=buf;
   end;
  end;

 //-------------вывести-------------
 for i:=1 to N do Write(mas:3);

end;

тема на форуме

Похожие статьи

• Равномерное распределение точек в круге
• Random слов в Memo
• Генерация слов из listbox
• Как из загруженного файла брать рандомную строку
• Генерация задачек вида 3*5-7
• Как генерировать случайные положительные и отрицательные числа?
• Заполнить текстовый файл случайными числами
• Использование нетипизированного указателя для передачи массива
• Генератор случайных чисел и англ. букв
• Как перемешать массив, заполненный английским алфавитом?