Помогите пожалуйста. Массив нужно свернуть в "кольцо". Опции

[Gothar]

Массив целых чисел х[1]... х[п] «свернуть в кольцо» и повернуть вправо на К позиций (К может быть больше п).

Заранне спасибо!

Сообщение отредактировано: Gothar - 1.06.2009 2:43

[volvo]

Лучше - так:

// k = число сдвигов, n = размер массива
for i := 1 to k mod n do begin
  tmp := m[n];
  Move(m[1], m[2], (n-1)*sizeof(integer));
  m[1]:=tmp;
end;

, чтоб не делать заведомо лишнее...

Автору: как ты думаешь, Правила тебя не касаются? Мало того, что тема названа не пойми как, еще и тегами не пользуешься... В следующий раз такая тема сразу улетит в мусорку.

А чтоб не улетела сейчас - исправляй...

[Gothar]

Лучше - так:

// k = число сдвигов, n = размер массива
for i := 1 to k mod n do begin
  tmp := m[n];
  Move(m[1], m[2], (n-1)*sizeof(integer));
  m[1]:=tmp;
end;

, чтоб не делать заведомо лишнее...

Автору: как ты думаешь, Правила тебя не касаются? Мало того, что тема названа не пойми как, еще и тегами не пользуешься... В следующий раз такая тема сразу улетит в мусорку.

А чтоб не улетела сейчас - исправляй...

Впринципе сдвигает нормально. с одним но! k не может быть больше n!!!!! виснет! Как быть?

Добавлено через 2 мин.

Еще и название темы

А как?