| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Количество четных бит? [D6, WinXP]

Страницы:   < 1 2 >

100a ©   (2005-03-10 21:28:00) 

Есть-ли стандартные функции по подсчету
нуливых бит в масиве или переменной??

---

GuAV   (2005-03-10 22:21:00) [21]

>   for i := 0 to 31 do

while Value <> 0 do:p

---

ламер_   (2005-03-10 22:18:00) [22]

Возраст не является показателем мастерства (а равно и обратное).

> нечего сказать, так хоть что-то вякну.

Мне кажется, что именно это вы и сделали.

Тех, кто презирает программистов, программисты презирают сильнее, чем те, кто презирает программистов, презирающих программистов, которые презирают тех, кто их презирает.

---

Zeqfreed   (2005-03-10 22:13:00) [23]

TechnoDreamer ©   (10.03.05 22:01) [3]
<личная переписка>
Иногда лучше жевать. Позвольте спросить, оскорбление и отголоски дискриминации - это признаки обсохшего молока?
</личная переписка>

---

TechnoDreamer   (2005-03-10 22:01:00) [24]

/Anton_K ©   (10.03.05 21:31) [1]
А компонент тебе не надо?/

Вот блин, молоко еще на губах не обсохло, а туда же, не можешь/не  хочешь помочь, чё лезешь? Форум засоряешь, нечего сказать, так хоть что-то вякну.

---

Defunct   (2005-03-10 21:37:00) [25]

function ZCount( Value : Cardinal ):integer;
var
  i : integer;
begin
  Result := 32;
  for i := 0 to 31 do
  begin
     Result := Result - (Value and 1);
     Value := Value shr 1
  end
end;

---

Anton_K   (2005-03-10 21:31:00) [26]

А компонент тебе не надо?

---

Страницы:   < 1 2 >

Наверх