Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.15;
Скачать: CL | DM;

Вниз

Генератор   Найти похожие ветки 

 
AFFONYA   (2006-09-30 13:11) [0]

Приветствую мастера и тех кто помладьше....
У меня такая проблема .... точнее вопрос ...
Есть допустим какието 3 переменные ...... допустим....
И они у нас равны :
а:="1234567890";
b:="qwertyuiopasdfghjklzxcvbnmЙЦУКЕННГШЩЗХЪЧАРПЛОРЛОфывцукекнггшщзщQWERTYUIOASDF GHJ";
c:="?><,./":;"}{[]=-)(*&^%$#@!+_";

Вопрос как зделать конечную переменную чтоб она у нас была уже с совмещенным текстом всех трех переменных....

R:="12qweQWEВФЫВПРОФЫВАвапро:";"" "; ----- примерно так .....

Зарание спасибо .....


 
Percent   (2006-09-30 13:14) [1]

c:="?><,./":;"}{[]=-)(*&^%$#@!+_";

Весело...

Что значит "совмещенный" текст?
d := a + b + c;
Так?


 
AFFONYA   (2006-09-30 13:36) [2]

Нет надо чтоб попробывал сгенерить разные ваианты.....
Допустим ...
фFвАпП5"
Не более 6 символов...
ЗЫ.....


 
Орион ©   (2006-09-30 13:46) [3]

var
 z, res: string;
 i: Integer;
begin
 z:=a+b+c;
 SetLength(res, 6);
 Randomize;
 for i:=1 to 6 do res[i]=z[Random(Length(z))+1];
end;


 
AFFONYA   (2006-09-30 13:52) [4]

Спасибо за реализованный код бум развивать.....


 
Desdechado ©   (2006-09-30 20:23) [5]

Орион ©   (30.09.06 13:46) [3]
Вообще говоря, вероятность "совмещенного" будет меньше единицы. Т.е. не всегда будут браться символы из каждой из 3 строк, поскольку они разной длины. (хотя и с одинаковой длиной тоже возможны неиспользования символов отдельных строк).
Логичнее было бы выбирать случайное количество символов (пропорциональное длине строки) из случайно выбранной строки.


 
Kolan ©   (2006-09-30 20:40) [6]


> Desdechado ©   (30.09.06 20:23) [5]

Или из каждой в отдельности выбрать символы , составить из них строку, а потом её перемешать.



Страницы: 1 вся ветка

Текущий архив: 2006.10.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.046 c
8-1142918795
mobila
2006-03-21 08:26
2006.10.15
ограничить перемещение мыши


15-1158354038
developer2006
2006-09-16 01:00
2006.10.15
расделить OnClick и неведение для MenuItem


15-1158812778
palva
2006-09-21 08:26
2006.10.15
Электронные книги.


15-1158769695
Ringo
2006-09-20 20:28
2006.10.15
XP не видит CDROM


2-1159357517
Anto}{a
2006-09-27 15:45
2006.10.15
delphi не находит нужного поля