генератор цифр

[evg_m]

все возможные варианты

const 
  n: integer =1024; //сколько "цифр" хотим выводить (и сколько значит "чисел" мы будем получать)
const 
  zero: char ='0'; // "базовое" значение "цифр"
  symbol: char ='B'; // "рабочая" "цифра"

var
  s: string;

s:=StringOfChar(zero, n);
for j:=length(s) downto 1 do begin
  s[j]:=symbol; 
  writeln(s);
  s[j]:=zero;
end;

Гулил ничего подобного не нашел

теперь есть

function genlist(const n: integer; const zero: char='0'; const symbol: char ='B'; const delimiterline: string =#13#10): string;
var
  s: string;
begin
  s:=StringOfChar(zero, n);
  result:='';
  for j:=length(s) downto 1 do begin
  s[j]:=symbol; 
  result:=result + s + delimiterline;
  s[j]:=zero;
end;
end;

writeln( genlist(1024) );
writeln( genlist(6, '0', 'B', #13 ) );

[Serge_Bliznykov]

Сообщение от evg_m

теперь есть

а Вы оптимист.
я думаю, что TC нужно совсем другое. Вопрос только - что именно ему нужно.
я пытался это выведать с помощью наводящих вопросов. Он на мои вопросы ничего толком не ответил.
Таким образом, он или сам не понимает точно, что ему надо. Или понимает, только объяснить не может.
ИМХО, конечно...

[brownb]

нужно с генерировать все возможные варианты(6 символов) состоящих из цифр и одной буквы, то есть

00000b
0000b0
000b00
00b000
0b0000
b00000
10000b
1000b0
.....
99999b
9999b9

[Serge_Bliznykov]

Сообщение от brownb

нужно с генерировать все возможные варианты(6 символов) состоящих из цифр и одной буквы, то есть

вот. уже лучше. теперь чуть понятнее стало.

ещё маленький вопрос.

Сообщение от brownb

10000b
1000b0

продолжаю
100b00
10b000
1b0000

какой код следующий?
20000b ?

ок.


дошли до
9b0000
какой следующий код?
11000b ?

[brownb]

Сообщение от Serge_Bliznykov

вот. уже лучше. теперь чуть понятнее стало.

ещё маленький вопрос.

продолжаю
100b00
10b000
1b0000

какой код следующий?
20000b ?

ок.


дошли до
9b0000
какой следующий код?
11000b ?

след

1b0000
10000b
1000b1
100b01
по порядку как цифры идут

[evg_m]

1b0000
10000b
1000b1
100b01
по порядку как цифры идут

тогда ЗДЕСЬ

...
b00000
10000b
...

неверно.
__После 00000
следует 00001
, __а не 10000

да и

1b0000
10000b

10000b УЖЕ БЫЛО получено ранее (мы с этого начинали). см. предыдущую цитату.

"опорное" число 
           "результаты" генерации
00000  
          00000b
          0000b0
          ...
          b00000
00001 
          0000b1
          000b01
          ....
          b00001
00002
     ....
00010
          0001b
          00b10
          ...
          b0010
00011
          00b11
          0b011
          b0011
00012
...
00100
         0010b
         ...
         b0100
...

[evg_m]

function genlist(const val: string; const zero: char='0'; const symbol: char ='B'; const delimiterline: string =#13#10): string;
var
  s: string;
begin
  s:=val; 
  result:='';
  for j:=length(s) downto 1 do begin
    if s[j]=zero then begin
      s[j]:=symbol; 
      result:=result + s + delimiterline;
      s[j]:=zero;
    end;  
  end;
end;

n:=1000000;
for j:=0 to n-1 do begin
  r:=format('%.6d', [j]);
  writeln (genlist( r, '0', 'b', #13#10 );
end;