IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Циклический сдвиг, на динамических данных
Гость
сообщение 21.02.2007 23:04
Сообщение #1


Гость






Помогите плиз!
Нужно с помощью динамичесой организации данных, организовать сдвиг впрво. Пример вводим L1=(a, b, c) , а выводим L2=(c, a, b).

Кто поможет в двух-трёх словах как лучше организовать цикличкский сдвиг на одни элемент вправо?

сразу большое спасибо

М
Гость, не задавай вопросы в чужих темах! Предупреждение..
Тема разделена. Lapp


 ! 
Как оказалось позднее, ты сделал это ДВА раза!
Второе ПРЕДУПРЕЖДЕНИЕ!
Твоя подсеть может вся пострадать за тебя..
Lapp

 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Lapp
сообщение 22.02.2007 4:55
Сообщение #2


Уникум
*******

Группа: Модераторы
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


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

Сначала запоминаем последний элемент в буфер.
Затем делаем цикл сверху вниз от n-1 до 1 по перекладыванию соседних ячкеек (из меньшего номера в больший).
Потом переносим содержимое буфера в первый элемент.
A:array[1..n]of tElement;
Buff:tElement;
.........
Buff:=A[n];
for i:=n-1 downto 1 do A[i+1]:=A[i];
A[1]:=Buff


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 21.06.2025 16:26
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"