poj之旅——3045
来源:互联网 发布:学校打铃软件 编辑:程序博客网 时间:2024/05/01 23:47
这一题跟着感觉走就对了。完全无需二分,只要贪心即可,按照质量大,力气大排序即可。
程序:
var
w,s:array[0..110000]of longint;
n,i,tot,risk:longint;
procedure qsort(l,r:longint);
var
i,j,x,t:longint;
begin
i:=l;j:=r;x:=w[(l+r)shr 1]+s[(l+r)shr 1];
repeat
while w[i]+s[i]>x do i:=i+1;
while w[j]+s[j]<x do j:=j-1;
if i<=j then
begin
t:=w[i];w[i]:=w[j];w[j]:=t;
t:=s[i];s[i]:=s[j];s[j]:=t;
i:=i+1;j:=j-1;
end;
until i>j;
if i<r then qsort(i,r);
if j>l then qsort(l,j);
end;
function max(a,b:longint):longint;
begin
if a>b then exit(a);
exit(b);
end;
begin
readln(n);
for i:=1 to n do
begin
readln(w[i],s[i]);
tot:=tot+w[i];
end;
qsort(1,n);
risk:=-maxlongint;
for i:=1 to n do
begin
tot:=tot-w[i];
risk:=max(risk,tot-s[i]);
end;
write(risk);
end.
- poj之旅——3045
- poj之旅——3258
- poj之旅——3273
- poj之旅——3104
- poj之旅——2976
- poj之旅——3111。
- poj之旅——3579
- poj之旅——1979
- poj之旅——3009
- poj之旅——3669
- poj之旅——2718
- poj之旅——3187
- poj之旅——3050
- poj之旅——2376
- poj之旅——1328
- poj之旅——3190
- poj之旅——2393
- poj之旅——1017
- matlab simulink 使用总结
- 简单java类
- 《leetCode》:Number of Islands
- 旋转链表
- spring security+mybatis+springMVC构建一个简单的项目
- poj之旅——3045
- 【工具】UML工具
- mysql小笔记
- LeetCode之6---ZigZag Conversion
- 学生破解极域电子教室的破解器
- NYOJ 1036 非洲小孩(水题)
- POJ-3177-Redundant Paths【双连通分支】
- WebView属性示例
- Tcl -- split/join