Необходимо узнать, что делает эта часть программы

[Demon11101995]

Необходимо узнать, что делает эта часть программы

Помогите!мне необходимо узнать что делает эта часть программы

i:=2;mx:=0;imx:=0;
while i<=n do
if a>a[i-1] then
begin
j:=i;k:=1;
while (j<=n)and(a[j]>a[j-1]) do
begin
j:=j+1;
k:=k+1;
end;
if k>mx then
begin
mx:=k;
imx:=i-1;
end;
i:=i+k;
end
else i:=i+1;
writeln('Максимальная последовательность возрастания=',mx);
for i:=imx to imx+mx-1 do
write(a,' ');
readln
end.

 

[Vladimir_S]

Помогите!мне необходимо узнать что делает эта часть программы

Ищет участки монотонного возрастания элементов массива.

 

[Demon11101995]

мне бы описать,что делает каждое предложение=(

 

[Vladimir_S]

мне бы описать,что делает каждое предложение=(

Дык... это мне для начала самому разобраться надо, что оно делает... Попробую завтра, ежели будет время.

 

[Vladimir_S]

Ну вот, извольте. Итак, имеется неупорядоченный массив a в диапазоне 1..n. Задача: найти наибольший по длине фрагмент массива, в котором элементы упорядочены по возрастанию.
Приняты следующие обозначения:
i - переменная (счетчик) цикла.
mx - текущее значение максимальной длины упорядоченного фрагмента. Исходное значение mx=0.
k - текущее значение длины упорядоченного фрагмента.
j - счетчик элементов упорядоченного фрагмента.
imx - порядковый номер первого элемента упорядоченного фрагмента. Исходное значение imx=0.

[COLOR=Red][B]{Задаём исходные значения:}[/B][/COLOR]
i:=2;
mx:=0;
imx:=0;
[COLOR=Red][B]{Организуем цикл по всему исходному массиву:}[/B][/COLOR]
while i<=n do
 [COLOR=Red][B]{Проверяем условие "если последующий элемент больше предыдущего":}[/B][/COLOR]
 if a[i]>a[i-1] then
 [COLOR=Red][B]{Если указанное условие выполнено, то:}[/B][/COLOR]
  begin
  [COLOR=Red][B]{Задаем исходные значения k и j. Далее "движемся" по массиву, используя счетчик j. Значение i остаётся соответствующим второму элементу упорядоченного фрагмента:}[/B][/COLOR]
   j:=i;
   k:=1;
   [COLOR=Red][B]{Наращивая j, движемся по массиву до тех пор, пока или массив не кончится, или условие упорядоченности (текущий элемент больше предыдущего) не нарушится. В результате определяем длину (k) упорядоченного фрагмента:}[/B][/COLOR]
   while (j<=n) and (a[j]>a[j-1]) do
    begin
     j:=j+1;
     k:=k+1;
    end;
    [COLOR=Red][B]{Проверяем, не превышает ли полученная длина k значение максимальной протяженности упорядоченного фрагмента, полученное после обработки предыдущей части исходного массива, и если превышает, то переопределяем как саму длину (mx), так и номер первого элемента упорядоченного фрагмента (imx):}[/B][/COLOR]
    if k>mx then
     begin
      mx:=k;
      imx:=i-1;
     end;
    [COLOR=Red][B]{Смещаем глобальную нумерацию (i) на длину найденного упорядоченного фрагмента с тем, чтобы продолжить глобальный цикл:}
[/B][/COLOR]    i:=i+k;
  end
  [COLOR=Red][B]{Если указанное в начале условие соотношения пары соседних элементов не выполнено (последующий меньше или равен предыдущему), то продолжаем движение вдоль исходного массива:}[/B][/COLOR]
  else i:=i+1;
[COLOR=Red][B]{Выводим полученный результат (длину наибольшего упорядоченного фрагмента и сам фрагмент):}
[/B][/COLOR]writeln('Максимальная последовательность возрастания=',mx);
for i:=imx to imx+mx-1 do
  write(a[i],' ');
[COLOR=Red][B]{Останавливаем, а потом завершаем программу:}
[/B][/COLOR]readln
end.

 

[Demon11101995]

спасибо выручили