{Mira esto es loque quieres pasa lo a monitor}
program reinas_o_damas;
uses
crt;
const
reinas = 8;
damas = 8;
type
tablero = array[1..reinas] of 1..damas;
var
modo : Integer;
dam1,dam2,dam3,dam4,dam5,dam6,dam7,dam8 : integer;
rey1, rey2 : integer;
px : tablero;
cont : byte;
k : integer;
function solucion_diagonal(desd : tablero) : boolean;
begin
cont := 1;
for rey1 := 1 to 7 do
for rey2 := rey1 + 1 to reinas do
if (desd[rey2] + rey2 = desd[rey1] + rey1) or
(desd[rey2] - rey2 = desd[rey1] - rey1) then
cont := 0;
if cont = 0 then
solucion_diagonal := false
else
solucion_diagonal := true;
end;
procedure presenta_resultado(desd : tablero);
begin
for k := 1 to damas do
write(desd[k]);
write(' '); end;
procedure colocar;
begin
for dam1 := 1 to damas do
for dam2 := 1 to damas do
if dam2 <> dam1 then
for dam3 := 1 to damas do
if not (dam3 in[dam1,dam2]) then
for dam4 := 1 to damas do
if not (dam4 in[dam1,dam2,dam3]) then
for dam5 := 1 to damas do
if not (dam5 in[dam1,dam2,dam3,dam4]) then
for dam6 := 1 to damas do
if not (dam6 in[dam1,dam2,dam3,dam4,dam5]) then
for dam7 := 1 to damas do
if not (dam7 in[dam1,dam2,dam3,dam4,dam5,dam6]) then
for dam8 := 1 to damas do
if [dam1,dam2,dam3,dam4,dam5,dam6,dam7,dam8] = [1..reinas] then
begin
px[1] := dam1;
px[2] := dam2;
px[3] := dam3;
px[4] := dam4;
px[5] := dam5;
px[6] := dam6;
px[7] := dam7;
px[8] := dam8;
if solucion_diagonal(px) then
presenta_resultado(px);
end;
end;
begin
modo := lastmode;
textcolor(15);
textmode(c80);
colocar;
readkey;
textmode(modo);
textcolor(7);
end.
Crear cuenta