Форум: "Начинающим";
Текущий архив: 2006.10.15;
Скачать: [xml.tar.bz2];
ВнизГенератор Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.061 c