oopp 2009-11-04 08:20:00
点我顶贴
收藏
删除
Program rq106；
Const xz=200；
Var g,f:array[0..xz,0..xz,0..xz]of longint；
a:array[0..xz,0..xz]of longint；
n,m,i,j,k,l:longint；
begin
readln(n)；
For i:=1 to n do
For j:=1 to n do
read(a[i,j])；
For i:=1 to n do
For j:=1 to n do
For k:=1 to n-j+1 do
g[i,j,k]:=g[i,j-1,k-1]+a[i,j]；
For j:=1 to n do
for k:=1 to n-j+1 do
For i:=1 to n do
if f[i-1,j,k]+g[i,j,k]>g[i,j,k] then
f[i,j,k]:=f[i-1,j,k]+g[i,j,k] else
f[i,j,k]:=g[i,j,k]；
For i:=1 to n do
For j:=1 to n do
For k:=1 to n-j+1 do
if l<f[i,j,k] then l:=f[i,j,k]；
write(l)；
end.
我的代码。。。。。
为什么会错啊！！！！