Комментарии 6

• [crayon-673e347caf9ef028744685 inline="true" ] var n,i,num:integer; a:array [1..10]of real; begin read(n); for i:=1 to n do read(a[i]); num:=1; for i:=2 to n-1 do begin if ((a[i-1]-a[i])>0)xor((a[i]-a[i+1])>0) then //ищем к-во точек экстремумов begin inc(num,1); end; end; write(num); end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

  [crayon-673e347caf9ef028744685 inline="true" ] var   n,i,num:integer;     a:array [1..10]of real; begin     read(n);   for i:=1 to n do read(a[i]);   num:=1;     for i:=2 to n-1 do     begin                                     if ((a[i-1]-a[i])>0)xor((a[i]-a[i+1])>0) then //ищем к-во точек экстремумов          begin            inc(num,1);                    end;             end;     write(num);     end.

  [/crayon]

  Ответить

  • по данному алгоритму в массиве:
    3 2 2 2 3
    два экстремума, 2 и 4 элемент, но это не так… покрайней мере по условию экстремумов в данном учебнике.
    и у меня к стати тоже самое… поправил
    Было:

    if (a[i-2]>a[i-1]) and not(a[i-1]>a[i]) then inc(Num); if (a[i-2]<a [i-1]) and not(a[i-1]<a[i]) then inc(Num);

    1 2	if (a[i-2]>a[i-1]) and not(a[i-1]>a[i]) then inc(Num);     if (a[i-2]<a [i-1]) and not(a[i-1]<a[i]) then inc(Num);

    Стало:

    if (a[i-2]>a[i-1]) and (a[i-1]<a [i]) then inc(Num); if (a[i-2]<a[i-1]) and (a[i-1]>a[i]) then inc(Num); </a>

    1 2 3

    if (a[i-2]>a[i-1]) and (a[i-1]<a [i]) then inc(Num);     if (a[i-2]<a[i-1]) and (a[i-1]>a[i]) then inc(Num); </a>

    Ответить

    • Не обращаем внимание на мои «экстремумы». Это не актуально при повторяющихся числах. Мне кажется как раз раньше было правильно, а теперь Ваше решение отслеживает только строгие максимумы и минимумы. Вышеприведенный пример 3 2 2 2 3 — два интервала монотонности: 3 2 — элементы убывают, 2 3 — возрастают. Ну и строку 23 на 16 в виде:

      [crayon-673e347caf94c583527496 inline="true" ] if a[N-1]<>a[N] then Num:=1 else Num:=0;

      1 2	[crayon-673e347caf94c583527496 inline="true" ] if a[N-1]<>a[N] then Num:=1 else Num:=0;

      [/crayon]
      Мой обновленный «ужос»:

      [crayon-673e347caf950604210253 inline="true" ] var n,i,num:integer; a:array [1..10]of real; begin readln(n); for i:=1 to n do readln(a[i]); if a[n]<>a[n-1] then num:=1 else num:=0; for i:=2 to n-1 do if (a[i-1]<>a[i])and(((a[i-1]-a[i])>0)xor((a[i]-a[i+1])>0)or(a[i]=a[i+1])) then inc(num,1); writeln(num); end.

      1 2 3 4 5 6 7 8 9 10 11 12 13

      [crayon-673e347caf950604210253 inline="true" ] var   n,i,num:integer;     a:array [1..10]of real; begin     readln(n);   for i:=1 to n do readln(a[i]);   if a[n]<>a[n-1] then num:=1 else num:=0;     for i:=2 to n-1 do     if (a[i-1]<>a[i])and(((a[i-1]-a[i])>0)xor((a[i]-a[i+1])>0)or(a[i]=a[i+1]))            then inc(num,1);                   writeln(num);   end.

      [/crayon]

      Ответить

    • Вернул всё как было в итоге..

      Ответить

• добавил ещё одно решение.
  В общем ситуация такая в задании:
  (то есть участков, на которых его элементы возрастают или убывают).
  И вот с этим наши алгоритмы справляются.
  А вот учаски на которых функция не убывает и не возрастает они игнорируют.
  Пример:
  1 2 2 1 2 3 4 4 5 4
  здесь они показывают 5.
  но мне как профану в убывающих и возрастающих функциях кажется что промежутков монотонности 7…. где правда не знаю… 🙁

  Ответить

  • сам отвечаю на свой вопрос… просто я забыл что такое моннотоность функции, отрезок со значениями 1 2 2 возрастает и является монтонный, 1 2 3 строго монотонный отрезок… так что отрезков монотонности действительно 5, притом отрезки монотонности 1 2 2 и 2 2 1 пересекаются %)

    Ответить