从网上找的代码
procedure initiate;
begin
state[1,1]:=-1;
state[1,2]:=0;
state[1,3]:=0;
state[1,4]:=h0+1;
state[2,1]:=0;
state[2,2]:=h0;
state[2,3]:=w0+1;
state[2,4]:=h0+1;
state[3,1]:=w0;
state[3,2]:=-1;
state[3,3]:=w0+1;
state[3,4]:=h0;
state[4,1]:=-1;
state[4,2]:=-1;
state[4,3]:=w0;
state[4,4]:=0; {define border}
fillchar(used,sizeof(used),false);
v:=4;
end;
这段代码是用4个矩形定义容器的长与宽的，从调试结果发现，这段定义的是边长为1的正方形容器，如果我要定义一个边长为2的容器，应该将代码中的数据如何改动...
应该是个小问题而已，但是楼主真心不会pascal，只是在处理问题时要用到这段代码
procedure initiate;
begin
state[1,1]:=-1;
state[1,2]:=0;
state[1,3]:=0;
state[1,4]:=h0+1;
state[2,1]:=0;
state[2,2]:=h0;
state[2,3]:=w0+1;
state[2,4]:=h0+1;
state[3,1]:=w0;
state[3,2]:=-1;
state[3,3]:=w0+1;
state[3,4]:=h0;
state[4,1]:=-1;
state[4,2]:=-1;
state[4,3]:=w0;
state[4,4]:=0; {define border}
fillchar(used,sizeof(used),false);
v:=4;
end;
这段代码是用4个矩形定义容器的长与宽的，从调试结果发现，这段定义的是边长为1的正方形容器，如果我要定义一个边长为2的容器，应该将代码中的数据如何改动...
应该是个小问题而已，但是楼主真心不会pascal，只是在处理问题时要用到这段代码
