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

[brownb]

нужно сделать генератор цифр с одной буквой всего 6 символом по пордяку.
Пример
00000b
0000b0
000b00
В общем все возможные варианты.Гулил ничего подобного не нашел

[evg_m]

x:=$00000b;
for j:=1 to 6 do begin
  s:= format('%.6d', [x] );
  writeln(s);
  x:=x*16;
end;

[brownb]

спасибо но почемуто не хочет работать

var
x:integer;
j:integer;
s:string;
begin
x:=$00000b;
for j:=1 to 6 do begin
  s:= format('%.6d', [x] );
  memo1.Lines.Add(s);
  x:=x*16;
end;

Memo1
000011
000176
002816
045056
720896
11534336

[Аватар]

'%.6x' для вывода hex. В справку нужно смотреть
StringReplace или LowerCase для замены B на b

[brownb]

он выдает только 6 значений
Memo1
000011
000176
002816
045056
720896
11534336

[Serge_Bliznykov]

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

он выдает только 6 значений

а сколько должен?


Вы же сами просили:

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

Пример
1. 00000b
2. 0000b0
3. 000b00

4. 00b000
5. 0b0000
6. b00000

что не так?


p.s. или эта тема просто продолжение вашей прошлой темы "сгенерировать цисла по диапазону" ?!

[Аватар]

Почитай внимательно #4, особенно первую строку. Насчет 6 значений - а сколько просил? Смотри свой пример в #1

[northener]

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

нужно сделать генератор цифр с одной буквой всего 6 символом по пордяку

Ну как же нужно не любить русский язык и как же нужно наплевательски относиться к формулировке вопроса, чтобы написать такое?

[digitalis]

Так он же из Лондона. Или из Жмеринки.

[brownb]

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