jzoj 1354. 【2011.12.24普及模拟】土地购买_problem c: 没有金坷垃的lzc time limit: 1 sec memory limi-优快云博客

本文链接：https://blog.youkuaiyun.com/forget_yu/article/details/52195377

本文介绍了一个关于土地购买的问题，农夫John希望通过合理分组购买N块土地以最小化总花费。文章提供了完整的算法思路和Pascal语言实现代码，通过将土地按长宽组合优化，达到最小费用。

题目描述

农夫John准备扩大他的农场,他正在考虑N (1 <= N <= 5,000) 块长方形的土地. 每块土地的长宽满足(1 <= 宽 <= 1,000,000; 1 <= 长 <= 1,000,000).

每块土地的价格是它的面积,但FJ可以同时购买多快土地. 这些土地的价格是它们最大的长乘以它们最大的宽, 但是土地的长宽不能交换. 如果FJ买一块3x5的地和一块5x3的地,则他需要付5x5=25.

FJ希望买下所有的土地,但是他发现分组来买这些土地可以节省经费. 他需要你帮助他找到最小的经费.

输入

第1行: 一个数: N

第2..N+1行: 第i+1行包含两个数,分别为第i块土地的长和宽

输出

第一行: 最小的可行费用.

样例输入

样例输出

数据范围限制

提示

【 输出说明】

输入解释:共有4块土地.

输出解释:FJ分3组买这些土地: 第一组:100x1, 第二组1x100, 第三组20x5 和 15x15 plot. 每组的价格分别为100,100,300, 总共500.

贪心

代码如下，自行理解吧。。

var
 n,i,j:longint; sum:int64;
 x,y:array[1..5000]of int64;

function max(a,b:int64):int64;
begin
 if a>b then exit(a) else exit(b);
end;

begin
 assign(input,'acquire.in');reset(input);
 assign(output,'acquire.out');rewrite(output);
 readln(n);
 for i:=1 to n do
  readln(x[i],y[i]);
 for i:=1 to n do
  for j:=1 to n do
  if i<>j then
  if (x[i]*y[i]+x[j]*y[j])>(max(x[i],x[j])*max(y[i],y[j])) then
   begin
    x[i]:=max(x[i],x[j]);
    y[i]:=max(y[i],y[j]);
    x[j]:=0; y[j]:=0;
   end;
 for i:=1 to n do
  sum:=sum+x[i]*y[i];
 write(sum);
 close(input); close(output);
end.