VPF::Циклический сдвиг - Форум программистов

mortisedstalbun

Дата 7.10.2008, 21:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 27.2.2007

Репутация: нет
Всего: нет

Тема в том, как организовать, используя циклический сдвиг, перемещение максимального элемента массива на место минимального. Впервые столкнулся с такого рода проблемой за последние 3 года.... Да и в поиске ничего дельного не нашел.... Есть мысли какие-нибудь?

Albinos_x

Дата 8.10.2008, 07:37 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 2
Всего: 108

я так понимаю, запоминаешь максимальный, потом все от минимального включительно до максимального сдвигаешь на одby? записываешь в освободившуюся ячейку максимальный элемент

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

mortisedstalbun

Дата 8.10.2008, 12:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 27.2.2007

Репутация: нет
Всего: нет

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

mortisedstalbun

Дата 8.10.2008, 13:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 27.2.2007

Репутация: нет
Всего: нет

Все.... Вот нашел ответ, как это можно организовать....

Код


max:=-32768;
min:=32767;
for i:=0 to n-1 do
  if b[i]>max then
    begin
    max:=b[i];
    maxi:=i
    end;
for i:=0 to n-1 do
  if b[i]<min then
    begin
    min:=b[i];
    mini:=i
    end;
for j:=0 to maxi-mini-1 do
  begin
  beg:=b[0];
  for i:=1 to n-1 do
    b[i-1]:=b[i];
  b[n-1]:=beg
  end;

ВОт впринципе и все... Вроде как работает правильно))

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »