Value

最新推荐文章于 2024-01-02 15:51:58 发布

TARsier_Gu

最新推荐文章于 2024-01-02 15:51:58 发布

阅读量321

点赞数

分类专栏： NOIP 文章标签： dp 背包问题贪心

本文链接：https://blog.csdn.net/GGTTARsier/article/details/52242470

版权

NOIP 专栏收录该内容

52 篇文章 0 订阅

订阅专栏

Description

这里写图片描述

Solution

简单的dp，但是打挂了（论对拍的重要性）。
其实我们可以稍微类比一下，不难发现，这其实只是一个背包问题，只不过对于空间一维，转换成了另一种形式，其实还是很好想的。计算总价值，可以理解为价值之和减去代价，而倒数第i个的代价为 $w_i*(i-1)$ ，所以贪心地让代价尽量小，排序后做背包就好了。f[j]表示倒数第j个选到的价值最大为多少

**f[j]:=max(f[j],f[j-1]+v[i]-w[i]*(j-1));**

Code

var
    v,w:array[0..5000] of longint;
    f:array[0..5000] of longint;
    n,i,j,ans:longint;
procedure qsort(l,r:longint);
var i,j,mid:longint;
begin
    i:=l;j:=r;
    mid:=w[(l+r)div 2];
    repeat
        while w[i]<mid do inc(i);
        while mid<w[j] do dec(j);
        if i<=j then
        begin
            w[0]:=w[i];w[i]:=w[j];w[j]:=w[0];
            v[0]:=v[i];v[i]:=v[j];v[j]:=v[0];
            inc(i);dec(j);
        end;
    until i>j;
    if i<r then qsort(i,r);
    if l<j then qsort(l,j);
end;
function max(x,y:longint):longint;
begin
    if x>y then exit(x) else exit(y);
end;
begin
    readln(n);
    for i:=1 to n do readln(v[i],w[i]);
    qsort(1,n);
    for i:=n downto 1 do
    begin
        for j:=n downto 1 do
        begin
            f[j]:=max(f[j],f[j-1]+v[i]-w[i]*(j-1));
            ans:=max(ans,f[j]);
        end;
    end;
    writeln(ans);
end.