Problema das Oito Rainhas

O Problema das Oito Rainhas

{Objetivo:}

1.Representar um tabulerio de xadres 8x8 que contenha as posicoes das 8 rainhas;

2.Imprimir na tela o tabuleiro e as rainhas numeradas de 1 a 8;

3.Verificar se o problema foi resolvido;

4.Dar opcoes ao usuario;

}

program trabalho_2;

uses crt;

const

l=4;{valor inicial para localizacao de linha da rainha}

c=34;{valor inicial para localizacao de coluna da rainha}

var tab:array[1..24]of integer;{vetor que armazena as rainhas}

j,m:integer;{indexadores}

col,lin,num:integer;{variaveis de leitura da posicao e numero das rainhas}

d,e:integer;{variaveis usadas para diminuir o tamanho das expressoes de decisao}

p,i,k,a,erro:integer;{variaveis de controle}

op:integer;{armazena a opcao do usuario}

begin

erro:=1;

repeat

{---Impressao do Tabuleiro, P=casa preto B=casa branca---}

clrscr;

writeln(' Problema das Oito Rainhas');

writeln;

writeln(' 1 2 3 4 5 6 7 8');

k:=1;

for i:=2 to 5 do

begin

writeln(' ',k,' P B P B P B P B');

k:=k+1;

writeln(' ',k,' B P B P B P B P');

k:=k+1;

end;

{----------------------------------}

i:=0;

repeat{inicio do problema}

gotoxy(1,15);

writeln(' ');

writeln(' ');

writeln(' ');

writeln('…