Алгоритм перебора (Delphi)

[Air]

Думал легко, а что-то не выходит.
Нужно построить алгоритм перебора по следующему примеру:

0 1 2 3 .....э ю я
01 02 03 ..... 0э 0ю 0я
11 12 13 ..... 1э 1ю 1я
21 22 23 ..... 2э 2ю 2я
......
я1 я2 я3 ..... яэ яю яя

Другими словами последовательный перебор с добавлением на один символ по окончанию всех символов "chr(48) ... chr(255)"
Вот с чего начал... и на этом застрял

const
ST = 48;

var
STT:integer = ST;
VP:array[0..42,ST..255] of string;

for i:=1 to 42 do //1
 for j:=STT to 255 do //2
  vp[i,j]:=vp[i-1,j] + chr(j);

Получается что 1, 2(такты 1-го цикла) - как бы правильно, а 3-й(такт) уже нет, алгоритм явно не верный, подскажите, пожалуйста.

Заранее благодарю.

[Mixasik]

А если для данной задачи использовать рекурсию, то может удастся сделать перебор. Врорде бы я делал перебор именно рекурсивный и довольно быстрый, если найды выложу исходник.

[Air]

Посмотри пожалуйста, а я пока помучаюсь в разработке.

[puporev]

Если первую строчку примера не считать, то получается что-то вроде этого:

var a:array[1..208,1..208]of string[2];
    i,j:integer;
begin
for i:=1 to 208 do
    begin
      for j:=1 to 208 do
        begin
          a[i,j][1]:=chr(i+47);
          a[i,j][2]:=chr(j+47);
        end;
    end;

Хотя может я и неправ.

[Mixasik]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
Const MinPos = 49;
Type TMas = array of string;
var mas : TMas; posinmas : word = 0;i :byte;
function print(startPos, EndPos : byte; Var mas : TMas): boolean;
var
  i : word;
begin
  setlength(mas,posinmas+1);
  for i:= 49 to EndPos do
      mas[posinmas] := mas[posinmas] + chr(startpos)+chr(i)+' ';
  inc(startPos);
  inc(posinmas);
  if startPos < EndPos then
   print(startpos,endpos,mas);
end;

begin
print(49,55,mas);
writeln(posinmas);
readln;
for i := 0 to posinmas-1 do
  writeln(mas[i]);
readln;
end.

Вот сейчас набросал, выдает то, что надо...
p.s А тот алгоритм который был он составлял варианты для переебора и не совсем подходил..
А тут просто вместо 55 написать 255, или указать константу, равную заданному числу.
Все варианты заносятся в строковой массив, хотя можно сделать как угодно...

[mutabor]

Задание не совсем понятное, в результате должна получиться матрица размером 43 х 43? То есть 10 цифр [0..9] + 33 буквы (а..я)

0 1 2 3 ..... э ю я >>> сюда 43
01 02 03 ..... 0э 0ю 0я
11 12 13 ..... 1э 1ю 1я
21 22 23 ..... 2э 2ю 2я
......
я1 я2 я3 ..... яэ яю яя
\/
и сюда 43

Так или не так?

[Mixasik]

Вот получается такой вариант, если брать диапозон с 49 по 55:
11 12 13 14 15 16 17
21 22 23 24 25 26 27
31 32 33 34 35 36 37
41 42 43 44 45 46 47
51 52 53 54 55 56 57
61 62 63 64 65 66 67
p.s А если брать диапозон до 255 там будут и строчные, и заглавные, и вроде бы непечатаемые.

[puporev]

Почему-то у меня выводит так:
12 13 14 15 16 17
23 24 25 26 27
34 35 36 37
45 46 47
56 57
67

[Mixasik]

А вот эта строчка

for i:= 49 to EndPos do

именно начиная с 49? Если нет. то дело в этом... В общем все сейчас подправлю и сделаю код читаемы и верным всмысле осмысления

[Mixasik]

Type TMas = array of string;
var mas : TMas; posinmas : word = 0;i :byte;
function print(StartPos{текущая позиция перебора}, EndPos{Конец диапозона} : byte; Var mas : TMas): boolean;
var
  i : word;
begin
  setlength(mas,posinmas+1);
  for i:= 49 to EndPos do
      mas[posinmas] := mas[posinmas] + chr(startpos)+chr(i)+' ';
  inc(startPos);
  inc(posinmas);
  if startPos < EndPos then
   print(startpos,endpos,mas);
end;

Вот проверил еще раз выводи все так. как я написал ранее.