Форум: "Начинающим";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];
ВнизКак получить все вероятные значения Bin Найти похожие ветки
← →
lady (2010-03-05 08:21) [0](двоичного кода) определенной длинны.
допустим 100 символов (0 или 1) необходимо вывести все возможные комбинации, как это программно реализовать?
← →
Сергей М. © (2010-03-05 08:24) [1]Обычный счетчик от 0 до 2^100-1
← →
lady (2010-03-05 08:32) [2]Так нужно двоичные значения. Я поняла что 2^100-1
например
11
10
01
00
это 2^2 а такого вида для любого N размера. в голове не укладывается. помогите.
← →
И. Павел © (2010-03-05 08:34) [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:38) [4]И. Павел огромное спасибо!!! выручил, буду разбираться.
← →
Anatoly Podgoretsky © (2010-03-05 09:12) [5]> lady (05.03.2010 08:21:00) [0]
!108
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.063 c