VPF::2 первых максимума и минимума массива

DeadButHappy

Дата 23.5.2011, 12:17 (ссылка)

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

Загрузка ...

Новичок

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

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

Кто может подсказать оптимальный и самый короткий алгоритм, который совместим с TurboPascal 7?
Алгоритм должен искать 2 первых наименьших и 2 первых наибольших элемента массива Y.
Вот что у меня получилось:

Код


iy1min:=1;
iy2min:=2;
iy1max:=1;
iy2max:=2;

{nahodim 2 ymin}
for i:=3 to (n+1) do begin
 if (y[iy1min]>y[iy2min]) and (y[iy1min]>y[i]) then begin
    iy1min:=i; continue; end;
 if (y[iy1min]<y[iy2min]) and (y[iy2min]>y[i]) then
    iy2min:=i;
end;
{nahodim 2 ymax}
for i:=3 to (n+1) do begin
 if (y[iy1max]>y[iy2max]) and (y[iy2max]<y[i]) then begin
    iy2max:=i; continue; end;
 if (y[iy1max]<y[iy2max]) and (y[iy1max]<y[i]) then
    iy1max:=i; 
end;

может есть что покрасивее?
в идеале хотелось бы все сделать за один проход цикла..

Пока решил все отсортировать, и вывести эти элементы как первые и последние..
алгоритм сортировки

Код


n:=4; i:=1;
{sortiruem po vozrastaniu}
while (i<n) do begin   
      if (y[i]>y[i+1]) then begin
         buf:=y[i];
         y[i]:=y[i+1];
         y[i+1]:=buf;
         i:=i-2;
             if (i<0) then i:=0;
      end;
   i:=i+1;
end;

так вроде красивее будет, может кто еще поможет улучшить? неужели никто?

Это сообщение отредактировал(а) DeadButHappy - 23.5.2011, 16:04

Чучмек

Дата 9.6.2011, 09:24 (ссылка)

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

Загрузка ...

НЭТ БИЛЭТ

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

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

Элементарно Уатсон,
Классический поиск экстремумов, только когда меняешь значение iy1min/iy1max, старое значение сохраняешь в iy2min/iy2max

Код


for i:=3 to (n+1) do 
 begin
    if y[iy1min]>y[i] then 
         begin
          iy2min:=iy1min;
          iy1min:=i;
         end else
                begin
                 if y[iy2min]>y[i] then iy2min:=i;
                end;
    if y[iy1max]<y[i] then
         begin
          iy2max:=iy1max;
          iy1max:=i;
         end else
                begin
                 if y[iy2max]<y[i] then iy2max:=i;
                end;
 end;

Только надо правильно задать начальные значения для iy1min,iy2min,iy1max,iy2max.
От того, какие условия сравнения используеш (>,< или <=,>=)зависит содержимое iy2xxx(индекс первого меньшего/большего после iy1xxx или меньшего/большего или равного)

Цитата(DeadButHappy @ 23.5.2011, 12:17

)

to (n+1)

Почему +1 ??? Что такое n ? Число элементов? Откуда начинается индексация? Если с 0 то n-1, если 1 то n, если с 2 то что означает iy1min:=1???

Это сообщение отредактировал(а) Чучмек - 9.6.2011, 09:38

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

умную мысль держи при себе, а дурной - поделись с другими

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