当前位置: 代码迷 >> 综合 >> 1326. Window (Standard IO)
  详细解决方案

1326. Window (Standard IO)

热度:21   发布时间:2023-10-09 12:49:52.0

Description

  给你一个长度为N的数组,一个长为K的滑动的窗体从最左移至最右端,你只能见到窗口的K个数,每次窗体向右移动一位,如下表:
  1326. Window (Standard IO)
  你的任务是找出窗口在各位置时的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.
  相关解决方案