Пасслисты

[marcos]

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

[Thenno]

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

[marcos]

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

[Thenno]

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

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

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-колличество цифр в числе, то есть его тебе нужно будет каждый раз менять.

[marcos]

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

[DeaD_MoroZ]

А что означает переменная Т? и почему она равна 0?
ну смотри, если t=n то перебирать цифры, если не т то буквы