| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Булева алгебра. Разминка.
Johnmen © (2007-04-17 11:18:00)Всем привет!
Поможите старому больному программисту, дайте немного байтов кода (чем меньше, тем лучше) для поддержания на плаву никому не нужной программы. :)
Суть задачи.
Имеется:
I, J : integer;
B : boolean;
Требуется:
взвести J-ый бит в I, если B истинно, и
сбросить J-ый бит в I, если B ложно.
Кто решит, тот претендент на награду... :)
Просьба господ с голубыми значками не проявлять излишней активности...
Удачи! Спасибо!
Ega23 (2007-04-17 11:45:00) [21]
> Johnmen © (17.04.07 11:18)
У меня где-то была такая ботва. Одной сточкой. Вроде даже ты мне её и давал... :)
DrPass (2007-04-17 11:42:00) [22]
> А если J отрицательное или больше 31?
цивилизация окажется на грани гибели
Сергей М. (2007-04-17 11:40:00) [23]
> чем меньше, тем лучше
"чем меньше" чего - исх.текста или машкода ?)
Desdechado (2007-04-17 11:37:00) [24]А если J отрицательное или больше 31?
Johnmen (2007-04-17 11:33:00) [25]
> Leonid Troyanovsky © (17.04.07 11:26) [1]
> Премию Дарвина?
Ещё не решил. Посмотрим :)
Leonid Troyanovsky (2007-04-17 11:26:00) [26]
> Johnmen © (17.04.07 11:18)
> Кто решит, тот претендент на награду... :)
Премию Дарвина?
Ухожу, ухожу.
--
Regards, LVT.
| |
Страницы: 