freepascal.ru

Код: Выделить всё

   1   2   4   5   9  11  13  15  22  23  24  25  27  30  31  37  41  42  43  44  45  46  48  50  51  56  64  70  72  73  74  75  76  77  82  84  86  87  89  92  95  97  98 101 102 103 104 105 106 107 108 111 113 116 117 118 124 125 127 130 132 133 134 138 143 144 145 147 149 150
  16  21  22  23  24  25  26  27  28  29  31  33  35  37  39  41  44  47  49  50  51  52  54  55  56  57  59  61  62  65  66  69  70  71  72  77  78  79  81  83  84  85  91  92  93  94  95  96  98 100 101 103 107 108 109 112 113 115 117 118 119 121 122 124 129
   1   3   5   9  12  19  22  25  33  34  41  42  46  50  52  55  56  57  58  59  61  66  69  72  80  81  82  84  87  88  94  97  99 100 101 102 112 119 121 123 125 129 134 137 138 139 149 152 153 154 155 157 158 165 166 168 171 172 180 184 185 190 193 194 198 199 205 213 216 220
   5   6   7   8   9  10  11  12  13  14  16  18  21  22  23  24  27  28  29  30  31  32  34  35  38  40  41  42  43  44  45  46  47  48  51  52  53  54  55  57  58  59  60  61  62  63  64  65  66  67  70  71  73  74  75  76  78  79  80  81  82  84  85  86  88  89  91  92  93  94  95  96  97  98  99 100 104 105 106 107 108 111 112 113 115 116 117 118 119 120
  10  15  16  26  33  40  42  44  50  53  65  67  74  79  82  83  85  87  90  91  93  99 106 108 110 120 121 124 125 132 135 146 148 149 151 156 157 158 163 166 168 169 171 175 183 184 189 195 197 205 206 207 216 220 221 225 226 227 241 244
   8  12  21  25  26  29  30  31  34  48  49  50  52  55  59  60  62  70  71  73  83  85  90  91  92  93  94  96  97  99 100 102 103 104 105 106 108 119 121 122 124 127 128 130 132 141 142 144 156 160 165 166 169 171 173 176 179 191 192 195 199 200 207 209 220 221 222 224 226 229 233 234 236 239 240
  23  24  26  27  29  30  35  36  41  42  44  45  46  49  52  55  56  58  60  61  63  64  65  68  72  74  76  77  81  82  86  87  88  90  93  94  95  96  97  98 100 101 102 107 108 109 112 113 114 115 117 120 123 127 132 133 135 137 138 143 145 146 147 150 152 155 156 159 161 162 163 164 165 168 170 172 177 178 179 180
  15  17  19  20  21  22  23  26  28  29  30  32  33  34  36  38  41  42  44  45  46  48  49  52  57  60  62  65  66  68  73  74  77  78  83  84  85  88  89  90  91  92  95  96  97  98  99 100 101 102 103 104 107 108 115 116 118 127 128 129 130 131 134 135 136 137 139 145 146 150 151 152 154 157 160 161 164 166 167 172 173 177 178 179 180 182 185 188 189 190 193 195 197 204 207

Код: Выделить всё

 writeln('введите путь к файлу ',arg);
    if arg<>'H' then
      arg:=succ(arg);
  readln(s);
  {s:=('C:\Files for Program Pascal\'+s);}

Код: Выделить всё

  s:='C:\Files for Program Pascal\'+arg+'.in';

Код: Выделить всё

function readset(var arg:tchar):tset;
var f:text;s:string;asn:tset;
    n:byte;
begin
  s:=('C:\Files for Program Pascal\'+arg+'.in);
  assign(f,s);
  reset(f);
  asn:=[];
  while not eof(f) do begin
    read(f,n);
    asn:=asn+[n];
  end;
  close(f);
  if arg<>'H' then
    arg:=succ(arg);
  readset:=asn;
end;

Код: Выделить всё

var sn:set of byte;i,n:byte;
begin
  sn:=[];
  i:=0;
  while i<20 do begin
    n:=1+random(50);
      if not(n in sn) then
        begin
          sn:=sn+[n];
          inc(i);
          writeln(n);
        end;
  end;
  readln
end.

Код: Выделить всё

type tset=set of byte;

var n,m:byte;ch:tset;
    s:string;

begin
  randomize;
  ch:=[48..57,65..90,97..122];
  s:='';n:=0;
  while n<>8 do begin
    m:=random(170)+48;
    if m in ch then begin
      s:=s+char(m);
      n:=n+1;
    end;
  end;
  writeln(s);
  readln
end.

Код: Выделить всё

var S: string;  { результат }
    v: integer; { вариант очередного символа }
begin
  Randomize;
  S:='';
  while Length(S)<8 do begin
    v:= Random(3);
    case v of
      0: S:=S + Char(Random(10)+Ord('0'));
      1: S:=S + Char(Random(26)+Ord('a'));
      2: S:=... аналогично для больших букв
    end;
  end;
  Writeln(S);
  Readln;
end.

Код: Выделить всё

type tset=set of byte;
var sn:tset;n:byte;
   ......
   if n in sn then 
    .......
    sn:=sn-[n];
    ....
  

Код: Выделить всё

Г) Напишите программу для генерации пароля не менее чем из восьми цифр и латинских букв.
Он должен включать не менее двух больших букв, не менее двух маленьких букв
и не менее двух цифр. Например: «7UpJ7rsT», «PasCal701».
Сделайте еще три варианта так, чтобы соблюдались следующие условия:
- все символы пароля уникальны (примените множество);
- буквы одного регистра и цифры не соседствовали, например: «Pa7sCaL5»;
- символы не соседствовали и были уникальными.

Код: Выделить всё

function PassWord: string;
var S: string;  { результат }
    v: integer; { вариант очередного символа }
    n1,n2,n3: integer;
begin
  S:='';
  n1:=0; n2:=0; n3:=0;
  while (Length(S)<8) or (n1<2) or (n2<2) or (n3<2) do begin
    v:= Random(3);
    case v of
      0: begin S:=S + Char(Random(10)+Ord('0')); Inc(n1) end;
      1: begin S:=S + Char(Random(26)+Ord('a')); Inc(n2) end;
      2: begin S:=S + Char(Random(26)+Ord('A')); Inc(n3) end;
    end;
  end;
  PassWord:=S;
end;

begin
  Randomize;
  Writeln(PassWord);
  Writeln(PassWord);
  Writeln(PassWord);
  Writeln(PassWord);
  Writeln(PassWord);
  Writeln(PassWord);
  Readln;
end.

Код: Выделить всё

function PassWord: string;
var S: string;  { результат }
    v: integer; { вариант очередного символа }
    n1,n2,n3: integer;
begin
  S:='';
  n1:=0; n2:=0; n3:=0;
  repeat
    v:=random(3);
    case v of
      0: begin S:=S + Char(Random(10)+Ord('0')); Inc(n1) end;
      1: begin S:=S + Char(Random(26)+Ord('a')); Inc(n2) end;
      2: begin S:=S + Char(Random(26)+Ord('A')); Inc(n3) end;
    end;
  PassWord:=S;
  until  (Length(S)>=8) and (n1>=2) and (n2>=2) and (n3>=2);
end;

begin
  Randomize;
  Writeln(PassWord);
  Writeln(PassWord);
  Writeln(PassWord);
  Writeln(PassWord);
  Writeln(PassWord);
  Writeln(PassWord);
  Readln;
end.