Помогите чловеку

← →
swordent (2003-02-07 22:31) [0]

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

← →
Ich Hasse © (2003-02-07 22:44) [1]

генеришь и проверяешь, не бы ло ли такой ранее

← →
OxOTHuK (2003-02-07 22:55) [2]

ага... послушай Хасса. Цикл в цикле ё-моё.. =)

← →
Palladin © (2003-02-07 22:59) [3]

много раз это сколько?

← →
Palladin © (2003-02-07 23:14) [4]

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

← →
Palladin © (2003-02-07 23:16) [5]

естественно это не будет все множество уникальных последовательностей, но человек такую задачу не ставил :)

← →
Anatoly Podgoretsky © (2003-02-07 23:21) [6]

Palladin © (07.02.03 22:59)
Важен только этот ответ и также какие символы могут входить в данную последовательность.

← →
Palladin © (2003-02-07 23:26) [7]

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

← →
Ich Hasse © (2003-02-07 23:28) [8]

А еще можно (GUID) кажется он так называется. (Надо нажать CTRL+SHIFT+G)

← →
Anatoly Podgoretsky © (2003-02-07 23:44) [9]

Ну это всего 2^128 возможно это мало

ну не знаю, кому как

← →
Mihey (2003-02-08 00:06) [11]

Заполнение массива случайными числами, может пригодиться (ведь строка - это массив символов):

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;

> Mihey (08.02.03 00:06)

???

for I := 0 to High(A) do A[I] := Random(...);
И все.

Самое простое - генерировать возрастающую последовательность.
000000
100000
200000
и т.д.
Запоминать нужно только последний набор символов.

Помогите чловеку Найти похожие ветки