побитовые операции

[serega28]

пытаюсь написать программу но никак не получается. кто сможет помощь???? Написать программу в паскаль "Определить количество значащих двоичных разрядов числа"

[mss]

Сообщение от serega28

пытаюсь написать программу но никак не получается. кто сможет помощь???? Написать программу в паскаль "Определить количество значащих двоичных разрядов числа"

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

[serega28]

честно пытался, но программы нет...

[Serge_Bliznykov]

согласен с мнением mss, раз нечего показать в качестве результатов Ваших попыток, значит либо совсем не пытались, либо плохо пытались.

В качестве хинта-подсказки скажу,
чтобы узнать чему равен бит числа, нужно к этом числу применить битовую маску через AND Маска
например, чтобы узнать самый младший байт числа равен один или нет, пойдёт такой код:
if (Переменная and 1) = 1 then МладшийБитЧисла_Единица
else МладшийБитЧисла_Ноль

для того, чтобы очередной бит оказался на месте младшего, можно все бита числа сдвинуть на один бит вправо (младший бит самый правый):
Переменная := Переменная shr 1

ну и последнее, продолжать это всё делать в цикле (считая единички в младшем бите), пока Переменная не станет равной нулю.

[mss]

Сообщение от serega28

честно пытался, но программы нет...

Не ври.
Пытался бы - показал бы хоть что-нибудь что ТОБОЙ сделано.

[serega28]

вот что я написал, но это не правильно. помогите составить правильную программу, сам я в паскале не очень разбираюсь...

var a,r1,r2,rn_1,rn, mask: word;
       kol, i:integer;

begin
write('a='); readln(a);

rn:=a and 1;
rn_1:=(a shr 1) and 1;
writeln ('rn_1=',rn_1,' rn=',rn);
if rn=rn_1 then writeln ('posl razr sovp');

mask:=$8000;
while a and mask =0  do
  begin
  mask:=mask shr 1;
  end;
r1:=1;
mask:=mask shr 1;
if a and mask=0 then r2:=0 else r2:=1;
writeln ('r1=',r1,' r2=',r2);
if r1=r2 then writeln ('perv razr sovp');
mask:=$8000;
        kol:=0;
   if r1,rn=1 then kol:=kol+r1+rn else kol:=0;
   writeln ('kol=',kol);
  readln;

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[mss]

Ну а где собственно цикл ?

[Serge_Bliznykov]

ну что ж так всё слабо то..

"Определить количество значащих двоичных разрядов числа"

перевожу на "русский" - нужно посчитать, сколько в числе, в двоичном представлении числа, ЕДИНИЧЕК !

решение:

  write('a='); readln(a);
  Kol := 0;
  while a<>0 do begin
     if (a and 1) = 1 then Inc(kol);
     a := a shr 1;
  end;
  WriteLn('Количество значащих разрядов: ',kol);
  Readln;

[serega28]

и это вся программа???

[mss]

Сообщение от serega28

и это вся программа???

А тебе еще и в упаковочке, перевязанную ленточкой подавай ?)