Главная страница
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.062 c
6-1148051262
kernel
2006-05-19 19:07
2006.10.15
Противная ошибка


3-1155390045
Михаил1234567890
2006-08-12 17:40
2006.10.15
База данных аэропорта


2-1159430919
vodvorezlaya
2006-09-28 12:08
2006.10.15
Помогите составить обработчик для ListBox


15-1158866149
Kolan
2006-09-21 23:15
2006.10.15
Помогите заменить массив ChechBox массивом Boolean


2-1159348886
webpauk
2006-09-27 13:21
2006.10.15
Что использовать?