Вниз
Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.016 c
4-76229
Smok_er
2003-01-08 01:03
2003.02.24
ExtractIcon: или руки кривые, или глюки


1-75872
tva
2003-02-13 13:45
2003.02.24
Как читать из класса TXMLDocument ?


14-76165
sniknik
2003-02-07 21:43
2003.02.24
Пользуясь случаем, хочу! :-)))))


1-75884
Xmen
2003-02-14 06:49
2003.02.24
Помогите! Как определить размер файла?


9-75736
Armageddon
2002-09-14 07:44
2003.02.24
Графика




   Наверх