Question

Написать программу на паскале Задано целое число N. В ячейку памяти вычислительной машины записывается его двоичное представление (размер ячейки – 1 байт). Над содержимым ячейки выполняется преобразование: циклический сдвиг влево на одну позицию. Все цифры двоичного числа сдвигаются влево на одну позицию, при этом старший бит переходит в младший. Преобразование повторяется восемь раз (после последнего преобразования число становится исходным). Напишите программу, которая по введенному натуральному десятичному числу N, вычисляет наибольшее из десятичных чисел, полученных в процессе преобразования. Например: 201 представлено в ячейке памяти как 11001001. После первого сдвига влево получаем число 10010011, это соответствует десятичному числу 147. Формат входных данных Первая строка ввода содержит неотрицательное целое число N. Формат выходных данных Выведите единственное целое число R — наибольшее число, полученное в процессе преобразований. Ограничения 0 ≤ N ≤ 255 Пример входных и выходных данных Входные данные Выходные данные 1 128 143 248

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

function Dec2Bin(t: integer): string;

begin

 var r: string := '';

 while t >= 2 do

   (r, t) := (t mod 2 + r, t shr 1);

 r := t + r;

 Result := '0' * (8 - r.Length) + r

end;

function Bin2Dec(s: string): integer;

begin

 Result := 0;

 var p := 1;

 for var i := s.Length downto 1 do

 begin

   Result += (s[i].ToDigit) * p;

   p *= 2

 end

end;

function GenSeqCycle(n: integer): sequence of integer;

begin

 var s := Dec2Bin(n);

 loop 8 do

 begin

   yield Bin2Dec(s);

   s := s[2:] + s[1]

 end

end;

begin

 GenSeqCycle(ReadInteger).Max.Println

end.

Answer 2

Ниже представлена программа на языке Паскаль, которая решает задачу:

program BinaryShift;
var
  n, r, i: integer;
begin
  readln(n);
  
  // инициализируем результат значением n
  r := n;
  
  for i := 1 to 8 do
  begin
    // выполняем циклический сдвиг влево на одну позицию
    r := (r shl 1) or (r shr 7);
  end;
  
  writeln(r);
end.

Программа считывает введенное натуральное десятичное число `n` и сохраняет его в переменной `r`, которая служит для хранения текущего результата преобразования. Затем в цикле происходит выполнение циклического сдвига влево на одну позицию, путем сдвига битов числа влево и добавления старшего бита к младшему биту. Это повторяется восемь раз. Наконец, программа выводит полученный результат `r`.

Пример работы программы: Входные данные: ``` 1 ``` Выходные данные: ``` 128 ``` Программа считывает число 1 и выполняет указанные преобразования. Результатом будет число 128.