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

@dany56782 · Регистрация: 22.10.2019

Студворк — интернет-сервис помощи студентам

Написать функцию, которая циклически сдвигает одномерный массив вправо или
влево на указанное число позиций. Сдвиг также должен быть кольцевым, то есть
те элементы, которые уходят вправо или влево за пределы массива, должны
помещаться с другого его конца.
Например, дан массив:
1 2 3 4 5 6
Кольцевой сдвиг вправо на 2 единицы:
5 6 1 2 3 4

@dany56782 · 16.12.2020, 16:10 **[ТС]**

Спасибо, а эту знаете как?
Найти сумму и количество всех двухзначных чисел, у которых сумма цифр кратная 5

@JuriiMW · 16.12.2020, 18:19

Не по теме:

Хотел ответ в стиле PABC.NET дать. Но не успел… Работа отвлекла.
Чую — намаялся бы потом с таким TC-ом :–)

@canadamoscow · 16.12.2020, 18:26

Pascal
1
2
3
4
5
6
7
8
9
10
11
Function LR(a: array of integer; k: integer): array of integer;
begin
  var n := a.Count;
  k := k mod n + if k < 0 then n else 0;
  Result := a?[n-k:] + a[:n-k];
end;
 
begin
 var a := ReadlnString('Введите элементы массива через пробел:').toIntegers;
 LR(a, ReadlnInteger('Сдвиг на:')).Println
end.

@Sun Serega · 16.12.2020, 18:37

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

k mod n + if k < 0 then n else 0

(k-1) mod n + 1

@canadamoscow · 16.12.2020, 18:51

Сообщение от Sun Serega

(k-1) mod n + 1

не об этом речь.

Code
1
2
3
4
##
var (n, k) := (10, -12);
(k mod n + if k < 0 then n else 0).Println; //8 
((k-1) mod n + 1).Println; //-2

Если цель избавиться от a?[n-k:] (вопроса), то не поможет, т.к. тогда в случае ввода сдвига = 0, все равно будет ошибка

@Sun Serega · 16.12.2020, 19:28

Нет, вы таки в правильную сторону думали. У вас неправильно используется безопасный срез. Его правильно использовать только тогда, когда вы ожидаете что индекс выйдет за пределы и вам надо автоматически сдвинуть его в допустимые границы (что делает .Clamp, но без лишний телодвижений).

Иначе - это свидетельствует о том что вы ленитесь внимательно разобраться в чём то типа ошибок единицы (как в данном случае).

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
function LR(a: array of integer; k: integer): array of integer;
begin
  var n := a.Count;
  k := (k-ord(k>=1)) mod n + if k<1 then n else 1;
  Result := a[n-k:] + a[:n-k];
end;
 
begin
  var a := ReadlnString('Введите элементы массива через пробел:').ToIntegers;
//  var a := |1,2,3|;
  LR(a, ReadlnInteger('Сдвиг на:')).Println
end.

Добавлено через 3 минуты
Ну, или, лучше и не пытаться прикрутить общий алгоритм и к положительным, и к отрицательным...

Pascal
1
2
3
  k := if k < 1 then
    k mod c + c else
    (k-1) mod 3 + 1;

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@dany56782 0 / 0 / 0 Регистрация: 22.10.2019 Сообщений: 43

	Написать функцию, которая циклически сдвигает одномерный массив вправо или влево на указанное число позиций. 16.12.2020, 13:11. Показов 5719. Ответов 25 Метки нет (Все метки) Написать функцию, которая циклически сдвигает одномерный массив вправо или влево на указанное число позиций. Сдвиг также должен быть кольцевым, то есть те элементы, которые уходят вправо или влево за пределы массива, должны помещаться с другого его конца. Например, дан массив: 1 2 3 4 5 6 Кольцевой сдвиг вправо на 2 единицы: 5 6 1 2 3 4 0

@dany56782 0 / 0 / 0 Регистрация: 22.10.2019 Сообщений: 43
	16.12.2020, 16:10 [ТС]
	Спасибо, а эту знаете как? Найти сумму и количество всех двухзначных чисел, у которых сумма цифр кратная 5 0

@JuriiMW
	16.12.2020, 18:19
	Не по теме: Хотел ответ в стиле PABC.NET дать. Но не успел… Работа отвлекла. Чую — намаялся бы потом с таким TC-ом :–) 0