Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.08.2017, 13:07   #11
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,526
По умолчанию

Цитата:
все возможные варианты
Код:
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 ) );
программа — запись алгоритма на языке понятном транслятору

Последний раз редактировалось evg_m; 29.08.2017 в 13:22.
evg_m вне форума Ответить с цитированием
Старый 29.08.2017, 13:29   #12
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Сообщение от evg_m Посмотреть сообщение
теперь есть
а Вы оптимист.
я думаю, что TC нужно совсем другое. Вопрос только - что именно ему нужно.
я пытался это выведать с помощью наводящих вопросов. Он на мои вопросы ничего толком не ответил.
Таким образом, он или сам не понимает точно, что ему надо. Или понимает, только объяснить не может.
ИМХО, конечно...
Serge_Bliznykov вне форума Ответить с цитированием
Старый 29.08.2017, 13:59   #13
brownb
Форумчанин
 
Регистрация: 16.10.2016
Сообщений: 157
По умолчанию

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

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

Последний раз редактировалось brownb; 29.08.2017 в 14:04.
brownb вне форума Ответить с цитированием
Старый 29.08.2017, 14:22   #14
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Сообщение от brownb Посмотреть сообщение
нужно с генерировать все возможные варианты(6 символов) состоящих из цифр и одной буквы, то есть
вот. уже лучше. теперь чуть понятнее стало.

ещё маленький вопрос.
Цитата:
Сообщение от brownb Посмотреть сообщение
10000b
1000b0
продолжаю
100b00
10b000
1b0000

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

ок.


дошли до
9b0000
какой следующий код?
11000b ?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 29.08.2017, 14:44   #15
brownb
Форумчанин
 
Регистрация: 16.10.2016
Сообщений: 157
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
вот. уже лучше. теперь чуть понятнее стало.

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

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

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

ок.


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

след

1b0000
10000b
1000b1
100b01
по порядку как цифры идут
brownb вне форума Ответить с цитированием
Старый 29.08.2017, 17:13   #16
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,526
По умолчанию

Цитата:
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; 29.08.2017 в 17:32.
evg_m вне форума Ответить с цитированием
Старый 29.08.2017, 17:28   #17
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,526
По умолчанию

Код:
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;
программа — запись алгоритма на языке понятном транслятору
evg_m вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Генератор теней Box Shadow и генератор границы Border Radius xshutterxx HTML и CSS 2 26.04.2016 18:20
Определить превышает ли сумма крайних цифр сумму средних цифр в заданном четырехзначном числе. (Delphi) shablakov Помощь студентам 4 24.06.2013 13:21
Дано натуральное число n. Определить, сколько парных цифр в числе n. Чему равна сумма нечетных его цифр? pahanzona Microsoft Office Excel 4 27.02.2011 15:46
Натуральное число, в записи которого п цифр, называется числом Армстронга, если сумма его цифр, возведенн OTLi4HO Общие вопросы C/C++ 6 14.01.2009 19:48