5775. 【NOIP2008模拟】农夫约的假期

Description

  在某国有一个叫农夫约的人，他养了很多羊，其中有两头名叫mm和hh，他们的歌声十分好听，被当地人称为“魔音”······
  农夫约也有自己的假期呀！他要去海边度假，然而mm和hh不能离开他。没办法，他只好把他们两个带上。
  到了海边，农夫约把他的羊放在一个(n*n)的矩阵（有n*n个方格）里。mm和hh十分好动，他们要走到m(m<=n*n)个地方，第i个地方的坐标为(x[i]（行）,y[i]（列）)，每到一个地方他们会高歌一曲，制造q[i]点魔音值，因为他们的魔音十分独特，他们的声音只能横着或竖着传播。每传播一格，魔音值会增加1。（传播的格子数取最小的）接下来农夫约要住酒店。为了方便照顾小羊们，他选的酒店的坐标要在矩阵内。但小羊们的魔音让他十分头疼。他想求出魔音值最小的地方。
他还要享受他的假期，所以他把这个任务交给你了，加油（^_^）。

 

Input

第一行输入n、m和z。
接下来m行，每行3个正整数x[i],y[i]和q[i]。

 

Output

第一行一个整数表示魔音值最小是多少。
接下来一行两个正整数zb1和zb2，表示魔音值最小的地方的坐标（如果有多个答案，输出横坐标最小的情况下，纵坐标最小的）。

 

Solutions

见代码。

代码

var
  num,ans:int64;
  n,m,z:longint;
  x,y,xx,yy:array [0..100001] of int64;
procedure init;
var
  i,q:longint;
begin
  readln(n,m,z);
  ans:=0;
  for i:=1 to m do
    begin
      readln(xx[i],yy[i],q);
      ans:=ans+q;
      inc(x[xx[i]]); inc(y[yy[i]]);
    end;
  for i:=2 to n do
    begin
      x[i]:=x[i]+x[i-1];
      y[i]:=y[i]+y[i-1];
    end;
end;

procedure main;
var
  tt,kk:int64;
  i,qq,zz:longint;
begin
  for i:=1 to n do
    if x[i]>x[n]-x[i] then
      begin
        qq:=i;
        break;
      end;
  for i:=1 to n do
    if y[i]>y[n]-y[i] then
      begin
        zz:=i;
        break;
      end;
  num:=0; tt:=0; kk:=0;
  for i:=1 to m do
    begin
      num:=num+abs(xx[i]-qq)+abs(yy[i]-zz);
      tt:=tt+abs(xx[i]-qq+1)+abs(yy[i]-zz);
      kk:=kk+abs(xx[i]-qq)+abs(yy[i]-zz+1);
    end;
  while tt=num do
    begin
      tt:=0; dec(qq);
      for i:=1 to m do
        tt:=tt+abs(xx[i]-qq+1)+abs(yy[i]-zz);
    end;
  while kk=num do
    begin
      kk:=0; dec(zz);
      for i:=1 to m do
        kk:=kk+abs(xx[i]-qq)+abs(yy[i]-zz+1);
    end;
  writeln(num+ans);
  writeln(qq,' ',zz);
end;

begin
  assign(input,'shuru.in');
  assign(output,'shuru.out');
  reset(input);
  rewrite(output);
  init;
  main;
  close(input);
  close(output);
end.