Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как получить все вероятные значения Bin

lady © (2010-03-05 08:21:00)
(двоичного кода) определенной длинны.

допустим 100 символов (0 или 1) необходимо вывести все возможные комбинации, как это программно реализовать?

Anatoly Podgoretsky (2010-03-05 09:12:00) [1]
> lady (05.03.2010 08:21:00) [0]

!108

lady (2010-03-05 08:38:00) [2]
И. Павелогромное спасибо!!! выручил, буду разбираться.

И. Павел (2010-03-05 08:34:00) [3]
Например так:

procedure TForm1.Button1Click(Sender: TObject);
var len, i, j:integer;
mas:array of byte;
ok:boolean;
begin
len:=4;
setlength(mas, len);
Repeat
ok:=false;
for i:=len-1 downto 0 do
if mas[i]=0 then
Begin
mas[i]:=1;
for j:=i+1 to len-1 do mas[j]:=0;
ok:=true;
break;
end;
for i:=0 to len-1 do Memo1.Text:=Memo1.Text+IntToStr(mas[i]);
Memo1.Text:=Memo1.Text+chr(13)+chr(10);
Until not ok;
end;

lady (2010-03-05 08:32:00) [4]
Так нужно двоичные значения. Я поняла что 2^100-1

например

11
10
01
00

это 2^2 а такого вида для любого N размера. в голове не укладывается. помогите.

Сергей М. (2010-03-05 08:24:00) [5]
Обычный счетчик от 0 до 2^100-1

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »