测评机： Xeost[5]

得分： 90分

提交日期： 2009-1-13 13:50:00

有效耗时： 1250毫秒

测试结果1: 测试结果错误.错误结果为:51

正确结果应为:50

测试结果2: 通过本测试点|有效耗时172:ms

测试结果3: 通过本测试点|有效耗时266:ms

测试结果4: 通过本测试点|有效耗时172:ms

测试结果5: 通过本测试点|有效耗时63:ms

测试结果6: 通过本测试点|有效耗时47:ms

测试结果7: 通过本测试点|有效耗时62:ms

测试结果8: 通过本测试点|有效耗时203:ms

测试结果9: 通过本测试点|有效耗时218:ms

测试结果10: 通过本测试点|有效耗时47:ms

提交代码： var

f:array[0..500,0..500]of longint；

m,n,o,p,q,r:longint；

a:array[0..500,0..1]of longint；

b:byte；

begin

readln(m,n)；

for o:=1to m do

begin

readln(b)；

a[o,1]:=a[o-1,1]；

a[o,0]:=a[o-1,0]；

inc(a[o,b])；

for p:=2to n do

f[o,p]:=2147483647；

end；

for o:=1to m do

f[o,1]:=a[o,1]*a[o,0]；

for o:=2to n do

for p:=o+1to m do

for q:=o to p-1do

if f[q,o-1]+(a[p,0]-a[q,0])*(a[p,1]-a[q,1])<f[p,o]

then f[p,o]:=f[q,o-1]+(a[p,0]-a[q,0])*(a[p,1]-a[q,1])；

write(f[m,n])；

end.

我也一样!

郁闷!

测评机： Xeost[5]

得分： 90分

提交日期： 2009-3-15 23:48:00

有效耗时： 1028毫秒

测试结果1: 测试结果错误.错误结果为:51 正确结果应为:50

测试结果2: 通过本测试点|有效耗时78:ms

测试结果3: 通过本测试点|有效耗时312:ms

测试结果4: 通过本测试点|有效耗时78:ms

测试结果5: 通过本测试点|有效耗时62:ms

测试结果6: 通过本测试点|有效耗时47:ms

测试结果7: 通过本测试点|有效耗时46:ms

测试结果8: 通过本测试点|有效耗时172:ms

测试结果9: 通过本测试点|有效耗时187:ms

测试结果10: 通过本测试点|有效耗时46:ms