99 条题解
-
0
zhangyq987 LV 8 @ 2009-08-15 12:20:39
var
n,m,i,j,p:integer;
min,max:longint;
a:packed array[1..100]of integer;
fmin:packed array[1..100,1..100,0..9]of longint;
fmax:packed array[1..100,1..100,0..9]of longint;
function js(l,r:integer):integer;
var
i:integer;
sum:int64;
begin
sum:=0;
for i:=l to r do sum:=sum+a[i];
if sum=p)and((r-i-1)>=(k-1-p)) then
if findmin(l,i,p)*findmin(i+1,r,k-1-p)=p)and((r-i-1)>=(k-1-p)) then
if findmax(l,i,p)*findmax(i+1,r,k-1-p)>now then
now:=findmax(l,i,p)*findmax(i+1,r,k-1-p);
end;
fmax[l,r,k]:=now;
findmax:=fmax[l,r,k];
end;
end;
end;
begin
readln(n,m);
for i:=1 to n do
begin
readln(a[i]);
a:=a[i];
end;
for i:=1 to 2*n do
for j:=1 to 2*n do
for p:=0 to m do
begin
fmin:=-1;
fmax:=-1;
end;
min:=maxlongint;max:=0;
for i:=1 to n do
begin
if findmin(i,i+n-1,m-1)max then max:=findmax(i,i+n-1,m-1);
end;
writeln(min);
write(max);
end. -
0
Spirit_Night LV 10 @ 2009-07-30 17:09:04
一次AC。。。。水。。。
不需要高精度
int64就够3维的DP
-
0
fly with wsc LV 6 @ 2009-07-19 15:17:02
楼下B哥，吹牛果然厉害！！！
-
0
zhengfangyi LV 10 @ 2009-03-29 16:41:46
调了半天才发现，有的状态根本不能到达！！！！
注意！！！
WA了n次... -
0
如果各位象如下情况
＂程序输出比正确答案长＂
请注意
１：注意变量 （ＬＯＮＧＩＮＴ 就够了，ＩＮＴ６４ 可能就会＂程序输出比正确答案长＂－－－－我的经验）；
２：强烈注意 ＂取模＂ 最好用数组 （ＨＨ［Ｉ，Ｊ］：＝（ＨＨ［Ｉ，Ｊ－１］＋Ａ［Ｉ］＋１００００００００）ＭＯＤ １０；
３：能量项链的模式
ＤＰ方程：
１ ＦＦ［Ｉ，Ｊ，Ｐ］：＝ＭＡＸ（ＦＦ［Ｉ，Ｋ，Ｐ－１］＋ＨＨ［Ｋ＋１，Ｊ］ ）；
２ ＧＧ［Ｉ，Ｊ，Ｐ］：＝ＭＩＮ（ＧＧ［Ｉ，Ｋ，Ｐ－１］＋ＨＨ［Ｋ＋１，Ｊ］ ）；
Ｉ：从Ｉ个起 Ｊ：到第Ｊ个 Ｐ：分成几部分 Ｋ：Ｉ〈＝Ｋ〈＝Ｊ -
0
wizard1990 LV 3 @ 2008-11-05 19:28:54
1次AC。。。感觉终于回来了 前几天总是每道题莫名奇妙的WA上1－2个点
zhangyq987
LV 8
@ 2009-08-15 12:20:39
