Главная страница
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.48 MB
Время: 0.048 c
5-1140961860
Priest
2006-02-26 16:51
2006.10.15
Assign для наследника TCollectionItem


15-1158920960
Сергей М.
2006-09-22 14:29
2006.10.15
Проблема с загрузкой ресурса в "мобилу" c использованием WAP


2-1159340524
Alex_C
2006-09-27 11:02
2006.10.15
Пытаюсь рисовать на канве RichEdit. Не получается.


2-1159263649
Olga_85
2006-09-26 13:40
2006.10.15
преобразование данных


2-1159215830
Tananda
2006-09-26 00:23
2006.10.15
Как организовать ожидание ответа?