记录编号 20454 评测结果 AAAAAAAAAA
题目名称 整理书本 最终得分 100
用户昵称 Gravatarbelong.zmx 是否通过 通过
代码语言 Pascal 运行时间 2.603 s
提交时间 2010-10-26 08:49:45 内存使用 1.94 MiB
显示代码纯文本
program book(input,output);
var
  n,i,j,k,l,o,p,max:longint;
  w,v:array[1..400]of longint;
  f:array[1..400,1..400,1..3]of longint;
begin
  assign(input,'book.in');
  reset(input);
  assign(output,'book.out');
  rewrite(output);
  readln(n);
  for i:=1 to n do
    readln(w[i],v[i]);
  for i:=1 to n do
  begin
    f[i,i,1]:=0;
    f[i,i,2]:=w[i];
    f[i,i,3]:=v[i];
  end;
  for i:=1 to n do
    for j:=1 to n do
    if i+j<=n then
    begin
      max:=maxlongint;
      for k:=j to i+j-1 do
      begin
        if (f[j,k,2]-f[j,k,3]+f[k+1,i+j,2]-f[k+1,i+j,3]+f[j,k,1]+f[k+1,i+j,1])<max then
        begin
          max:=f[j,k,2]-f[j,k,3]+f[k+1,i+j,2]-f[k+1,i+j,3]+f[j,k,1]+f[k+1,i+j,1];
          o:=f[j,k,2]+f[k+1,i+j,2];
          p:=f[j,k,3]+f[k+1,i+j,3];
        end;
      end;
      f[j,i+j,1]:=max;
      f[j,i+j,2]:=o;
      f[j,i+j,3]:=p;
    end;
  writeln(f[1,n,1]);
  close(input);
  close(output);
end.