Как получить неповторяющиеся случайные числа

[Nikkonofun]

Уважаемые программисты, знает ли кто-нибудь способ "случайного" выбора числа кроме Randomize и Random? Дело в том, что мне нужно сгенерировать массив из 250 случайных чисел и при использовании функции Randomize по многу раз подряд повторяется одно и тоже число.

[Sazary]

А вы как записываете?
randomize нужно вызывать только один раз.
Пример:

randomize;
for i:=1 to n do
 begin
 a := random(20);
 writeln(a);
 end;

[Nikkonofun]

Я пробовал вызывать Randomize как перед циклом так и в самом цикле, однако результат один и тот же. Думаю тут дело в том что Randomize обращаясь к системному таймеру и попадает на одно и то же время, поэтому получается одно и то же число. Все это изза слишком быстрого выполнения цикла. Когда я ставил в цикле например Delay(10000) генерировались разные числа, но такой вариант не очень подходящий так как генерация чисел занимает на порядок больше времени.

[Arigato]

Какие проблемы с приведённым Sazary кодом?

[Баламут]

Возможно это поможет. Здесь идет просто перемешивание в массиве.

var
  i,j: integer;
  a: integer;
  ar: array of integer;
  n: integer;
begin
Memo1.Clear;
n := 10;
Setlength(ar, n);
Randomize;

for i := 0 to High(ar) do ar[i] := i;
for i := High(ar) downto 0 do begin
 j := Random(i);
 a := ar[j];
 ar[j] := ar[i];
 ar[i] := a;
end;

[-HunteR-]

Nikkonofun
Ты хочешь, чтобы в массиве не было ни одного похожего числа?

[Nikkonofun]

Баламут спасибо, предложенный тобой алгоритм помог.

-Hunter- мне нужно не обязательно не повторяющиеся числа, надо было сделать так, чтобы в массив не вводилось 250 одинаковых чисел подряд как это происходило, а чтобы предидущее число небыло таким как несколько последующих.

[DeKot]

Вот еще вариант:

var
m: array [0..249] of byte;
x,y: integer;
i,j: byte;
procedure TForm1.FormPaint(Sender: TObject);
begin
  x:= 50; y:= 50;
  Randomize;
  Form1.Canvas.Font.Size:= 12;
  for i:= 0 to 249 do
  begin
    Form1.Canvas.TextOut(x,y,IntToStr(random(250)));
    Inc(j);  x:= x + 40;  
    if j = 15  then
    begin
       x:= 50;  y:= y + 30; j:= 0;
    end;
  end;
end;