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

@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;

Новые блоги и статьи Все статьи Все блоги /
Программа для com-порта Uhbif79 05.06.2026 Всем привет, давно хотел изучить Qt, начинал, бросал, потом снова начинал. И сейчас вот смог написать свою первую программу. До этого имел опыт программирования микроконтроллеров, писал прошивки на. . .	Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .	21 мат мед. Планы на развитие модели здравоСохранения anaschu 01.06.2026 AnyLogic: план развития симуляционной модели рабочего коллектива — динамический абсентеизм, реальные данные, три сценария сравнения Продолжаю серию постов о дискретно-событийной модели рабочего. . .	20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .
19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .	"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .

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

	Написать функцию, которая циклически сдвигает одномерный массив вправо или влево на указанное число позиций. 16.12.2020, 13:11. Показов 5625. Ответов 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