Сдвиги Pascal (ТРУДНАЯ ЗАДАЧА)

[Знаменок]

Ограничение по времени: 1 секунда
Ограничение по памяти: 64 Мб
Максим работает в лаборатории чисел. Ученые этой лаборатории проводят важный опыт над числами. Дано число в десятичной системе счисления. Его переводят в двоичную и записывают на листок как последовательность единиц и нулей. Затем над этой последовательностью производят циклический сдвиг - каждую цифру перемещают на одну вправо, а последнюю на первое место. С новой последовательностью проводят ту же операцию, и всё это продолжается до тех пор пока не получается исходная последовательность. Все последовательности на листке снова преобразуют в числа и переводят в десятичную систему. Все эти числа называют "аналогами" подопытного числа. Среди них находят максимальное и называют его "старшим аналогом". "старший аналог" числа может соответствовать самому числу. (например для числа 12 аналогами будут являться числа 9,3, 5, 12, максимальное из них - 12). Максим пишет программу, которая по числу определяет его старшего аналога. можете ли вы ему помочь?
ФОрмат входных данных
На вход программе подаётся натуральное число N(1<=N<=2 в 15 степени) (<= - меньше либо равно) - подопытное число
Формат выходных данных:
Выведите старший аналог числа

[evg_m]

Вам как
1. дать подсказку (в двоичной математике)
2. расписать алгоритм
3 или сразу написать программу.

[Serge_Bliznykov]

извините, что влезаю в тему со своим вопросами...

народ, а кто понял, расскажите мне, пожалуйста,
что такое "до тех пор пока не получается исходная последовательность" ?!

ну, вот, взяли (как в примере в самой задаче число 12):
0000000000001100
сдигаем, получаем 6
0000000000000110
потом ....
0000000000000011
1000000000000001
1100000000000000
0110000000000000
0011000000000000
0001100000000000
0000110000000000
0000011000000000
0000011000000000
0000001100000000
0000000110000000
0000000011000000
0000000001100000
0000000000110000
0000000000011000
0000000000001100

И где в этой последовательности 5 и 9 ?!?!

или я торможу, или одно из двух...

поясните, пожалуйста...

[evg_m]

каждую цифру перемещают на одну вправо, а последнюю на первое место.

незначащие нули в исходном числе отбрасываютя

1100 = 12
0110 = 6
0011 = 3
1001 = 9
1100 = 12

P.S. алгоритм решения прост и примитивен но требует умения мыслить в двоичной математике. Используются свойства и правила сравнения двоичных чисел.сравнения Впрочем в обычной арифметике действую те же правила. Но в двоичной все гораздо проще потому что только ДВЕ цифры. Подождем ответа на первый пост. Но сразу оговорюсь, писать всю программу не буду. Могу ответить только первые 2 варианта.

[Don Karleone]

так а где же число 5??? или он просто ошибся.
Да, и ограничение по памяти наверное не Mб, а Кб.

[Serge_Bliznykov]

всё понятно.
Коллеги, спасибо за ответ.

1) число 5 лишнее, его там быть не может

2) описание задачи + решение - тут - Забавная игра (Программирование на Паскале)

думаю, что максимальное число сдвигов (при N<=2 в 15 степени) будет всего 16 сдвигов. Думаю, что секунды хватит даже при решении задачи "в лоб"...

[Знаменок]

напишите программу плиз

[_-Re@l-_]

Ограничение по памяти: 64 Мб

Нифига себе...Какие щедрые преподы(ну или учебники) на память...Это ж как в паскале можно столько потратить памяти?Я 65Кб и то с трудом могу потратить....

[Stilet]

(например для числа 12 аналогами будут являться числа 9,3, 5, 12, максимальное из них - 12)

Судя по тому что я понял программа Мак Сима должна выглядеть так:

  var k,i,e,mx:word;
begin
 i:=12;    e:=i;
 repeat
  asm
   mov ax,[i]
   ror ax,1
   mov [i],ax
  end;
  write(i:10);
  if mx<i then mx:=i;
 until i=e;
 writeln;
  write(mx:10);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Но Страннику, давшему задание Маку нуна уши поотрывать, за такие странности.

[Serge_Bliznykov]

напишите программу плиз

ну, так и быть.... Ваше счастье, что задачка более-менее интересная...

var N, K, Max, Mask : word;

begin
  Readln(N);

  if N=0 then begin
    WriteLn('Максимальный аналог равен НУЛЮ!');
    Halt(1);
  end;

  K := N;
  while K>0 do begin
    Mask := Mask shl 1 or $1;
    K := K shr 1;
  end;

  K := N;
  Max := N;
  if Mask = $FFFF then begin
    repeat
      if (K and $8000) = $8000 then K := (K shl 1) or $1
      else K := K shl 1;
      if K>Max then Max := K;
    until K=N;
  end
  else begin
    repeat
      K := K shl 1;
      if (K and Not Mask)<>0 then K := (K and Mask) or $1;
      if K>Max then Max := K;
    until K=N;
  end;


  WriteLn('Для ',N:1,' максимальный аналог = ',Max:1);


end.