Jogo da Velha - Visualg

Flávio Jussiê · Janeiro 11, 2016

Olá a todos.

Sou novo na programação, estou começando minha graduação em analise e desenvolvimento de sistema e estou iniciando lógica de programação. Recentemente me foi proposto criar no visualg um jogo da velha. Criei este algorítimo, ele está funcionando perfeitamente:

algoritmo "jogodavelha"

var

jog: vetor[1..3,1..3] de caractere

comp,cont, i, j, a, b, fim: inteiro

resp, aux: caractere

procedimento interface()

inicio

escreval ("===================")

escreval (" JOGO DA VELHA ")

escreval ("+-----+-----+-----+")

para i de 1 ate 3 faca

para j de 1 ate 3 faca

escreva ("| ")

escreva (jog[i,j]:4)

fimpara

escreva ("|")

escreval ()

escreval ("+-----+-----+-----+")

fimpara

fimprocedimento

inicio

comp <- 1

para i de 1 ate 3 faca

para j de 1 ate 3 faca

cont <- cont+1

jog[i,j] <- NumpCarac(cont)

fimpara

interface()

repita

escreval ()

escreva ("Jogar onde? ")

leia (resp)

a <- 1

b <- 1

enquanto (jog[a,b] <> resp) faca

se (jog[a,b] <> resp) entao

b <- b + 1

se (b > 3) entao

a <- a + 1

b <- 1

fimse

se (a = 3) entao

a <- 1

limpatela

interface()

escreval ()

escreva ("Jogada inválida, escolha outra: ")

leia (resp)

fimse

fimenquanto

escolha comp

caso 1

jog[a,b] <- "X"

caso 2

jog[a,b] <- "O"

comp <- 0

fimescolha

comp <- comp + 1

limpatela

interface ()

para i de 1 ate 3 faca

se (jog[i,1] = jog[i,2]) e (jog[i,2] = jog[i,3]) entao

fim <- 1

fimse

fimpara

para i de 1 ate 3 faca

se (jog[1,i] = jog[2,i]) e (jog[2,i] = jog[3,i]) entao

fim <- 1

fimse

fimpara

se (jog[1,1] = jog[2,2]) e (jog[2,2] = jog[3,3]) entao

fim <- 1

fimse

se (jog[1,3] = jog[2,2]) e (jog[2,2] = jog[3,1]) entao

fim <- 1

fimse

ate (fim = 1)

escreval ("Fim de Partida")

fimalgoritmo

Há possibilidades de melhora-lo ou estou no caminho certo?

KhaosDoctor · Janeiro 11, 2016

Muito bom! Meus parabéns pela sua força de vontade e persistência. Um jogo, de qualquer natureza, é sempre uma das coisas mais complexas de se fazer em programação.

Continue neste caminho e será um excelente programador.

Flávio Jussiê · Janeiro 11, 2016

Obrigado!

Imguvoss · Janeiro 12, 2016

Parabéns pelo seu Jogo da velha, para um iniciante ele está mais que excelente com disse meu amigo KhaosDoctor, jogos são uma parte bem complicada da programação, mas não posso deixar de deixar abaixo meu jogo da velha. Você pode usar ele para implementar seu código deixando ele mais funcional.

algoritmo "Jogodavelha"

var
   Numerodejogadas : inteiro
   Jogadavalortemp : inteiro
   Jogadavalor : inteiro
   Jogadoratual : inteiro
   Outrojogador : inteiro
   Contador : inteiro
   Jogadasvalidas : inteiro
   Jogadavalorretorno : inteiro
   _JogadaInvalida : inteiro
   Rodada: caractere
   Alguemganhou, turno : logico
   PosicaoX, PosicaoO, PontuacaoX, PontuacaoO, PontuacaoEmpate, ContadorColuna, ContadorLinha, Opcao : inteiro
   Tabuleiro: vetor[1..9] de inteiro
   Listajogadasvalidas:vetor[1..10] de inteiro
   JogadorX, JogadorO, Resultado, Ganhador, Crialinha : caractere
	Posicaovetor:vetor[1..3,1..3] de caractere
	Listras: vetor[1..8,1..6] de caractere
   

FUNCAO RetornaJogadaMaquina(jogadorEmQuestao : inteiro) : inteiro
var
   valorAtual : inteiro
inicio

      valorAtual <- jogadorEmQuestao
      jogadaValorRetorno <- 0

      se (tabuleiro[7] + tabuleiro[8] + tabuleiro[9]) = (2 * valorAtual) entao
         se tabuleiro[7] = 0 entao
            jogadaValorRetorno <- 7
         senao
              se tabuleiro[8] = 0 entao
                 jogadaValorRetorno <- 8
              senao
                   jogadaValorRetorno <- 9
              fimSe
         fimSe
      fimSe

      se (tabuleiro[4] + tabuleiro[5] + tabuleiro[6]) = (2 * valorAtual) entao
         se tabuleiro[4] = 0 entao
            jogadaValorRetorno <- 4
         senao
              se tabuleiro[5] = 0 entao
                 jogadaValorRetorno <- 5
              senao
                   jogadaValorRetorno <- 6
              fimSe
         fimSe
      fimSe

      se (tabuleiro[1] + tabuleiro[2] + tabuleiro[3]) = (2 * valorAtual) entao
         se tabuleiro[1] = 0 entao
            jogadaValorRetorno <- 1
         senao
              se tabuleiro[2] = 0 entao
                 jogadaValorRetorno <- 2
              senao
                   jogadaValorRetorno <- 3
              fimSe
         fimSe
      fimSe

      se (tabuleiro[7] + tabuleiro[4] + tabuleiro[1]) = (2 * valorAtual) entao
         se tabuleiro[7] = 0 entao
            jogadaValorRetorno <- 7
         senao
              se tabuleiro[4] = 0 entao
                 jogadaValorRetorno <- 4
              senao
                   jogadaValorRetorno <- 1
              fimSe
         fimSe
      fimSe

      se (tabuleiro[8] + tabuleiro[5] + tabuleiro[2]) = (2 * valorAtual) entao
         se tabuleiro[8] = 0 entao
            jogadaValorRetorno <- 8
         senao
              se tabuleiro[5] = 0 entao
                 jogadaValorRetorno <- 5
              senao
                   jogadaValorRetorno <- 2
              fimSe
         fimSe
      fimSe

      se (tabuleiro[9] + tabuleiro[6] + tabuleiro[3]) = (2 * valorAtual) entao
         se tabuleiro[9] = 0 entao
            jogadaValorRetorno <- 9
         senao
              se tabuleiro[6] = 0 entao
                 jogadaValorRetorno <- 6
              senao
                   jogadaValorRetorno <- 3
              fimSe
         fimSe
      fimSe

      se (tabuleiro[7] + tabuleiro[5] + tabuleiro[3]) = (2 * valorAtual) entao
         se tabuleiro[7] = 0 entao
            retorne 7
         senao
              se tabuleiro[5] = 0 entao
                 jogadaValorRetorno <- 5
              senao
                   jogadaValorRetorno <- 3
              fimSe
         fimSe
      fimSe

      se (tabuleiro[9] + tabuleiro[5] + tabuleiro[1]) = (2 * valorAtual) entao
         se tabuleiro[9] = 0 entao
            jogadaValorRetorno <- 9
         senao
              se tabuleiro[5] = 0 entao
                 jogadaValorRetorno <- 5
              senao
                   jogadaValorRetorno <- 1
              fimSe
         fimSe
      fimSe
      
      se jogadaValorRetorno <> 0 entao
         retorne jogadaValorRetorno
      senao
         retorne _jogadaInvalida
      fimSe
      
