Пасслисты

Всем привет! Не подскажите как можно написать на паскале генератор спам листов? Так, чтобы перебирал все значения с 6 символов до 10...

 

Извиняюсь, а спам листы для чего?
Можешь просто запустить 5 циклов поочередно, один генерирует значения для 6 символов, другой для 7 и так до последнего, которые генерирует для 10.

 

Нет, про циклы я додумался, как сделать именно перебор?

 

А тебе перебор чего именно нужен.

Впринципе, делается так.

Code:

program brutik;
var
  n:integer; a:array[1..100000] of char; k:char; f:text;
  
procedure brut(t:integer);
  var i:char; j:integer;
  begin
    if t=n then
      begin
        for j:=1 to n do
          write (f, a[j]);
        writeln (f);
      end
    else
      for i:='a' to k do
        begin
          a[t+1]:=i;
          brut (t+1);
        end;
  end;
begin
  assign (f,'pass.txt');
  rewrite (f);
  k:='z';
  n:=3;
  brut (0);
  close (f);
end.

Использутеся рекурсия. n-колличество цифр в числе, то есть его тебе нужно будет каждый раз менять.

 

А что означает переменная Т? и почему она равна 0?

 

ну смотри, если t=n то перебирать цифры, если не т то буквы