1326. Window (Standard IO)

Description

　　给你一个长度为N的数组，一个长为K的滑动的窗体从最左移至最右端，你只能见到窗口的K个数，每次窗体向右移动一位，如下表：
　　
　　你的任务是找出窗口在各位置时的max value,min value

题解：

这一题最好用单调队列，但我不会，看来只有暴力了。

先把第一个区间最大和最小找到，然后记录位置，之后每个区间判读还在不在，不在就在找一次。

补课链接：http://baike.baidu.com/link?url=LdkPAqNNzzxaKpiZL_EFM-WD0261xxArSksYlNwWwTYks29iOijn_5t20nvCOoOgOS5UCOu9RtQcezuoMrLbgq

代码：

var
  a,b,c:array[1..1000000] of longint;
  n,m,l,r:longint;
function max(x,y:longint):longint;
var
  i:longint;
begin
  max:=a[x];l:=x;
  for i:=x+1 to y do
    if max<a[i] then
      begin
        max:=a[i];
        l:=i;
      end;
end;
function min(x,y:longint):longint;
var
  i:longint;
begin
  min:=a[x];r:=x;
  for i:=x+1 to y do
    if min>a[i] then
      begin
        min:=a[i];
        r:=i;
      end;
end;
var
  i:longint;
begin
  readln(n,m);
  for i:=1 to n do
    read(a[i]);
  b[1]:=max(1,m);
  c[1]:=min(1,m);
  for i:=2 to n-m+1 do
    begin
      if l<i then b[i]:=max(i,m+i-1)
        else
          if a[m+i-1]<b[i-1] then b[i]:=b[i-1] else b[i]:=a[m+i-1];
      if r<i then c[i]:=min(i,m+i-1)
        else
          if a[m+i-1]>c[i-1] then c[i]:=c[i-1] else c[i]:=a[m+i-1];
    end;
  for i:=1 to n-m+1 do
    write(c[i],' ');
  writeln;
  for i:=1 to n-m+1 do
    write(b[i],' ');
end.