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

[mrChester]

Если как функцию организовать код, твой способ будет работать? Я имею ввиду сформированный массив получится повернуть?

[Utkin]

Получится повернуть любой массив, более того, не внимательно прочитав задание я сначала неудомевал, зачем вообще нужен второй массив? Все изменения я предполагал проводить на одном массиве. Оказывается в задании написано, что нужен второй массив (то есть предполагается, что массивы в будущем будут отличны друг от друга). Только поэтому я их копирую. Реально, если требуется именно "повернутый" массив (без изменения содержимого обеих массивов), копировать смысла нет, достаточно одного, первоначального.

[Stilet]

Оказывается в задании написано, что нужен второй массив

Дружище, я не знаю зачем там описали именно перенос в другой массив. Честно.

[mrChester]

Покажи код, че-то на словах не понимаю Интересно блин

[Stilet]

Покажи код

Это Уткину?

[Utkin]

// Поворот массива в одну сторону :)
// Shift - указывает, на сколько надо массив повернуть
function Rotate(Mas: Array of Integer; Shift, Index: Integer): integer;
var
      Ind: integer;
begin

      // Пересчитаем в реальный индекс массива
      Ind:=Shift+Index;
      ind:=ind mod 10; 

      result:=Mas[ind];
end;

Что-то вроде этого. Только смещает кажись на единицу больше (или меньше). То есть я так думаю, что на единицу в сторону...



----ДОБАВИЛ-----------

Получение повернутого массива:

procedure TForm1.FormCreate(Sender: TObject);
var
    a: Array [1..10] of Integer;
    b: String;
    i: Integer;
begin

    a[1]:=1;
    a[2]:=2;
    a[3]:=3;
    a[4]:=4;
    a[5]:=5;
    a[6]:=6;
    a[7]:=7;
    a[8]:=8;
    a[9]:=9;
    a[10]:=10;

    b:='';

    // Выведем в строку при смещении на 4
    for i:=1 to 10 do
    begin

        b:=b+IntToStr(Rotate(a, 3, i));
    end;

    Form1.Caption:=b;
end;

----ДОБАВИЛ---------------
Как видно из кода - массив не копируется . Крутить в другую сторону можно той же функцией, главное правильно Shift задать.

[Stilet]

Как видно из кода - массив не копируется

Ошибаешся
Копируется. В строку.

[Utkin]

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

Ошибаешся
Копируется. В строку.

Это для наглядности, чтобы проверить работу функции. Надо же удостовериться что она работает правильно . Задав другое смещение можно с этого же массива представлять другой "повернутый". Сам массив А остается без изменений в любое время.

[Stilet]

Кстати. Для наглядности можно поискать тут уже обсуждавшийся пример как поменять значения двух переменных местами не используя третью.

[Utkin]

a :=a+b;
b :=a-b;
a :=a-b;

Кажись, так...