Реализовать диапазон случайных чисел.

[Amilman]

Доброго времени суток.

К примеру есть 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.

[northener]

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

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

Ну да. И легко и красиво. Вот только кто будет задавать начальное состояние этого Set'a? Пушкин?

[jillitil]

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

кто будет задавать начальное состояние

Компилятор. Он обнуляет все глобальные переменные. Если оформить в виде функции то да, надо будет руками кой чего дописать символов эдак семь. Тут вроде помощь, а не сделайте за меня бесплатно. Я рабочий код подкинул, остальное дело за воспрошающим.

[Amilman]

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

Компилятор. Он обнуляет все глобальные переменные. Если оформить в виде функции то да, надо будет руками кой чего дописать символов эдак семь. Тут вроде помощь, а не сделайте за меня бесплатно. Я рабочий код подкинул, остальное дело за воспрошающим.

Ваш код действительно работает но вот только числа всегда получаются двухзначные:26,28,30,31,35,37,38,39 ,42,45,46,47,48,49,50,52,54,57
И вопросы у которых id от 1..9 не выпадают и еще на 15 вопрос всегда выпадает id 57

[p51x]

Ну так прочитайте хелп или в книге про функцию Random и ее параметр. Вдруг узнаете как сделать не двузначные и причем там 57.

[Serge_Bliznykov]

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

Я рабочий код подкинул, остальное дело за воспрошающим.

Вот Вы понимаете, что если использовать ваш код в основной программе,то переменные будут переменные и компилятор их обнулит (кстати, борланд всегда говорил, что это поведение не гарантируется и в следующих версия оно может быть изменено). А если использовать код в процедуре/функции, то переменные будут локальные и там вообще будет мусор.
А Вы уверены, что тот новичок, который использует ваш код, об этом знает?

я уже молчу о том, что не иницилизировать переменные перед тем, как обратиться к ним - это ужасный моветон.
Классика же - Буратино дали два яблока. Сколько яблок у Буратино?
Ответ - а хрен его знает, нам же не сказали, сколько у него яблок было до этого.

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

например,

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

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

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

end;

[Amilman]

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

Вот Вы понимаете, что если использовать ваш код в основной программе,то переменные будут переменные и компилятор их обнулит (кстати, борланд всегда говорил, что это поведение не гарантируется и в следующих версия оно может быть изменено). А если использовать код в процедуре/функции, то переменные будут локальные и там вообще будет мусор.
А Вы уверены, что тот новичок, который использует ваш код, об этом знает?

я уже молчу о том, что не иницилизировать переменные перед тем, как обратиться к ним - это ужасный моветон.
Классика же - Буратино дали два яблока. Сколько яблок у Буратино?
Ответ - а хрен его знает, нам же не сказали, сколько у него яблок было до этого.

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

Спасибо, вы очень помогли!
С помощью вашего примера при создании страницы заполняю memo.
Далее по кнопке беру первую строку memo и подставлю в запрос:

QueryQuestion.SQL.Text := 'SELECT TOP 1 * FROM Questions WHERE (id='+(IDQuestion)+');';

А далее удаляю первую строку из memo тем самым при следующем нажатии кнопки, вопрос будет с новым id

[Serge_Bliznykov]

пожалуйста.

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

Далее по кнопке беру первую строку memo и подставлю в запрос:

Всё так. Но зачем Вам мемо для этого?
объявите массив, при создании формы заполните его (перемешайте) и потом берите по одному значению.
примерно так:

unit Unit1;

interface

uses ....;

type
  TForm1 = class(TForm)

    .....

    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

const MaxQuestion = 57;

var
  ArrQuestion:array[1..MaxQuestion] of integer;
  QIndex : integer;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
 i,k,buf:integer;
begin
 Randomize;

 //заполнить
 for i:=1 to MaxQuestion do ArrQuestion[i]:=i;

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

 QIndex := 1; // индекс поставим на первую позицию
end;

где надо использовать

QueryQuestion.SQL.Text := 
  'SELECT TOP 1 * FROM Questions WHERE (id='+(IntToStr(ArrQuestion[QIndex]))+');';

Inc(QIndex); // переставим индекс на следующий случайный вопрос из массива