blob: f4f1b47a9178e140bceed1f0aea78c041672d894 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
program eightqueens;
var i: integer;
a: array[ 1..8 ] of boolean;
b: array[ 2..16] of boolean;
c: array[-7..7 ] of boolean;
x: array[ 1..8 ] of integer;
procedure print;
var k: integer;
begin
for k:= 1 to 8 do write(x[k]:4);
writeln;
end;
procedure try(i: integer);
var j: integer;
begin
for j:= 1 to 8 do 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:= 1 to 8 do a[i]:= true;
for i:= 2 to 16 do b[i]:= true;
for i:= -7 to 7 do c[i]:= true;
try(1);
end.
|