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 (a<>1)and (a<>2)and (a<>3)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.
Вот. Мой вариант генератора. 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.
label z;
begin
randomize;
writeln ('Введите количество паролей');
writeln ('Из чего состоят пароли?');
z:writeln ('1 - буквы 2 - цифры 3 - и буквы и цифры');
readln (a);
if (a<>1)and (a<>2)and (a<>3)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.