Осуществить циклический сдвиг элементов массива

19.09.2012, 22:19. **Показов** 2021. **Ответов** 2

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

Дан массив размера N. Осуществить циклический сдвиг элементов массива вправо на одну позицию (при этом A1 перейдёт в A2, A2-в A3,..., An в A1).

@Dethmontt · 19.09.2012, 23:04

Можно вот так...

1C

    Массив = Новый Массив;
    Массив.Вставить(0,1); Массив.Вставить(1,111); Массив.Вставить(2,"ап"); 
    Массив.Вставить(3,555); Массив.Вставить(5,"-----");
    
    ПоследнийИндекс = Массив.ВГраница();
    Массив.Вставить(ПоследнийИндекс+1,Массив[ПоследнийИндекс]);
    Для к=1 По ПоследнийИндекс Цикл
        Массив[(ПоследнийИндекс-к)+1] = Массив[ПоследнийИндекс-к];
        Массив[ПоследнийИндекс-к] = Неопределено;
    КонецЦикла;
    
    Для к=0 По Массив.ВГраница() Цикл 
        Сообщить("Индекс = "+к+"; значение = "+Массив[к]);
    КонецЦикла;

Добавлено через 8 минут
Не дочитал условие.... Не заметил что Аn в А1

1C

    Массив = Новый Массив;
    Массив.Вставить(0,1); Массив.Вставить(1,111); Массив.Вставить(2,"ап"); 
    Массив.Вставить(3,555); Массив.Вставить(5,"-----");
    
    ПоследнийИндекс = Массив.ВГраница();
    ПоследнийЭлемент = Массив[ПоследнийИндекс];
    Для к=1 По ПоследнийИндекс Цикл
        Массив[(ПоследнийИндекс-к)+1] = Массив[ПоследнийИндекс-к];
    КонецЦикла;
    Массив[0] = ПоследнийЭлемент;
    
    Для к=0 По Массив.ВГраница() Цикл 
        Сообщить("Индекс = "+к+"; значение = "+Массив[к]);
    КонецЦикла;

@duk337 · 20.09.2012, 12:09

Скопируйте. Удалите последний, вставьте первый. Что за проблема?!

ana-fine
		1
	Осуществить циклический сдвиг элементов массива 19.09.2012, 22:19. Показов 2021. Ответов 2 Метки нет (Все метки) Дан массив размера N. Осуществить циклический сдвиг элементов массива вправо на одну позицию (при этом A1 перейдёт в A2, A2-в A3,..., An в A1).

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	20.09.2012, 12:09	3
	Скопируйте. Удалите последний, вставьте первый. Что за проблема?! 0

Опции темы