Форум: "Потрепаться";
Текущий архив: 2003.02.24;
Скачать: [xml.tar.bz2];
ВнизПомогите чловеку Найти похожие ветки
← →
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 возможно это мало
← →
Ich Hasse (2003-02-07 23:52) [10]ну не знаю, кому как
← →
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;
← →
Юрий Зотов (2003-02-08 07:22) [12]> Mihey (08.02.03 00:06)
???
for I := 0 to High(A) do A[I] := Random(...);
И все.
← →
Романов Р.В. (2003-02-08 08:59) [13]Самое простое - генерировать возрастающую последовательность.
000000
100000
200000
и т.д.
Запоминать нужно только последний набор символов.
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.02.24;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.026 c