Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.19.56.45] |
|
Сообщ.
#1
,
|
|
|
Добавить условия в код:
Если выбран CheckBox1 то генерация идет со словаря Dict Если выбран CheckBox1 и CheckBox2 то генерация идет со словаря Dict и Dict2 Если выбран CheckBox1, CheckBox2 и CheckBox3 то генерация идет со словаря Dict, Dict2 и Dict3 Если выбран CheckBox1, CheckBox2, CheckBox3 и CheckBox4 то генерация идет со словаря Dict, Dict2, Dict3 и Dict4. То есть если в const задана длина 8 и выбран CheckBox1 и CheckBox2 то данные используются только со словаря Dict, Dict2 и на выходе получаем символьную строку состоящую из 8 символов (словарей Dict, Dict2). const len=8; {длина} x=100; {кол-во создаваемых} var Dict,Dict2,Dict3,Dict4:string; Pass:array[1..4] of string; Pass2: array[1..4] of string; i,j: integer; f1 : text; m1,m2,m3,m4:byte; ......................................... Dict:='№123№123№123'; Dict2:='2020data'; Dict3:='>>>'; Dict4:='N1,N2,N3,N4; {4 словари} Randomize; for i:=0 to x-1 do begin for j:=1 to 4 do begin Pass[j]:=''; Pass2[j]:=''; end; for j:=0 to 2 do Pass2[1]:=Pass2[1]+Dict[Random(25)+1]; {генерируем} for j:=0 to 1 do Pass2[2]:=Pass2[2]+Dict2[Random(25)+1]; for j:=0 to 1 do Pass2[3]:=Pass2[3]+Dict3[Random(9)+1]; Pass2[4]:=Pass2[4]+Dict4[Random(21)+1]; m1:=Random(3)+1;{генерируем место первой части кода} Pass[m1]:=Pass2[1]; repeat m2:=Random(3)+1; until (m1<>m2); Pass[m2]:=Pass2[2]; repeat m3:=Random(3)+1; until (m1<>m2)and(m1<>m3)and(m2<>m3); Pass[m3]:=Pass2[3]; for j:=1 to 4 do if(j<>m1)and(j<>m2)and(j<>m3)then m4:=j; Pass[m4]:=Pass2[4]; writeln(f1, Pass[1]+Pass[2]+Pass[3]+Pass[4]); ................................................ |
Сообщ.
#2
,
|
|
|
А в чем проблема?
Вставляй проверку If CheckBox?.Checked then и т.п. в коде где требуется ветвление |
Сообщ.
#3
,
|
|
|
Цитата ^D^ima @ А в чем проблема? Вставляй проверку If CheckBox?.Checked then и т.п. в коде где требуется ветвление С этим разобрался, еще есть несколько моментов: В коде значения генерируются по секциям, то есть с словарей Dict, Dict2, Dict3, Dict4. А как задать генерацию каждой секции рандомно? То есть к примеру: В словаре Dict генерируется от 1 до 5 символов В словаре Dict2 генерируется от 1 до 2 символов В словаре Dict3 генерируется от 1 до 4 символов В словаре Dict4 генерируется от 1 до 3 символов |
Сообщ.
#4
,
|
|
|
Цитата Kirilis2018 @ А как задать генерацию каждой секции рандомно? Randomize, Random()? |
Сообщ.
#5
,
|
|
|
Цитата ^D^ima @ Randomize, Random()? Тут походу Random(). Добавлено ^D^ima, Все разобрался. Задачу решил! Спасибо! |