Массив случайных не повторяющихся чисел

← →
[BAD]Angel (2003-06-08 20:31) [0]

Уважаемые мастера! Помогите пожалуйста в следующем вопросе:
как загнать в массив случайные, не повторяющиеся, числа?

После двух суток работы, я ничего не соображаю! :( а завтра зачет... Одна надежда на вас, помогите ПЛЗ.

← →
k-man (2003-06-08 20:33) [1]

randomize
random

← →
[BAD]Angel (2003-06-08 20:38) [2]

как не странно, но не получается... естественно все загоняется, но возникают множественные повторения. :(

← →
Александр из Минска (2003-06-08 20:39) [3]

Поищи тут же на этом форуме. Я это уже видел недавно!

← →
[BAD]Angel (2003-06-08 20:44) [4]

я искал, но чей-то не могу найти.

← →
[BAD]Angel (2003-06-08 20:49) [5]

Ура... сделал! Ну все равно, СПАСИБО за внимание!

← →
k-man (2003-06-08 20:55) [6]

> СПАСИБО за внимание!

Пожалуйста, Обращайся если что...

← →
Anatoly Podgoretsky (2003-06-08 21:16) [7]

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

← →
Плохой человек (2003-06-08 21:23) [8]

2 All exc Author:

Не знаете - не пишите.

2 Author (if needed):

Вот процеДУРА:

procedure FillArray(var A: array of Integer);
var

I, S, R: Integer;
begin

for I := 0 to High(A) do A[I] := I;
for i := High(A) downto 0 do begin
R := Random(I);
S := A[R]; A[R] := A[I]; A[I] := S;
end;
end;

← →
k-man (2003-06-08 21:56) [9]

> Не знаете - не пишите.

Извини Плохой не посоветовались....

← →
Oleg_Gashev (2003-06-09 03:07) [10]

Плохой человек (08.06.03 21:23)

В этом алгоритме есть несколько но.

1) Может мне необходимы не все числа, а только несколько из них. Если размер массива будит очень большой, и надо выбрать несколько чисел, намного меньше размера массива, появится очень много лишних перемешиваний.

2) Этот алгоритм подойдет только тогда, когда все числа уже известны. Но не подойдет, когда нужно выбрать, например, числа между 0 и 1. Сначала приходится генерировать массив не повторяющихся чисел, а потом (что сводится к нашей задаче) по ним выбирать.

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

Например, последовательность x[n+1]=(x[n-24]+x[n-55]) mod m , n>=55. m=2*k+1; Длина периода равна 2^(e-1)*(2^55-1) когда m=2^e.

Для простейших случаев подойдет последовательность x[n+1]=(x[n]+x[n-1]) mod m. Эта последовательность Фиббоначи. Но такие числа недостаточно случайны.

Массив случайных не повторяющихся чисел Найти похожие ветки