Question

pascal八皇后问题-7..16是怎么意思在线等跪求

var
x:array[1..8]of integer;
a,b,c:array[-7..16]of boolean; 、、这里为什么是-7..16？
i:integer;
procedure print;
var
k:integer;
begin
for k:=1to 8do
write(x[k]:4);
writeln
end;
procedure try(i:integer);
var
j:integer;
begin
for j:=1to 8do
if a[j]and b[i+j]and c[i-j]
then begin
x[i]:=j;
a[j]:=false;
b[i+j]:=false;
c[i-j]:=false;
if i<8 then try(i+1)
else print;
a[j]:=true;
b[i+j]:=true;
c[i-j]:=true
end
end;
begin
for i:=-7 to 16 do
begin
a[i]:=true;
b[i]:=true;
c[i]:=true
end;
try(1)
end.

Answer 1

因为有i-j和i+j，如1-8，8+8等情况

Answer 2

两条对角线和竖行用的一个类型嘛，其实可以分开的
竖行的范围为1~8没有问题的
一般来说默认最长的左下-右上对角线为9，于是对角线范围为2~16
例如（1，2）这个格子在第3条左下-右上对角线上
然后最长的左上-右下对角线为0，于是这条对角线范围为-7~7
例如（1，2）这个格子在第-1条（好吧，这里用的下标，所以有负的）左上-右下对角线上
综合来说呢，开成一个类型就要-7~16了啊

Answer 3

你想想啊，对角线是不是就像Y=X+b或Y=-X+b那样的啊
当你是第一列的时候。。。。
Y=X。。。过第三象限。。。以及（-7，-8），，，懂了么？
控制对角线就是说控制（x，-8）

Answer 4

因为 if a[j]and b[i j]and c[i-j]
then begin
x[i]:=j;
a[j]:=false;
b[i j]:=false;
c[i-j]:=false;
if i