Подсчет количества единиц , в двоичном представлении переменной

[Snow-ball]

"Напишите функцию для вычисления количества единиц в двоичном представлении переменной типа Word"
Меня интересует: 1) что это за переменные такие - word? 2) как представить в двоичном виде? 3) как подсчитать количество единиц?
Т.е. по сути решить всю задачу не знаю как... Если бы была переменная типа string - я бы подсчитал кол-во единиц, а вот как быть с этой задачей?..

Сообщение отредактировано: volvo877 - 21.01.06, 18:37

[Profi]

Word - 2 байта, диапазон 0 - 65535.
Если число сразу в двоичном виде, то проще всего будет Val'ом перевести в строку и посчитать единицы.

[volvo877]

А что, такой вариант не подходит уже:

while X > 0 do begin
  inc(count, byte((X and $0001) > 0));
  X := X shr 1;
end;

?
В памяти-то число всегда хранится в двоичном виде...

Snow-ball, кстати, название темы поменяй, ибо

Цитата Правила Раздела @ 19.01.06, 18:46

Название темы должно быть информативным !

[Profi]

Я вот так накидал на Pascal’е:

Procedure DecTo2(Value:integer;var Result:String);
var
  o,v:integer;
begin
  v:=value;
  o:=v mod 2;
  if o=0 then
    insert('0',result,0);
  if o=1 then
    insert('1',result,0);
  v:=v div 2;
  if v>=2 then
    DecTo2(V,Result)
  else
    insert('1',result,0);
end;

- переводит десятичное число в двоичное в виде строки.

Сообщение отредактировано: Profi - 19.01.06, 19:19

[nvm]

Цитата Profi @ 19.01.06, 19:17

... - переводит десятичное число в двоичное в виде строки.

Нет. Переводит двоичное число из внутреннего представления в строку.

[Profi]

Цитата nvm @ 19.01.06, 20:49

Нет. Переводит двоичное число из внутреннего представления в строку.

Я вообще-то делал как на парах по дискретной математике. Там мы точно переводили десятичные в двоичные.

[Snow-ball]

Profi, Спасибо!

Добавлено 21.01.06, 18:21

while X > 0 do begin
  inc(count, byte((X and $0001) > 0));
  X := X shr 1;
end;

что за действие shr?

[volvo877]

Цитата Snow-ball @ 21.01.06, 18:18

что за действие shr?

Сдвиг вправо на определенное количество бит...

Пример:
До сдвига:
X = 10011101

Делаем сдвиг: X := X shr 2;

После сдвига:
X = 00100111 (младшие биты 01 вышли за пределы разрядной сетки, 2 старших бита заполнились нулями)

[nvm]

Цитата Profi @ 19.01.06, 21:34

Цитата nvm @ 19.01.06, 20:49

Нет. Переводит двоичное число из внутреннего представления в строку.

Я вообще-то делал как на парах по дискретной математике. Там мы точно переводили десятичные в двоичные.

Ты производишь вычисления в десятичной системе, а компьютер в двоичной - десятичные числа он может хранить только в виде строк.

[Pavia]

while x<>0 do
 begin
 x:=x and(x-1);
 inc(result);
 end;

[Profi]

Цитата nvm @ 21.01.06, 19:48

Ты производишь вычисления в десятичной системе, а компьютер в двоичной - десятичные числа он может хранить только в виде строк.

А, Вы в этом смысле, просто не понял сначала.

Сообщение отредактировано: Profi - 21.01.06, 20:54