Побитовые операции (PascalABC)

[NoviceYola]

Вставить 0 в двоичное представление числа после третьей 1, считая с конца.

or

Вставить в двоичное представление длинного целого числа группу из двух единиц, начиная с позиции, номер которой вводится с клавиатуры. В программе реализовать 2 ограничения: номер позиции для вставки не должен выходить за пределы длины двоичного представления, новое число не должно выходить за пределы длинного целого.

p.s. Нельзя использовать массивы для хранения цифр двоичного представления вводимых или выводимых чисел. Все преобразования необходимо выполнить, используя либо арифметические операции “+” или “-“ либо побитовые операции “shl”, “shr”, “and”, “or” или “xor”.

[Stilet]

Вставить 0 в двоичное представление числа после третьей 1, считая с конца.

Допустим число - байт

Число:=(16 or Число) and 15;

Если не ошибаюсь.

[ZX Spectrum-128]

ТС пояснил, что ему нужно так:
Было
101101111
Стало
101100111

По первой задаче:

{Вставить 0 в двоичное представление числа после третьей 1, считая с конца.}
var
  q,n,i,x:integer;
  isThirdBitEqual1:boolean;

function FromDec(n, radix:longint):string;
var
  s: String;
const
  digit: string[16]='0123456789ABCDEF';
begin
  s:='';
  repeat
    s:=digit[(n mod radix)+1]+s;
    n:=n div radix;
  until n=0;
  FromDec:=s;
end;

begin
  isThirdBitEqual1:=false;
  write('Введите число:'); readln(x);
  writeln('Его двоичное представление: ',FromDec(x,2));
  q:=0;
  for i:=0 to SizeOf(integer)*8 - 1 do
    begin
      if (x and (1 shl i)) <> 0 then
      begin
        inc(q);
        writeln(i,'-й бит установлен в единицу.');
        if q=3 then
          begin
            isThirdBitEqual1:=true;
            n:=i;
          end;
      end;
    end;
  if isThirdBitEqual1 then
    begin
      writeln('Число единиц равно: ',q,'. Позиция третьей 1 = ',n);
      x := x and not (1 shl (N+1)); {или (n-1), если в обратную сторону}
      writeln('Двоичное представление после обработки: ',FromDec(x,2));
    end
  else
    writeln('Число единиц меньше 3.');
  readln;
end.

[Аватар]

1

i:=((i shr 4) shl 4) or (i and 7);

[ZX Spectrum-128]

Кстати, правильно ли я понял задачу?
Имеем
101111
Получаем
100111
Или нужно сдвинуть влево на n позиций, начиная с позиции третьей 1? И установкой в ноль позиции после?
010111
?

[ZX Spectrum-128]

Перестала нажиматься кнопка "Правка"

[Poma][a]

Все запутались..
ИМХО : 101111 -> 1010111

[ZX Spectrum-128]

Да, именно так. У меня не верно.
Тогда вопрос: как сдвинуть цепочку из n битов влево, начиная c k-той позиции?
Точнее, как ее раздвинуть?

Сдвинуть, раздвинуть камасутра какая-то, а не программирование

[Poma][a]

var
	n, i, j, m : Integer;

begin
	ReadLn(n);
	i := 0; j := 0; m := 0;

	while i <> 3 do begin
		m := n mod 2 shl j + m;
		Inc(i, n mod 2);
		Inc(j);
		n := n div 2
	end;
	
	WriteLn(n shl (j+1) + m)
end.

[Аватар]

Сообщение от Poma][a

Все запутались..
ИМХО : 101111 -> 1010111

1. Тоды так

i:=((i shr 3) shl 4) or (i and 7);