Вниз
Скачать: 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.011 c
1-76029
udavf
2003-02-13 15:06
2003.02.24
фокус ввода


14-76099
Вадим
2003-02-09 22:31
2003.02.24
: - )


1-75983
NewAndrey
2003-02-12 20:06
2003.02.24
Некорректная работа с Excel


6-76057
XHelp
2002-12-15 15:24
2003.02.24
p2p сети + delphi...


1-75980
V-Isa
2003-02-12 15:42
2003.02.24
Окно, кот. не может быть перекрыто...




   Наверх