图中所给的数据只是个样例啊。。你的程序都没有写读入怎么可能过呢
by hibiki @ 2016-11-24 19:09:22
神奇...
by PTC06 @ 2016-11-24 19:14:58
我试过了输出的答案都很大
by 12啊 @ 2016-11-25 17:29:34
```cpp
program Project1;
var i,j,n,x,y:integer;
f,a:array [1..10,1..10] of integer;
b:array [1..10,1..10] of boolean;
function max (x,y:integer) :integer;
begin
if x>y then
max:=x
else
max:=y;
end;
begin
fillchar(f,sizeof(f),100000);
fillchar(a,sizeof(a),0);
fillchar(b,sizeof(b),false);
readln(n);
repeat
readln(x,y,a[x,y]);
until (x=0)and(y=0)and(a[x,y]=0);
for i:=n downto 1 do
for j:=n downto 1 do
begin
if b[j,i-1]and b[j-1,i] then
if f[j,i]>a[j,i]+max(f[j-1,i],f[j,i-1]) then f[j,i]:=a[j,i]+max(f[j-1,i],f[j,i-1]);
if (not b[j,i-1])and b[j-1,i] then
if f[j,i]>a[j,i]+f[j,i-1] then f[j,i]:=a[j,i]+f[j,i-1];
if b[j,i-1]and not b[j-1,i] then
if f[j,i]>a[j,i]+ f[j,i-1] then f[j,i]:=a[j,i]+ f[j,i-1];
end;
writeln(f[1,1]);
readln;
end.
```
by 12啊 @ 2016-11-25 17:35:19
这是写读入的
by 12啊 @ 2016-11-25 17:36:45
fillchar(f,sizeof(f),10000)是没用过fillchar吧
by joyemang33 @ 2016-11-30 22:23:01