VPF::Просчет вариантов - Форум программистов

Exploder

Дата 5.6.2008, 21:39 (ссылка)

(нет голосов)

Загрузка ...

МАСТЕР

Профиль
Группа: Участник
Сообщений: 91
Регистрация: 5.4.2005
Где: Германия

Репутация: нет
Всего: 7

Привет,

нужно найти все варианты в диапазоне от 000 до 111, используемы цифры: 1 и 0, т.е. должно выглядеть так:

Код

Толкните мну на верный путь, заранее спасибо smile

ama_kid

Дата 5.6.2008, 22:05 (ссылка)

(нет голосов)

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 15
Всего: 95

Цитата(Exploder @ 5.6.2008, 21:39

)

нужно найти все варианты в диапазоне от 000 до 111, используемы цифры: 1 и 0

Код

function IntToBin(ANum:DWORD; DigitsCount:integer = 3):string;
var
 i:integer;
begin
 if ANum=0 then Result:='0' else
 if ANum=1 then Result:='1' else
 if ((ANum shr 1)shl 1)<>ANum then Result:=IntToBin(ANum shr 1,0)+'1'
                              else Result:=IntToBin(ANum shr 1,0)+'0';
 for i:=1 to DigitsCount - Length(Result) do Result:='0'+Result;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
 ABeg = 0;
 AEnd = 7;
var
 i:integer;
begin
 Memo1.Clear;
 for i:=ABeg to AEnd do
   Memo1.Lines.Add(IntToBin(i));
end;

--------------------

самурай без меча подобен самураю с мечом, но только без меча

Exploder

Дата 5.6.2008, 22:21 (ссылка)

(нет голосов)

Загрузка ...

МАСТЕР

Профиль
Группа: Участник
Сообщений: 91
Регистрация: 5.4.2005
Где: Германия

Репутация: нет
Всего: 7

ama_kid, биг спасибо, работает))

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »