Вопрос по информатике:
ПАСКАЛЬКУЧАБАЛОВ напишите програму которая генерируте любое количество паролей любой длины из букв,цифр или и тогоо и другого. Надо красиво оформить
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 25.11.2016 08:12
- Информатика
- remove_red_eye 1485
- thumb_up 19
Ответы и объяснения 2
Var l:char;i,n,a,k,m,d,q:integer;s:string;
label z;
begin
randomize;
writeln ('Введите количество паролей');
writeln ('Из чего состоят пароли?');
z:writeln ('1 - буквы 2 - цифры 3 - и буквы и цифры');
readln (a);
if (a1)and (a2)and (a3)then
begin
writeln ('Неправильный ввод. Ввести заново (0 - да / 1 - нет)?');
read (q);
if q=0 then goto z else halt;
end else
begin
writeln ('Введите количество паролей: ');
readln (n);
writeln ('Введите длину пароля: ');
readln (k);
writeln ('Пароли:');
if a=1 then
begin
for i:=1 to n do
begin
for d := 1 to k do
s:=s+chr(random(26)+97);
writeln(s);
s:='';
end;
end;
if a=2 then
begin
for i:=1 to n do
begin
for d := 1 to k do
s := s + chr(random(10)+48);
writeln(s);
s:='';
end;
end;
if a=3 then
begin
for i:=1 to n do
begin
for d := 1 to k do
s := s + chr(random(26)+97)+chr(random(10)+48);
delete(s,k,k);
writeln(s);
s:='';
end;
end;
end;
end.
- 26.11.2016 21:22
- thumb_up 28
Вот. Мой вариант генератора. program pr; var text:string;i,length,i2,i3,view,n:integer; begin randomize; write('Кол-во паролей: '); readln(n); writeln(); write('Длина одного пароля: '); readln(length); writeln(); writeln('Вид. 1 - буквы, 2 - цифры, 3 - буквы и цифры'); write('Ответ: '); readln(view); writeln(); case view of 1:begin for i:=1 to n do begin for i2:=1 to length do begin text:=text+chr(97+random(26)); end; writeln(text); text:=''; end; end; 2:begin for i:=1 to n do begin for i2:=1 to length do begin text:=text+chr(48+random(10)); end; writeln(text); text:=''; end; end; 3:begin for i:=1 to n do begin for i2:=1 to length do begin i3:=random(2); if i3=0 then text:=text+chr(48+random(10)); if i3=1 then text:=text+chr(97+random(26)); end; writeln(text); text:=''; end; end; else begin writeln('Неверный ввод'); end end; end.
- 27.11.2016 00:17
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.