fimfuncao

//Decide a melhor jogada para a máquina
funcao JogadaDaMaquina() : inteiro
inicio

      jogadaValor <- 0
      //Se não existir mais jogadas retorna invalido
      se numeroDeJogadas = 9 entao
         jogadaValor <- -1
         retorne jogadaValor
      fimSe
      
      //Se ouver alguma jogada que possa te fazer ganhar, jogue!
      jogadaValorTemp <- RetornaJogadaMaquina(jogadorAtual)
      se jogadaValorTemp <> _jogadaInvalida entao
         jogadaValor <- jogadaValorTemp
         //retorne jogadaValor
      fimSe
      
      //Caso exita alguma jogada que não te faça perder, jogue!
      outroJogador <- RetornaOutroJogador(jogadorAtual)
      jogadaValorTemp <- RetornaJogadaMaquina(outroJogador)
      se (jogadaValorTemp <> _jogadaInvalida) e (jogadaValor = 0) entao
         jogadaValor <- jogadaValorTemp
         retorne jogadaValor
      fimSe

      //Tenta prevenir a vitoria do adversário (procura montar duas vitorias ao mesmo tempo)
      se (numeroDeJogadas = 3) e (jogadaValor = 0) entao
         se ((tabuleiro[1] * tabuleiro[9]) = 1) ou ((tabuleiro[3] * tabuleiro[7]) = 1) e (tabuleiro[5] <> 0)
            jogadaValor <- 1
            retorne jogadaValor
         fimSe
         
         se ((tabuleiro[2] * tabuleiro[9]) = 1) ou ((tabuleiro[1] * tabuleiro[6]) = 1) ou ((tabuleiro[2] * tabuleiro[6]) = 1) e (tabuleiro[5] <> 0)
            jogadaValor <- 2
            retorne jogadaValor
         fimSe
      fimSe
         
         //Tenta jogar no meio ou nas diagonais, maior chance de vitoria
      se (numeroDeJogadas <= 2) e (jogadaValor = 0) entao
         se tabuleiro[5] = 0 entao
            jogadaValor <- 5
         senao
            se tabuleiro[1] = 0 entao
               jogadaValor <- 1
            senao
               jogadaValor <- 8
            fimSe
         fimSe
      senao
           se jogadaValor = 0 entao
              jogadaValor <- _jogadaInvalida
              se tabuleiro[5] = 0 entao
                 jogadaValor <- 5
              senao
                 se tabuleiro[7] = 0 entao
                    jogadaValor <- 7
                 senao
                      se tabuleiro[9] = 0 entao
                         jogadaValor <- 9
                      senao
                           se tabuleiro[1] = 0 entao
                              jogadaValor <- 1
                           senao
                              se tabuleiro[3] = 0 entao
                                 jogadaValor <- 3
                              fimSe
                           fimSe
                      fimSe
                 fimSe
              fimSe
              se jogadaValor <> _jogadaInvalida entao
                 retorne jogadaValor
              fimSe
           fimSe
      fimSe
      
      PupulaListaDeJogadasValidas()
      jogadasValidas <- ListaJogadasValidas[1]
      
      //Se apenas restar uma jogada, jogue a primeira
      se (jogadasValidas = 1) entao
         jogadaValor <- ListaJogadasValidas[2]
         retorne jogadaValor
      fimSe
      
      //Se Nenhuma das regras não forem  atendidas, jogue a primeira jogada
      se jogadaValor <> 0 entao
         retorne jogadaValor
      senao
         jogadasValidas <- ListaJogadasValidas[2]
         retorne jogadasValidas
      fimSe
      
fimfuncao


//Popula o array "jogadasValdas" com uma lista de jogadas válidas
procedimento PupulaListaDeJogadasValidas
inicio

      //limpa variável
      para contador de 1 ate 10 faca
           ListaJogadasValidas[contador] <- 0
      fimPara

      //Preenche a variável
      ListaJogadasValidas[1] <- 0
      para contador de 1 ate 9 faca
           se tabuleiro[contador] = 0 entao
              ListaJogadasValidas[1] <- ListaJogadasValidas[1] + 1
              ListaJogadasValidas[ListaJogadasValidas[1] + 1] <- contador
           fimSe
      fimPara
      
fimProcedimento


//Retorna o valor do outro jogador
funcao RetornaOutroJogador(jogador:inteiro) : inteiro
inicio
      se jogador = -1 entao
         retorne 1
      senao
           retorne -1
      fimSe
fimfuncao

//Cabeçalho do jogo
procedimento  Cabecalho
   inicio
 	escreval("**********************************************************************************")
	escreval("*			      JOGO DA VELHA                                      *")
	escreval("**********************************************************************************")
	escreval("")
	escreval("")
fimprocedimento

//limpa o array do jogo
procedimento limparVariaveis
	inicio
	posicaoVetor[1,1] <- " "
	posicaoVetor[1,2] <- " "
	posicaoVetor[1,3] <- " "
	posicaoVetor[2,1] <- " "
	posicaoVetor[2,2] <- " "
	posicaoVetor[2,3] <- " "
	posicaoVetor[3,1] <- " "
	posicaoVetor[3,2] <- " "
	posicaoVetor[3,3] <- " "
	
	para contador de 1 ate 9 faca
	     tabuleiro[contador] <- 0
	fimPara
fimprocedimento

//Exibe o tabuleiro do jogo na tela
procedimento ExibirTabuleiro
   inicio
	escreval(" ",listras[7,1]," ",listras[4,1],"    |    ",listras[5,1],"    |   ",listras[6,1]," ",listras[8,1]," ")
	escreval(" ",listras[1,1]," ",posicaoVetor[1,1]," ",listras[1,2],"  | ",listras[1,3],"  ",posicaoVetor[1,2],"  ",listras[1,4]," | ",listras[1,5]," ",posicaoVetor[1,3]," ",listras[1,6]," ")
	escreval("   ",listras[4,2],"  ",listras[7,2]," |    ",listras[5,2],"    | ",listras[8,2]," ",listras[6,2],"   ")
	escreval("--------+---------+-------")
	escreval("   ",listras[4,3],"    | ",listras[7,3],"  ",listras[5,3],"  ",listras[8,3]," |   ",listras[6,3],"   ")
	escreval(" ",listras[2,1]," ",posicaoVetor[2,1]," ",listras[2,2],"  | ",listras[2,3],"  ",posicaoVetor[2,2],"  ",listras[2,4]," | ",listras[2,5]," ",posicaoVetor[2,3]," ",listras[2,6]," ")
	escreval("   ",listras[4,4],"    | ",listras[8,4],"  ",listras[5,4],"  ",listras[7,4]," |   ",listras[6,4],"   ")
	escreval("--------+---------+-------")
	escreval("   ",listras[4,5],"  ",listras[8,5]," |    ",listras[5,5],"    | ",listras[7,5]," ",listras[6,5],"   ")
	escreval(" ",listras[3,1]," ",posicaoVetor[3,1]," ",listras[3,2],"  | ",listras[3,3],"  ",posicaoVetor[3,2],"  ",listras[3,4]," | ",listras[3,5]," ",posicaoVetor[3,3]," ",listras[3,6]," ")
	escreval(" ",listras[8,6]," ",listras[4,6],"    |    ",listras[5,6],"    |   ",listras[6,6]," ",listras[7,6]," ")
	escreval("")
	escreval("")

fimprocedimento

//Cria uma linha setando a coluna ou linha ganhadora
funcao CriaLinhaGanhador(char:caractere;linha:inteiro) : caractere
inicio
	
	se linha = 0 entao
		para contadorColuna de 1 ate 8 faca
			para contadorLinha de 1 ate 6 faca
				listras[contadorColuna,contadorLinha] <- " "
			fimPara
		fimPara
	senao
		para contadorLinha de 1 ate 6 faca
			listras[linha,contadorLinha] <- char
		fimPara
	fimSe

fimfuncao

//Verifica se ouve algum ganhador.
procedimento VerificaGanhador
   inicio
		se  (posicaoVetor[1,1] = "X") e (posicaoVetor[1,2] = "X") e (posicaoVetor[1,3] = "X") entao
		ganhador <- jogadorX
		pontuacaoX <- pontuacaoX + 1
		criaLinha <- CriaLinhaGanhador("°",1)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[1,1] = "X") e (posicaoVetor[2,2] = "X") e (posicaoVetor[3,3] = "X") entao
		ganhador <- jogadorX
		pontuacaoX <- pontuacaoX + 1
		criaLinha <- CriaLinhaGanhador("°",7)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[1,1] = "X") e (posicaoVetor[2,1] = "X") e (posicaoVetor[3,1] = "X") entao
		ganhador <- jogadorX
		pontuacaoX <- pontuacaoX + 1
		criaLinha <- CriaLinhaGanhador("°",4)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[1,2] = "X") e (posicaoVetor[2,2] = "X") e (posicaoVetor[3,2] = "X") entao
		ganhador <- jogadorX
		pontuacaoX <- pontuacaoX + 1
		criaLinha <- CriaLinhaGanhador("°",5)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[2,1] = "X") e (posicaoVetor[2,2] = "X") e (posicaoVetor[2,3] = "X") entao
		ganhador <- jogadorX
		pontuacaoX <- pontuacaoX + 1
		criaLinha <- CriaLinhaGanhador("°",2)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[3,1] = "X") e (posicaoVetor[3,2] = "X") e (posicaoVetor[3,3] = "X") entao
		ganhador <- jogadorX
		pontuacaoX <- pontuacaoX + 1
		criaLinha <- CriaLinhaGanhador("°",3)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[3,1] = "X") e (posicaoVetor[2,2] = "X") e (posicaoVetor[1,3] = "X") entao
		ganhador <- jogadorX
		pontuacaoX <- pontuacaoX + 1
		criaLinha <- CriaLinhaGanhador("°",8)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[1,3] = "X") e (posicaoVetor[2,3] = "X") e (posicaoVetor[3,3] = "X") entao
		ganhador <- jogadorX
		pontuacaoX <- pontuacaoX + 1
		criaLinha <- CriaLinhaGanhador("°",6)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[1,1] = "O") e (posicaoVetor[1,2] = "O") e (posicaoVetor[1,3] = "O") entao
		ganhador <- jogadorO
		pontuacaoO <- pontuacaoO + 1
		criaLinha <- CriaLinhaGanhador("°",1)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[1,1] = "O") e (posicaoVetor[2,2] = "O") e (posicaoVetor[3,3] = "O") entao
		ganhador <- jogadorO
		pontuacaoO <- pontuacaoO + 1
		criaLinha <- CriaLinhaGanhador("°",7)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[1,1] = "O") e (posicaoVetor[2,1] = "O") e (posicaoVetor[3,1] = "O") entao
		ganhador <- jogadorO
		pontuacaoO <- pontuacaoO + 1
		criaLinha <- CriaLinhaGanhador("°",4)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[1,2] = "O") e (posicaoVetor[2,2] = "O") e (posicaoVetor[3,2] = "O") entao
		ganhador <- jogadorO
		pontuacaoO <- pontuacaoO + 1
		criaLinha <- CriaLinhaGanhador("°",5)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[2,1] = "O") e (posicaoVetor[2,2] = "O") e (posicaoVetor[2,3] = "O") entao
		ganhador <- jogadorO
		pontuacaoO <- pontuacaoO + 1
		criaLinha <- CriaLinhaGanhador("°",2)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[3,1] = "O") e (posicaoVetor[3,2] = "O") e (posicaoVetor[3,3] = "O") entao
		ganhador <- jogadorO
		pontuacaoO <- pontuacaoO + 1
		criaLinha <- CriaLinhaGanhador("°",3)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[3,1] = "O") e (posicaoVetor[2,2] = "O") e (posicaoVetor[1,3] = "O") entao
		ganhador <- jogadorO
		pontuacaoO <- pontuacaoO + 1
		criaLinha <- CriaLinhaGanhador("°",8)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[1,3] = "O") e (posicaoVetor[2,3] = "O") e (posicaoVetor[3,3] = "O") entao
		ganhador <- jogadorO
		pontuacaoO <- pontuacaoO + 1
		criaLinha <- CriaLinhaGanhador("°",6)
		alguemGanhou <- verdadeiro
		senao
		se (posicaoVetor[1,1] <> " ") e (posicaoVetor[1,2] <> " ") e (posicaoVetor[1,3] <> " ") e (posicaoVetor[2,1] <> " ") e (posicaoVetor[2,2] <> " ") e (posicaoVetor[2,3] <> " ")e (posicaoVetor[3,1] <> " ") e (posicaoVetor[3,2] <> " ") e (posicaoVetor[3,3] <> " ") entao
		 ganhador <- "Empate"
		 pontuacaoEmpate <- pontuacaoEmpate + 1
		 alguemGanhou <- verdadeiro
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
fimprocedimento


//Apresenta mensagem de Parabens ou empate.
procedimento Parabens
    inicio
    Cabecalho()
	ExibirTabuleiro()
	
    se ganhador <> "Empate" entao

       escreval("                             PARABENS ",maiusc(ganhador))
       escreval("                            Você foi o vencedor!!")
       escreval("")
       escreval("")
       escreval("")

       escreval("Precione ENTER para uma nova rodada: ")

       leia(rodada)
	
	  alguemGanhou <- falso
	  limparVariaveis()

    senao
       escreval("                                 OPS!!!!!")
       escreval("                               Deu Velha!")
       escreval("")
       escreval("")
       escreval("")

       escreval("Precione ENTER para uma nova rodada: ")
       leia(rodada)

	  alguemGanhou <- falso
	  limparVariaveis()


    fimSe

fimprocedimento

//Marca na variável do tabuleiro a letra do jogador
funcao MarcarPosicao(posicaoPeca:inteiro;tipoDeCaractere:caractere) : caractere
	inicio
	
	se posicaoPeca > 9 entao
		retorne "invalido"
	fimSe
	
	escolha posicaoPeca
		caso 7
			se posicaoVetor[1,1] = " " entao
				posicaoVetor[1,1] <- tipoDeCaractere
				tabuleiro[7] <- jogadorAtual
				retorne "ok"
			senao
				retorne "ocupado"
			fimSe
		caso 8
			se posicaoVetor[1,2] = " "  entao
				posicaoVetor[1,2] <- tipoDeCaractere
				tabuleiro[8] <- jogadorAtual
				retorne "ok"
			senao
				retorne "ocupado"
			fimSe
		caso 9
			se posicaoVetor[1,3] = " " entao
				posicaoVetor[1,3] <- tipoDeCaractere
				tabuleiro[9] <- jogadorAtual
				retorne "ok"
			senao
				retorne "ocupado"
			fimSe
		caso 4
			se posicaoVetor[2,1] = " " entao
				posicaoVetor[2,1] <- tipoDeCaractere
				tabuleiro[4] <- jogadorAtual
				retorne "ok"
			senao
				retorne "ocupado"
			fimSe
		caso 5
			se posicaoVetor[2,2] = " " entao
				posicaoVetor[2,2] <- tipoDeCaractere
				tabuleiro[5] <- jogadorAtual
				retorne "ok"
			senao
				retorne "ocupado"
			fimSe
		caso 6
			se posicaoVetor[2,3] = " " entao
				posicaoVetor[2,3] <- tipoDeCaractere
				tabuleiro[6] <- jogadorAtual
				retorne "ok"
			senao
				retorne "ocupado"
			fimSe
		caso 1
			se posicaoVetor[3,1] = " " entao
				posicaoVetor[3,1] <- tipoDeCaractere
				tabuleiro[1] <- jogadorAtual
				retorne "ok"
			senao
				retorne "ocupado"
			fimSe
		caso 2
			se posicaoVetor[3,2] = " " entao
				posicaoVetor[3,2] <- tipoDeCaractere
				tabuleiro[2] <- jogadorAtual
				 retorne "ok"
			senao
				retorne "ocupado"
			fimSe
		caso 3
			se posicaoVetor[3,3] = " " entao
				posicaoVetor[3,3] <- tipoDeCaractere
				tabuleiro[3] <- jogadorAtual
				retorne "ok"
			senao
				retorne "ocupado"
			fimSe
	fimescolha

fimfuncao

//Exibe as pontuações dos jogadores
procedimento ExibirPontuacaoJogadores
inicio
      escreval("  Pontuação:")
      escreval("       ",jogadorX,": ",pontuacaoX)
      escreval("       ",jogadorO,": ",pontuacaoO)
      escreval("       Empate: ",pontuacaoEmpate)
      escreval("")
fimprocedimento


inicio

   _jogadaInvalida <- -1
   Cabecalho()
	
	escreval("Selecione um Jogo:")
	escreval("")
	escreval("1 - Um Jogador")
	escreval("2 - Dois Jogadores")
	escreval("3 - Sair")
	escreval("")
	escreva("Opção desejada: ")
	leia(opcao)
	
	limpatela
	Cabecalho()
	
	//Etapa para obter as informações dos jogadores
	se opcao = 1 entao
	   escreva("Digite o nome do jogador(X): ")
   	leia(jogadorX)
   	jogadorO <- "Maquina"
	fimSe
	
	se opcao = 2 entao
   	escreva("Digite o nome do primeiro jogador(X): ")
   	leia(jogadorX)
   	escreva("Digite o nome do segundo jogador(O): ")
   	leia(jogadorO)
	fimSe
	
	se opcao = 3 entao
	   fimalgoritmo
	fimSe
	//limpa a tela do jogo
	limpatela
	limparVariaveis()
	
	alguemGanhou <- falso
	jogadorAtual <- -1
	turno <- verdadeiro
	resultado <- ""
	pontuacaoO <- 0
	pontuacaoX <- 0
	criaLinha <- CriaLinhaGanhador(" ",0)
	
	//laço para a repetição para o display do jogo
	enquanto alguemGanhou = falso faca
	   numeroDeJogadas <- numeroDeJogadas + 1
	   limpatela
	   criaLinha <- CriaLinhaGanhador(" ",0)
		Cabecalho()
		ExibirTabuleiro()
		ExibirPontuacaoJogadores()
		
		se (jogadorAtual = -1) entao
			escreval("Agora é sua vez ",maiusc(jogadorX))
			escreva("Digite um número de 1 a 9 de acordo com as casas: ")
			leia(posicaoX)
			resultado <- MarcarPosicao(posicaoX,"X")
			//tabuleiro[posicaoX] <- -1
			se resultado = "ocupado" entao
			    escreval("A posição já esta ocupada, escolha outa.")
			senao
			    jogadorAtual <- 1
			fimSe
			resultado <- ""
			ganhador <- ""
		senao
   			se opcao = 1 entao
               escreval("Agora é sua vez ",maiusc(jogadorO))
      			//escreva("Digite um número de 1 a 9 de acordo com as casas: ")
               //leia(posicaoO)
               posicaoO <- JogadaDaMaquina()
      			resultado <- MarcarPosicao(posicaoO,"O")
      			//tabuleiro[posicaoO] <- 1
   			senao
   			   escreval("Agora é sua vez ",maiusc(jogadorO))
      			escreva("Digite um número de 1 a 9 de acordo com as casas: ")
               leia(posicaoO)
      			resultado <- MarcarPosicao(posicaoO,"O")
   			fimSe
   			se resultado = "ocupado" entao
   			    escreval("A posição já esta ocupada, escolha outa.")
   			senao
   			    jogadorAtual <- -1
   			fimSe
   			resultado <- ""
   			ganhador <- ""
		fimSe
		
      limpatela
      VerificaGanhador()

      se alguemGanhou = verdadeiro entao
         Parabens()
      fimSe

	fimenquanto

      
