Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 19.12.2013, 16:37   #1 (permalink)
Demon11101995
Member
 
Регистрация: 14.12.2013
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Необходимо узнать, что делает эта часть программы

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

i:=2;mx:=0;imx:=0;
while i<=n do
if a[i]>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[i],' ');
readln
end.
Demon11101995 вне форума   Ответить с цитированием

Старый 19.12.2013, 16:37
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

В этом деле главное не торопится, а по лучше ознакомится с проблемой

Clonezilla не делает загрузочный файл iso
Необходимо написать программу
Вирус делает документ Word пустым на флэшке, делает EXE-шники ярлыками

Старый 19.12.2013, 17:03   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,336
Сказал(а) спасибо: 292
Поблагодарили 515 раз(а) в 171 сообщениях
Репутация: 93791
По умолчанию

Цитата:
Сообщение от Demon11101995 Посмотреть сообщение
Помогите!мне необходимо узнать что делает эта часть программы
Ищет участки монотонного возрастания элементов массива.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 19.12.2013, 23:05   #3 (permalink)
Demon11101995
Member
 
Регистрация: 14.12.2013
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

мне бы описать,что делает каждое предложение=(
Demon11101995 вне форума   Ответить с цитированием
Старый 19.12.2013, 23:08   #4 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,336
Сказал(а) спасибо: 292
Поблагодарили 515 раз(а) в 171 сообщениях
Репутация: 93791
По умолчанию

Цитата:
Сообщение от Demon11101995 Посмотреть сообщение
мне бы описать,что делает каждое предложение=(
Дык... это мне для начала самому разобраться надо, что оно делает... Попробую завтра, ежели будет время.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 20.12.2013, 10:58   #5 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,336
Сказал(а) спасибо: 292
Поблагодарили 515 раз(а) в 171 сообщениях
Репутация: 93791
По умолчанию

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

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

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 23.12.2013, 17:40   #6 (permalink)
Demon11101995
Member
 
Регистрация: 14.12.2013
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

спасибо выручили
Demon11101995 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 18:30.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.