回 帖 发 新 帖 刷新版面

主题:求帮助!

2006 NOIP第一题测试数据只过了5个……不知道对于环的处理哪里出了问题,求帮助!
1.能量项链
(energy.pas/c/cpp)

【问题描述】
在Mars星球上,每个Mars人都随身佩带着一串能量项链。在项链上有N颗能量珠。能量珠是一颗有头标记与尾标记的珠子,这些标记对应着某个正整数。并且,对于相邻的两颗珠子,前一颗珠子的尾标记一定等于后一颗珠子的头标记。因为只有这样,通过吸盘(吸盘是Mars人吸收能量的一种器官)的作用,这两颗珠子才能聚合成一颗珠子,同时释放出可以被吸盘吸收的能量。如果前一颗能量珠的头标记为m,尾标记为r,后一颗能量珠的头标记为r,尾标记为n,则聚合后释放的能量为 (Mars单位),新产生的珠子的头标记为m,尾标记为n。
需要时,Mars人就用吸盘夹住相邻的两颗珠子,通过聚合得到能量,直到项链上只剩下一颗珠子为止。显然,不同的聚合顺序得到的总能量是不同的,请你设计一个聚合顺序,使一串项链释放出的总能量最大。
例如:设N=4,4颗珠子的头标记与尾标记依次为(2,3) (3,5) (5,10) (10,2)。我们用记号⊕表示两颗珠子的聚合操作,(j⊕k)表示第j,k两颗珠子聚合后所释放的能量。则第4、1两颗珠子聚合后释放的能量为:
(4⊕1)=10*2*3=60。
这一串项链可以得到最优值的一个聚合顺序所释放的总能量为
((4⊕1)⊕2)⊕3)=10*2*3+10*3*5+10*5*10=710。

【输入文件】
输入文件energy.in的第一行是一个正整数N(4≤N≤100),表示项链上珠子的个数。第二行是N个用空格隔开的正整数,所有的数均不超过1000。第i个数为第i颗珠子的头标记(1≤i≤N),当i<N时,第i颗珠子的尾标记应该等于第i+1颗珠子的头标记。第N颗珠子的尾标记应该等于第1颗珠子的头标记。
至于珠子的顺序,你可以这样确定:将项链放到桌面上,不要出现交叉,随意指定第一颗珠子,然后按顺时针方向确定其他珠子的顺序。
【输出文件】
输出文件energy.out只有一行,是一个正整数E(E≤2.1*109),为一个最优聚合顺序所释放的总能量。
【输入样例】
  4
  2  3  5  10
【输出样例】
710

我的程序:
var f:array[1..100,1..201] of longint;
    d:array[1..201,1..2] of longint;
    n,i,j,k:integer;ans,b:longint;
procedure init;
begin
  readln(n);
  read(d[1,1]);
  d[n,2]:=d[1,1];
  d[n+1,1]:=d[1,1];
  for i:=2 to n  do
  begin
   read(d[i,1]);
   d[i-1,2]:=d[i,1];
   d[i+n,1]:=d[i,1];
   d[i+n-1,2]:=d[i,1];
  end;
end;
procedure dp;
begin
  for k:=1 to n do
    for i:=1 to n do
     begin
      b:=0;
     for j:=i to i+k-1 do
      if b<f[i,j]+f[j+1,i+k]+d[i,1]*d[j+1,1]*d[i+k,2] then
        b:=f[i,j]+f[j+1,i+k]+d[i,1]*d[j+1,1]*d[i+k,2];
     if b<f[i,i+k]+f[i+k,i+k]+d[i,1]*d[i+k,1]*d[i+k,2] then
       b:=f[i,i+k]+f[i+k,i+k]+d[i,1]*d[i+k,1]*d[i+k,2];
     f[i,i+k]:=b;
     if (k=n) and (f[i,i+k-1]>ans) then ans:=f[i,i+k-1];
     end;

   writeln(ans);
end;
begin
  {assign(input,'energy.in');
  reset(input);}
  {assign(output,'energy.out');
  rewrite(output);}
 init;
 dp;
  close(input);
  close(output);
end.

回复列表 (共1个回复)

沙发

var a:array[1..100]of 0..1000;
    s,max:longint;
    n,i,j:1..100;
begin
  assign(input,'energy.in');
  reset(input);
  assign(output,'energy.out');
  rewrite(output);
  readln(n);
  for i:=1 to n do read(a[i]);
  for i:=1 to n do begin
    s:=0;
    for j:=i+1 to n-1 do inc(s,a[j]*a[j+1]*a[i]);
    if i<>n then inc(s,a[n]*a[1]*a[i]);
    for j:=1 to i-1 do inc(s,a[j]*a[j+1]*a[i]);
    if s>max then max:=s
  end;
  write(max);
  close(input);
  close(output)
end.

我来回复

您尚未登录,请登录后再回复。点此登录或注册