fimalgoritmo

Flávio Jussiê · Janeiro 12, 2016

Obrigado Imguvoss e KhaosDoctor, sei que ainda terei um caminho árduo pela frente. Sou graduado em Educação Física, mas minha paixão são as tecnologias, estou disposto a enfrentar esse caminho. Em breve, estarei voltando a faculdade para mais um desafio. Obrigado pelo isentivo.

Yuri Andrei da Silva · Abril 15, 2019

Em 12/01/2016 at 14:34, Imguvoss disse:

Parabéns pelo seu Jogo da velha, para um iniciante ele está mais que excelente com disse meu amigo KhaosDoctor, jogos são uma parte bem complicada da programação, mas não posso deixar de deixar abaixo meu jogo da velha. Você pode usar ele para implementar seu código deixando ele mais funcional.


algoritmo "Jogodavelha"

var
   Numerodejogadas : inteiro
   Jogadavalortemp : inteiro
   Jogadavalor : inteiro
   Jogadoratual : inteiro
   Outrojogador : inteiro
   Contador : inteiro
   Jogadasvalidas : inteiro
   Jogadavalorretorno : inteiro
   _JogadaInvalida : inteiro
   Rodada: caractere
   Alguemganhou, turno : logico
   PosicaoX, PosicaoO, PontuacaoX, PontuacaoO, PontuacaoEmpate, ContadorColuna, ContadorLinha, Opcao : inteiro
   Tabuleiro: vetor[1..9] de inteiro
   Listajogadasvalidas:vetor[1..10] de inteiro
   JogadorX, JogadorO, Resultado, Ganhador, Crialinha : caractere
	Posicaovetor:vetor[1..3,1..3] de caractere
	Listras: vetor[1..8,1..6] de caractere
   

FUNCAO RetornaJogadaMaquina(jogadorEmQuestao : inteiro) : inteiro
var
   valorAtual : inteiro
inicio

      valorAtual <- jogadorEmQuestao
      jogadaValorRetorno <- 0

      se (tabuleiro[7] + tabuleiro[8] + tabuleiro[9]) = (2 * valorAtual) entao
         se tabuleiro[7] = 0 entao
            jogadaValorRetorno <- 7
         senao
              se tabuleiro[8] = 0 entao
                 jogadaValorRetorno <- 8
              senao
                   jogadaValorRetorno <- 9
              fimSe
         fimSe
      fimSe

      se (tabuleiro[4] + tabuleiro[5] + tabuleiro[6]) = (2 * valorAtual) entao
         se tabuleiro[4] = 0 entao
            jogadaValorRetorno <- 4
         senao
              se tabuleiro[5] = 0 entao
                 jogadaValorRetorno <- 5
              senao
                   jogadaValorRetorno <- 6
              fimSe
         fimSe
      fimSe

      se (tabuleiro[1] + tabuleiro[2] + tabuleiro[3]) = (2 * valorAtual) entao
         se tabuleiro[1] = 0 entao
            jogadaValorRetorno <- 1
         senao
              se tabuleiro[2] = 0 entao
                 jogadaValorRetorno <- 2
              senao
                   jogadaValorRetorno <- 3
              fimSe
         fimSe
      fimSe

      se (tabuleiro[7] + tabuleiro[4] + tabuleiro[1]) = (2 * valorAtual) entao
         se tabuleiro[7] = 0 entao
            jogadaValorRetorno <- 7
         senao
              se tabuleiro[4] = 0 entao
                 jogadaValorRetorno <- 4
              senao
                   jogadaValorRetorno <- 1
              fimSe
         fimSe
      fimSe

      se (tabuleiro[8] + tabuleiro[5] + tabuleiro[2]) = (2 * valorAtual) entao
         se tabuleiro[8] = 0 entao
            jogadaValorRetorno <- 8
         senao
              se tabuleiro[5] = 0 entao
                 jogadaValorRetorno <- 5
              senao
                   jogadaValorRetorno <- 2
              fimSe
         fimSe
      fimSe

      se (tabuleiro[9] + tabuleiro[6] + tabuleiro[3]) = (2 * valorAtual) entao
         se tabuleiro[9] = 0 entao
            jogadaValorRetorno <- 9
         senao
              se tabuleiro[6] = 0 entao
                 jogadaValorRetorno <- 6
              senao
                   jogadaValorRetorno <- 3
              fimSe
         fimSe
      fimSe

      se (tabuleiro[7] + tabuleiro[5] + tabuleiro[3]) = (2 * valorAtual) entao
         se tabuleiro[7] = 0 entao
            retorne 7
         senao
              se tabuleiro[5] = 0 entao
                 jogadaValorRetorno <- 5
              senao
                   jogadaValorRetorno <- 3
              fimSe
         fimSe
      fimSe

      se (tabuleiro[9] + tabuleiro[5] + tabuleiro[1]) = (2 * valorAtual) entao
         se tabuleiro[9] = 0 entao
            jogadaValorRetorno <- 9
         senao
              se tabuleiro[5] = 0 entao
                 jogadaValorRetorno <- 5
              senao
                   jogadaValorRetorno <- 1
              fimSe
         fimSe
      fimSe
      
      se jogadaValorRetorno <> 0 entao
         retorne jogadaValorRetorno
      senao
         retorne _jogadaInvalida
      fimSe
      
fimfuncao

//Decide a melhor jogada para a máquina
funcao JogadaDaMaquina() : inteiro
inicio

      jogadaValor <- 0
      //Se não existir mais jogadas retorna invalido
      se numeroDeJogadas = 9 entao
         jogadaValor <- -1
         retorne jogadaValor
      fimSe
      
      //Se ouver alguma jogada que possa te fazer ganhar, jogue!
      jogadaValorTemp <- RetornaJogadaMaquina(jogadorAtual)
      se jogadaValorTemp <> _jogadaInvalida entao
         jogadaValor <- jogadaValorTemp
         //retorne jogadaValor
      fimSe
      
      //Caso exita alguma jogada que não te faça perder, jogue!
      outroJogador <- RetornaOutroJogador(jogadorAtual)
      jogadaValorTemp <- RetornaJogadaMaquina(outroJogador)
      se (jogadaValorTemp <> _jogadaInvalida) e (jogadaValor = 0) entao
         jogadaValor <- jogadaValorTemp
         retorne jogadaValor
      fimSe

      //Tenta prevenir a vitoria do adversário (procura montar duas vitorias ao mesmo tempo)
      se (numeroDeJogadas = 3) e (jogadaValor = 0) entao
         se ((tabuleiro[1] * tabuleiro[9]) = 1) ou ((tabuleiro[3] * tabuleiro[7]) = 1) e (tabuleiro[5] <> 0)
            jogadaValor <- 1
            retorne jogadaValor
         fimSe
         
         se ((tabuleiro[2] * tabuleiro[9]) = 1) ou ((tabuleiro[1] * tabuleiro[6]) = 1) ou ((tabuleiro[2] * tabuleiro[6]) = 1) e (tabuleiro[5] <> 0)
            jogadaValor <- 2
            retorne jogadaValor
         fimSe
      fimSe
         
         //Tenta jogar no meio ou nas diagonais, maior chance de vitoria
      se (numeroDeJogadas <= 2) e (jogadaValor = 0) entao
         se tabuleiro[5] = 0 entao
            jogadaValor <- 5
         senao
            se tabuleiro[1] = 0 entao
               jogadaValor <- 1
            senao
               jogadaValor <- 8
            fimSe
         fimSe
      senao
           se jogadaValor = 0 entao
              jogadaValor <- _jogadaInvalida
              se tabuleiro[5] = 0 entao
                 jogadaValor <- 5
              senao
                 se tabuleiro[7] = 0 entao
                    jogadaValor <- 7
                 senao
                      se tabuleiro[9] = 0 entao
                         jogadaValor <- 9
                      senao
                           se tabuleiro[1] = 0 entao
                              jogadaValor <- 1
                           senao
                              se tabuleiro[3] = 0 entao
                                 jogadaValor <- 3
                              fimSe
                           fimSe
                      fimSe
                 fimSe
              fimSe
              se jogadaValor <> _jogadaInvalida entao
                 retorne jogadaValor
              fimSe
           fimSe
      fimSe
      
      PupulaListaDeJogadasValidas()
      jogadasValidas <- ListaJogadasValidas[1]
      
      //Se apenas restar uma jogada, jogue a primeira
      se (jogadasValidas = 1) entao
         jogadaValor <- ListaJogadasValidas[2]
         retorne jogadaValor
      fimSe
      
      //Se Nenhuma das regras não forem  atendidas, jogue a primeira jogada
      se jogadaValor <> 0 entao
         retorne jogadaValor
      senao
         jogadasValidas <- ListaJogadasValidas[2]
         retorne jogadasValidas
      fimSe
      
fimfuncao


//Popula o array "jogadasValdas" com uma lista de jogadas válidas
procedimento PupulaListaDeJogadasValidas
inicio

      //limpa variável
      para contador de 1 ate 10 faca
           ListaJogadasValidas[contador] <- 0
      fimPara

      //Preenche a variável
      ListaJogadasValidas[1] <- 0
      para contador de 1 ate 9 faca
           se tabuleiro[contador] = 0 entao
              ListaJogadasValidas[1] <- ListaJogadasValidas[1] + 1
              ListaJogadasValidas[ListaJogadasValidas[1] + 1] <- contador
           fimSe
      fimPara
      
fimProcedimento


//Retorna o valor do outro jogador
funcao RetornaOutroJogador(jogador:inteiro) : inteiro
inicio
      se jogador = -1 entao
         retorne 1
      senao
           retorne -1
      fimSe
fimfuncao

//Cabeçalho do jogo
procedimento  Cabecalho
   inicio
 	escreval("**********************************************************************************")
	escreval("*			      JOGO DA VELHA                                      *")
	escreval("**********************************************************************************")
	escreval("")
	escreval("")
fimprocedimento

//limpa o array do jogo
procedimento limparVariaveis
	inicio
	posicaoVetor[1,1] <- " "
	posicaoVetor[1,2] <- " "
	posicaoVetor[1,3] <- " "
	posicaoVetor[2,1] <- " "
	posicaoVetor[2,2] <- " "
	posicaoVetor[2,3] <- " "
	posicaoVetor[3,1] <- " "
	posicaoVetor[3,2] <- " "
	posicaoVetor[3,3] <- " "
	
	para contador de 1 ate 9 faca
	     tabuleiro[contador] <- 0
	fimPara
fimprocedimento

//Exibe o tabuleiro do jogo na tela
procedimento ExibirTabuleiro
   inicio
	escreval(" ",listras[7,1]," ",listras[4,1],"    |    ",listras[5,1],"    |   ",listras[6,1]," ",listras[8,1]," ")
	escreval(" ",listras[1,1]," ",posicaoVetor[1,1]," ",listras[1,2],"  | ",listras[1,3],"  ",posicaoVetor[1,2],"  ",listras[1,4]," | ",listras[1,5]," ",posicaoVetor[1,3]," ",listras[1,6]," ")
	escreval("   ",listras[4,2],"  ",listras[7,2]," |    ",listras[5,2],"    | ",listras[8,2]," ",listras[6,2],"   ")
	escreval("--------+---------+-------")
	escreval("   ",listras[4,3],"    | ",listras[7,3],"  ",listras[5,3],"  ",listras[8,3]," |   ",listras[6,3],"   ")
	escreval(" ",listras[2,1]," ",posicaoVetor[2,1]," ",listras[2,2],"  | ",listras[2,3],"  ",posicaoVetor[2,2],"  ",listras[2,4]," | ",listras[2,5]," ",posicaoVetor[2,3]," ",listras[2,6]," ")
	escreval("   ",listras[4,4],"    | ",listras[8,4],"  ",listras[5,4],"  ",listras[7,4]," |   ",listras[6,4],"   ")
	escreval("--------+---------+-------")
	escreval("   ",listras[4,5],"  ",listras[8,5]," |    ",listras[5,5],"    | ",listras[7,5]," ",listras[6,5],"   ")
	escreval(" ",listras[3,1]," ",posicaoVetor[3,1]," ",listras[3,2],"  | ",listras[3,3],"  ",posicaoVetor[3,2],"  ",listras[3,4]," | ",listras[3,5]," ",posicaoVetor[3,3]," ",listras[3,6]," ")
	escreval(" ",listras[8,6]," ",listras[4,6],"    |    ",listras[5,6],"    |   ",listras[6,6]," ",listras[7,6]," ")
	escreval("")
	escreval("")

fimprocedimento

//Cria uma linha setando a coluna ou linha ganhadora
funcao CriaLinhaGanhador(char:caractere;linha:inteiro) : caractere
inicio
	
	se linha = 0 entao
		para contadorColuna de 1 ate 8 faca
			para contadorLinha de 1 ate 6 faca
				listras[contadorColuna,contadorLinha] <- " "
			fimPara
		fimPara
	senao
		para contadorLinha de 1 ate 6 faca
			listras[linha,contadorLinha] <- char
		fimPara
	fimSe

fimfuncao

//Verifica se ouve algum ganhador.
procedimento VerificaGanhador
   inicio
		se  (posicaoVetor[1,1] = "X") e (posicaoVetor[1,2] = "X") e (posicaoVetor[1,3] = "X") entao
		ganhador <- jogadorX
		pontuacaoX <- pontuacaoX + 1
		criaLinha <- CriaLinhaGanhador("°",1)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[1,1] = "X") e (posicaoVetor[2,2] = "X") e (posicaoVetor[3,3] = "X") entao
		ganhador <- jogadorX
		pontuacaoX <- pontuacaoX + 1
		criaLinha <- CriaLinhaGanhador("°",7)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[1,1] = "X") e (posicaoVetor[2,1] = "X") e (posicaoVetor[3,1] = "X") entao
		ganhador <- jogadorX
		pontuacaoX <- pontuacaoX + 1
		criaLinha <- CriaLinhaGanhador("°",4)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[1,2] = "X") e (posicaoVetor[2,2] = "X") e (posicaoVetor[3,2] = "X") entao
		ganhador <- jogadorX
		pontuacaoX <- pontuacaoX + 1
		criaLinha <- CriaLinhaGanhador("°",5)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[2,1] = "X") e (posicaoVetor[2,2] = "X") e (posicaoVetor[2,3] = "X") entao
		ganhador <- jogadorX
		pontuacaoX <- pontuacaoX + 1
		criaLinha <- CriaLinhaGanhador("°",2)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[3,1] = "X") e (posicaoVetor[3,2] = "X") e (posicaoVetor[3,3] = "X") entao
		ganhador <- jogadorX
		pontuacaoX <- pontuacaoX + 1
		criaLinha <- CriaLinhaGanhador("°",3)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[3,1] = "X") e (posicaoVetor[2,2] = "X") e (posicaoVetor[1,3] = "X") entao
		ganhador <- jogadorX
		pontuacaoX <- pontuacaoX + 1
		criaLinha <- CriaLinhaGanhador("°",8)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[1,3] = "X") e (posicaoVetor[2,3] = "X") e (posicaoVetor[3,3] = "X") entao
		ganhador <- jogadorX
		pontuacaoX <- pontuacaoX + 1
		criaLinha <- CriaLinhaGanhador("°",6)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[1,1] = "O") e (posicaoVetor[1,2] = "O") e (posicaoVetor[1,3] = "O") entao
		ganhador <- jogadorO
		pontuacaoO <- pontuacaoO + 1
		criaLinha <- CriaLinhaGanhador("°",1)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[1,1] = "O") e (posicaoVetor[2,2] = "O") e (posicaoVetor[3,3] = "O") entao
		ganhador <- jogadorO
		pontuacaoO <- pontuacaoO + 1
		criaLinha <- CriaLinhaGanhador("°",7)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[1,1] = "O") e (posicaoVetor[2,1] = "O") e (posicaoVetor[3,1] = "O") entao
		ganhador <- jogadorO
		pontuacaoO <- pontuacaoO + 1
		criaLinha <- CriaLinhaGanhador("°",4)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[1,2] = "O") e (posicaoVetor[2,2] = "O") e (posicaoVetor[3,2] = "O") entao
		ganhador <- jogadorO
		pontuacaoO <- pontuacaoO + 1
		criaLinha <- CriaLinhaGanhador("°",5)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[2,1] = "O") e (posicaoVetor[2,2] = "O") e (posicaoVetor[2,3] = "O") entao
		ganhador <- jogadorO
		pontuacaoO <- pontuacaoO + 1
		criaLinha <- CriaLinhaGanhador("°",2)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[3,1] = "O") e (posicaoVetor[3,2] = "O") e (posicaoVetor[3,3] = "O") entao
		ganhador <- jogadorO
		pontuacaoO <- pontuacaoO + 1
		criaLinha <- CriaLinhaGanhador("°",3)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[3,1] = "O") e (posicaoVetor[2,2] = "O") e (posicaoVetor[1,3] = "O") entao
		ganhador <- jogadorO
		pontuacaoO <- pontuacaoO + 1
		criaLinha <- CriaLinhaGanhador("°",8)
		alguemGanhou <- verdadeiro
		senao
		se  (posicaoVetor[1,3] = "O") e (posicaoVetor[2,3] = "O") e (posicaoVetor[3,3] = "O") entao
		ganhador <- jogadorO
		pontuacaoO <- pontuacaoO + 1
		criaLinha <- CriaLinhaGanhador("°",6)
		alguemGanhou <- verdadeiro
		senao
		se (posicaoVetor[1,1] <> " ") e (posicaoVetor[1,2] <> " ") e (posicaoVetor[1,3] <> " ") e (posicaoVetor[2,1] <> " ") e (posicaoVetor[2,2] <> " ") e (posicaoVetor[2,3] <> " ")e (posicaoVetor[3,1] <> " ") e (posicaoVetor[3,2] <> " ") e (posicaoVetor[3,3] <> " ") entao
		 ganhador <- "Empate"
		 pontuacaoEmpate <- pontuacaoEmpate + 1
		 alguemGanhou <- verdadeiro
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
		fimSe
fimprocedimento


//Apresenta mensagem de Parabens ou empate.
procedimento Parabens
    inicio
    Cabecalho()
	ExibirTabuleiro()
	
    se ganhador <> "Empate" entao

       escreval("                             PARABENS ",maiusc(ganhador))
       escreval("                            Você foi o vencedor!!")
       escreval("")
       escreval("")
       escreval("")

       escreval("Precione ENTER para uma nova rodada: ")

       leia(rodada)
	
	  alguemGanhou <- falso
	  limparVariaveis()

    senao
       escreval("                                 OPS!!!!!")
       escreval("                               Deu Velha!")
       escreval("")
       escreval("")
       escreval("")

       escreval("Precione ENTER para uma nova rodada: ")
       leia(rodada)

	  alguemGanhou <- falso
	  limparVariaveis()


    fimSe

fimprocedimento

//Marca na variável do tabuleiro a letra do jogador
funcao MarcarPosicao(posicaoPeca:inteiro;tipoDeCaractere:caractere) : caractere
	inicio
	
	se posicaoPeca > 9 entao
		retorne "invalido"
	fimSe
	
	escolha posicaoPeca
		caso 7
			se posicaoVetor[1,1] = " " entao
				posicaoVetor[1,1] <- tipoDeCaractere
				tabuleiro[7] <- jogadorAtual
				retorne "ok"
			senao
				retorne "ocupado"
			fimSe
		caso 8
			se posicaoVetor[1,2] = " "  entao
				posicaoVetor[1,2] <- tipoDeCaractere
				tabuleiro[8] <- jogadorAtual
				retorne "ok"
			senao
				retorne "ocupado"
			fimSe
		caso 9
			se posicaoVetor[1,3] = " " entao
				posicaoVetor[1,3] <- tipoDeCaractere
				tabuleiro[9] <- jogadorAtual
				retorne "ok"
			senao
				retorne "ocupado"
			fimSe
		caso 4
			se posicaoVetor[2,1] = " " entao
				posicaoVetor[2,1] <- tipoDeCaractere
				tabuleiro[4] <- jogadorAtual
				retorne "ok"
			senao
				retorne "ocupado"
			fimSe
		caso 5
			se posicaoVetor[2,2] = " " entao
				posicaoVetor[2,2] <- tipoDeCaractere
				tabuleiro[5] <- jogadorAtual
				retorne "ok"
			senao
				retorne "ocupado"
			fimSe
		caso 6
			se posicaoVetor[2,3] = " " entao
				posicaoVetor[2,3] <- tipoDeCaractere
				tabuleiro[6] <- jogadorAtual
				retorne "ok"
			senao
				retorne "ocupado"
			fimSe
		caso 1
			se posicaoVetor[3,1] = " " entao
				posicaoVetor[3,1] <- tipoDeCaractere
				tabuleiro[1] <- jogadorAtual
				retorne "ok"
			senao
				retorne "ocupado"
			fimSe
		caso 2
			se posicaoVetor[3,2] = " " entao
				posicaoVetor[3,2] <- tipoDeCaractere
				tabuleiro[2] <- jogadorAtual
				 retorne "ok"
			senao
				retorne "ocupado"
			fimSe
		caso 3
			se posicaoVetor[3,3] = " " entao
				posicaoVetor[3,3] <- tipoDeCaractere
				tabuleiro[3] <- jogadorAtual
				retorne "ok"
			senao
				retorne "ocupado"
			fimSe
	fimescolha

fimfuncao

//Exibe as pontuações dos jogadores
procedimento ExibirPontuacaoJogadores
inicio
      escreval("  Pontuação:")
      escreval("       ",jogadorX,": ",pontuacaoX)
      escreval("       ",jogadorO,": ",pontuacaoO)
      escreval("       Empate: ",pontuacaoEmpate)
      escreval("")
fimprocedimento


inicio

   _jogadaInvalida <- -1
   Cabecalho()
	
	escreval("Selecione um Jogo:")
	escreval("")
	escreval("1 - Um Jogador")
	escreval("2 - Dois Jogadores")
	escreval("3 - Sair")
	escreval("")
	escreva("Opção desejada: ")
	leia(opcao)
	
	limpatela
	Cabecalho()
	
	//Etapa para obter as informações dos jogadores
	se opcao = 1 entao
	   escreva("Digite o nome do jogador(X): ")
   	leia(jogadorX)
   	jogadorO <- "Maquina"
	fimSe
	
	se opcao = 2 entao
   	escreva("Digite o nome do primeiro jogador(X): ")
   	leia(jogadorX)
   	escreva("Digite o nome do segundo jogador(O): ")
   	leia(jogadorO)
	fimSe
	
	se opcao = 3 entao
	   fimalgoritmo
	fimSe
	//limpa a tela do jogo
	limpatela
	limparVariaveis()
	
	alguemGanhou <- falso
	jogadorAtual <- -1
	turno <- verdadeiro
	resultado <- ""
	pontuacaoO <- 0
	pontuacaoX <- 0
	criaLinha <- CriaLinhaGanhador(" ",0)
	
	//laço para a repetição para o display do jogo
	enquanto alguemGanhou = falso faca
	   numeroDeJogadas <- numeroDeJogadas + 1
	   limpatela
	   criaLinha <- CriaLinhaGanhador(" ",0)
		Cabecalho()
		ExibirTabuleiro()
		ExibirPontuacaoJogadores()
		
		se (jogadorAtual = -1) entao
			escreval("Agora é sua vez ",maiusc(jogadorX))
			escreva("Digite um número de 1 a 9 de acordo com as casas: ")
			leia(posicaoX)
			resultado <- MarcarPosicao(posicaoX,"X")
			//tabuleiro[posicaoX] <- -1
			se resultado = "ocupado" entao
			    escreval("A posição já esta ocupada, escolha outa.")
			senao
			    jogadorAtual <- 1
			fimSe
			resultado <- ""
			ganhador <- ""
		senao
   			se opcao = 1 entao
               escreval("Agora é sua vez ",maiusc(jogadorO))
      			//escreva("Digite um número de 1 a 9 de acordo com as casas: ")
               //leia(posicaoO)
               posicaoO <- JogadaDaMaquina()
      			resultado <- MarcarPosicao(posicaoO,"O")
      			//tabuleiro[posicaoO] <- 1
   			senao
   			   escreval("Agora é sua vez ",maiusc(jogadorO))
      			escreva("Digite um número de 1 a 9 de acordo com as casas: ")
               leia(posicaoO)
      			resultado <- MarcarPosicao(posicaoO,"O")
   			fimSe
   			se resultado = "ocupado" entao
   			    escreval("A posição já esta ocupada, escolha outa.")
   			senao
   			    jogadorAtual <- -1
   			fimSe
   			resultado <- ""
   			ganhador <- ""
		fimSe
		
      limpatela
      VerificaGanhador()

      se alguemGanhou = verdadeiro entao
         Parabens()
      fimSe

	fimenquanto

      
fimalgoritmo

Curti o seu, mas meus professores querem uma validação que não seja fixa! Alguém saberia uma forma de fazer? Na diagonal pelo menos???

Yuri Andrei da Silva · Abril 15, 2019

Validação na diagonal, no jogo da velha, quem sabe fazer? Sem ser validação FIXA!!!!

Entrar

Arquivado

Jogo da Velha - Visualg

Recommended Posts

Flávio Jussiê 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

KhaosDoctor 242

Compartilhar este post

Link para o post

Compartilhar em outros sites

Flávio Jussiê 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Imguvoss 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Flávio Jussiê 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Yuri Andrei da Silva 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Yuri Andrei da Silva 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante