3508855 2008-05-30 18:53:00
点我顶贴
收藏
删除
程序怎么不能编译了???!!~~~
program stone2；
var
ans,n,i,j,k,m:longint；
a:array[0..10001,0..10001] of longint；
f:array[0..20001,0..20001] of longint；
begin
readln(n)；
for i:=1 to n do read(a[i,i])；
for i:=1 to n-1 do
for j:=i+1 to n do
a[i,j]:=a[i,j-1]+a[j,j]；
ans:=-1；
for i:=1 to n do begin
for k:=0 to n-1 do begin
j:=i+k；
for m:=i to j do
if (f[i,m mod n]+f[m+1,j mod n]+a[i,j mod n]<f[i,j mod n]) or (f[i,j mod n]=0) then
f[i,j mod n]:=f[i,m mod n]+f[m+1,j mod n]+a[i,j mod n]；
end；
if (k=n-1) then
if (f[i,j mod n]<ans) or (ans=-1) then
ans:=f[i,j mod n]；
end；
writeln(ans)；
end.