Window (Standard IO)

题意/Description:

 

      给你一个长度为N的数组，一个长为K的滑动的窗体从最左移至最右端，你只能见到窗口的K个数，每次窗体向右移动一位，如下表：

 

     你的任务是找出窗口在各位置时的max value,min value.

 

读入/Input：

 

    第1行n,k,第2行为长度为n的数组

 

输出/Output：

 

    2行，第1行每个位置的min value,第2行每个位置的max value

 

题解/solution：

    看着别人兴致勃勃的打线段树，我觉的很不爽。默默的打了一个暴力，十分没信心啊。

    结果AC了，暴力AC了。哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈......。

 

代码/Code：

 

var
  n,k:longint;
  max,min,t_max,t_min:longint;
  a,maax,miin:array [0..1000001] of longint;
procedure trymax(o,p:longint);
var
  i:longint;
begin
  max:=-maxlongint;
  for i:=o to p do
    if max<a[i] then
      begin
        max:=a[i];
        t_max:=i;
      end;
end;

procedure trymin(o,p:longint);
var
  i:longint;
begin
  min:=maxlongint;
  for i:=o to p do
    if min>a[i] then
      begin
        min:=a[i];
        t_min:=i;
      end;
end;

procedure init;
var
  i:longint;
begin
  readln(n,k);
  for i:=1 to n do
    read(a[i]);
  trymax(1,k);
  trymin(1,k);
  maax[1]:=max; miin[1]:=min;
end;

procedure main;
var
  i,t:longint;
begin
  for i:=k+1 to n do
    begin
      t:=i-k+1;
      if t_max>=t then
        begin
          if max<a[i] then
            begin
              max:=a[i];
              t_max:=i;
            end;
        end else trymax(t,i);
      maax[t]:=max;
      if t_min>=t then
        begin
          if min>a[i] then
            begin
              min:=a[i];
              t_min:=i;
            end;
        end else trymin(t,i);
      miin[t]:=min;
    end;
end;

procedure print;
var
  i:longint;
begin
  for i:=1 to n-k+1 do
    write(miin[i],' ');
  writeln;
  for i:=1 to n-k+1 do
    write(maax[i],' ');
end;

begin
  init;
  main;
  print;
end.