Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Как получить все вероятные значения 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.049 c
15-1270636853
Дмитрий С
2010-04-07 14:40
2010.08.27
Передача указателя на метод как на non-object функцию.


15-1269034206
Юрий
2010-03-20 00:30
2010.08.27
С днем рождения ! 20 марта 2010 суббота


15-1264125503
Дмитрий С
2010-01-22 04:58
2010.08.27
Оказывается я еще могу чему-то научиться.


3-1241781897
romanln
2009-05-08 15:24
2010.08.27
Delphi 7 и Oracle 10g как связать?


2-1269806850
NetherEagle
2010-03-29 00:07
2010.08.27
Передача текста в поле Edit на почту