P1 REYES VILLA ALFREDO

P1-REYES VILLA ALFREDO
Programa 1: Las ocho reinas.
El problema de las ocho reinas es un pasatiempo en el que se colocan ocho reinas
sin que se amenacen. Fue propuesto por el ajedrecista alemán MaxBezzel en
1848. En el juego del ajedrez la reina amenaza a aquellas piezas que se
encuentren en su misma fila, columna o diagonal. El juego de las 8 reinas consiste
en colocar sobre un tablero deajedrez ocho reinas sin que estas se amenacen
entre ellas.
Iterativo

Código
#include /* printf () */
#include /* getch () */
/* Macros: */
#define BOOLEAN int
#define TRUE 1
#defineFALSE 0
/* Variables globales: */

BOOLEAN acertado;
int posiciones_en_columna[8];
BOOLEAN reina_en_fila[8];
BOOLEAN reina_en_diagonal_normal[15];
BOOLEAN reina_en_diagonal_inversa[15];
#define c(i)posiciones_en_columna[(i)-1]
/* rango de índice: 1..8 */
#define f(i) reina_en_fila[(i)-1]
/* rango de índice: 1..8 */
#define dn(i) reina_en_diagonal_normal[(i)+7]
/* rango de índice: -7..7 */
#definedi(i) reina_en_diagonal_inversa[(i)-2]
/* rango de índice: 2..16 */
/* Prototipos de las funciones: */
void proceso ();
void ensayar (int i);
/* Definiciones de las funciones: */
int main ()
{
printf("\n\nPROBLEMA DE LAS OCHO REINAS iterativo:\n ");
proceso ();
printf ("\n\nPulsa cualquier tecla para finalizar. ");
getch ();
}
void proceso ()
{
register int i,j;
for (i = 1; i <= 8; i++)
f (i) =TRUE;
for (i = 2; i <= 16; i++)
di (i) = TRUE;
for (i = -7; i <= 7; i++)
dn (i) = TRUE;
ensayar (1);

if (acertado)
for (printf ("\n\nLA SOLUCION ES:\n\n"), i = 1; i <= 8; i++)
{
for (j = 1; j <= 8;j++)
printf ("%2d", c (j) == i ? 1 : 0);
printf ("\n");
}
else
printf ("\n\nNO HAY SOLUCION.\n");
}
void ensayar (int i)
{
int j = 0;
do
{
j++;
acertado = FALSE;
if (f (j) && di (i + j) && dn (i - j)){
c (i) = j;
f (j) = di (i + j) = dn (i - j) = FALSE;
if (i < 8)
{
ensayar (i + 1);
if (! acertado)
f (j) = di (i + j) = dn (i - j) = TRUE;
}
else
acertado = TRUE;
}
} while (! acertado && j != 8);...

Leer documento completo

Regístrate para leer el documento completo.