Question

Pascal 八皇后问题

VAR
s:ARRAY[1..8] OF integer;
a,b,c:ARRAY[-7..16] OF boolean;
i,j,k,x:integer;
p:boolean;
PROCEDURE print;

BEGIN
FOR k:=1 TO 8 DO
BEGIN
WRITE(' ',s[k]);
a[j]:=true;
b[i-j]:=true;
c[i+j]:=true;
END;
WRITELN;
END;
BEGIN
FOR i:=-7 TO 16 DO
BEGIN
a[i]:=true;
b[i]:=true;
c[i]:=true;
END;
i:=0;
x:=0;
REPEAT
inc(i);
j:=0;
p:=false;
REPEAT
inc(j);
IF (a[j])AND(b[i-j])AND(c[i+j])AND(j<=8) THEN BEGIN
s[i]:=j;
a[j]:=false;
b[i-j]:=false;
c[i+j]:=false;
IF i=8 THEN BEGIN x:=x+1; print; END
ELSE p:=true;
END
ELSE IF j>=8 THEN BEGIN
i:=i-1;
IF i>0 THEN BEGIN
j:=s[i];
a[j]:=true;
b[i-j]:=true;
c[i+j]:=true;
END
ELSE p:=true;
END;

UNTIL p=true;
UNTIL i=0;
WRITELN(x);
READLN;
END.

这个程序为什么在XP SP3（正盗版都一样）中运行会提示错误201（FreePascal V2.0.4)而在XP SP2中可以正常运行？
为什么在XP SP3中装了GUIDE V1.0.0 用GUIDE就可以正常运行？
我们电脑的FreePascal版本都一样啊
为什么GUIDE可以通过？
不是编译不能通过，而是运行时中断 201

Answer 1

监视一下哪里报错的...看看数组中的变量例如a[i] 的i啊是不是超过了范围，
这个和XP没有关系，高版本的编译器中，如果你数组下标越界的话，会在另外一个数组的空位置借用一下，这样很可能就能过掉..刚才我试了一下delphi 7 和 lazarus 0.9.26都能正常运行..cena 没试，其实如果cena 过了就可以无视了

Answer 2

随着Windows版本的升级，对DOS程序的兼容性就越差。据说在Vista下已经不允许全屏的DOS的Graph作图了。