Комментарии: Решаем задачи Абрамян на Паскале. Array39

Автор: Anton

Anton — Fri, 18 Mar 2016 10:29:32 +0000

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

Автор: Anton

Anton — Fri, 18 Mar 2016 10:20:21 +0000

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

Автор: Anton

Anton — Fri, 18 Mar 2016 09:56:07 +0000

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

Автор: olegst1975

olegst1975 — Fri, 18 Mar 2016 09:52:42 +0000

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

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

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

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

[crayon-699901fe35d12917547415 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-699901fe35d12917547415 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]

Автор: Anton

Anton — Thu, 10 Mar 2016 13:19:37 +0000

по данному алгоритму в массиве:
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>

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>

Автор: olegst1975

olegst1975 — Wed, 09 Mar 2016 21:31:45 +0000

[crayon-699901fe35db1594250730 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-699901fe35db1594250730 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;

write(num);

end.

[/crayon]