Задание, не попавшее на олимпиаду ;)

[Stilet]

Вчера просматривал темы, и в одной из них автор просил помочь с вращением матрицы. Нужно было определенный элемент сдвинуть в угол, а все остальные должны были вращаться.
Вспомнилась задача которая чуть было не попала в 95 году на олимпиаду, но по какой то причине была исключена из списка.

За точность текста не ручаюсь но смысл был таким:

Есть массив А(10) = (1,2,3,4,5,6,7,8,9,10)
Необходимо одним циклом переписать его в массив B(10) со сдвигом начиная от некоего элемента т.е.
А(10) = (1,2,3,4,5,6,7,8,9,10) - сдвиг 3-го элемента в край с вращением
В(10) = (3,4,5,6,7,8,9,10,1,2)
Или в другую сторону
В(10) = (4,5,6,7,8,9,10,1,2,3)
Чтоб ключевой элемент стал в конец или начало массива. Не суть важно.
Но сама цепочка элементов не терялась

Запрещается:
Использовать условия (if while и т.д.), использовать более одного цикла для помещения элементов в выходной массив, выходить за пределы массивов.

Я так смутно помню что там был запрет на динамическое изменение значения счетчика цикла, но по-моему без ветвлений это сделать в принципе не возможно. В общем счетчик цикла должен по ходу решения только увеличиваться.

Т.е необходимо разработать функцию y=f(x) где x - сам счетчик, а у - вычисленный индекс очередного по циклу элемента массива А.

Вот примерно такую задачу нам по секрету рассказал один из преподавателей, и добавил "Ставлю 5 тому кто решит эту задачу самым коротким кодом"

А ну ка мастера логики и математики - а как бы вы решили эту задачу

Я нашел решение как вращать массив при таких условиях массив, вот интересно узнать как остальные решат, может кто и выдаст гениальную идею

[ADSoft]

ну вроде так, функция будет y=(i+start) mod 10
... а программа -

Program p1;
 uses crt;
 const A  : Array[0..9] of integer = (1,2,3,4,5,6,7,8,9,10);
 var   B  : Array[0..9] of integer;
       i, start,k,m : integer;
begin
 start:= 3;
 clrscr;
 for i:=0 to 9 do
     begin
          k:=(i+start) mod 10;
          B[i]:=A[k];
          writeln(B[i]);
     end;
end.

[mrChester]

Запрещается:
Использовать условия (if while и т.д.)

Не совсем понятно...

[Stilet]

Не совсем понятно...

Что именно?

ADSoft

Ты практически мои мысли угадал, единственное что я у себя добавил так k:=abs((i+start) mod 10); чтоб от -бесконечности до +бесконечности счетчик цикла мог меняться

[dr.Chas]

А(10) = (1,2,3,4,5,6,7,8,9,10)

массив обязательно такой? или можут быть любые цифры?

[Stilet]

или можут быть любые цифры?

В оригинальном задании вообще не указан тип элементов массива. И размер массива кстати тоже. Я для примера привел 10-ти элементный массив.

В принципе ADSoft решение хорошее представил. Я так тоже думал, но чет дет протупил, и пошел другим более сложным путем, хотя тоже уложилось в одну формулу, но сложнее.

[mrChester]

include <iostream.h>
void main()
{int A[] = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10};
int B[10];
int k; 
cout <<"Vvesti smeschenie: "; cin >>k;
for (int i=0; i<10; i++){
   B[i] = A[(i+k)%10];
   cout<<B[i]<<' ';
}
}

То же самое, что и у ADSoft, зато кода меньше

[ADSoft]

abs - низя, в условиях же сказано не выходить за пределы массива

[Utkin]

А разрешено вводить дополнительную переменную указывающую начало массива ? Зачем двигать элементы, когда можно сдвинуть указатель на начальный элемент, а для доступа пересчитывать в действительный индекс массива...

[ADSoft]

2 mrChester - ну.... кода не меньше, на другом языке проста... незнай чет меня прибило что именно на паскале нада...)))) на пхп б ваще еще сократил )))
2 Utkin - start - это смещение которое задается пользователем... никаких доп переменных нет... если тока для удобочитаемости