Jogo Da Velha, Visualg
Monografias: Jogo Da Velha, Visualg. Pesquise 861.000+ trabalhos acadêmicosPor: nicolasgnb • 26/8/2014 • 695 Palavras (3 Páginas) • 3.909 Visualizações
algoritmo "Jogo da Velha"
var
matriz_fundo:vetor[1..3,1..3] de caracter
nome1,nome2:caracter
opc,linha,coluna,cont,i,i2:inteiro
controle:logico
procedimento menu
inicio
escreval("###JOGO DA VELHA### POR: NÍCOLAS VILELA")
escreval("1) INICIAR")
escreval("2) SAIR")
escreva("ESCOLHA UMA OPÇÃO: ")
leia(opc)
escolha (opc)
caso 1
caso 2
outrocaso
escreval("ERRO 404: COMANDO NÃO ENCONTRADO.")
fimescolha
fimprocedimento
procedimento obter_nomes
inicio
escreva("Digite os nomes dos jogadores: ")
leia(nome1,nome2)
fimprocedimento
procedimento imprimir_matriz
var
i,i2:inteiro
inicio
escreva("Tabuleiro: ")
para i de 1 ate 3 faca
escreval(" ")
para i2 de 1 ate 3 faca
escreva("|",matriz_fundo[i,i2],"| ")
fimpara
fimpara
fimprocedimento
procedimento escolhaa_jogada
inicio
se (cont mod 2 = 0) entao
escreval(nome1," digite a linha e coluna da jogada: ")
leia(linha,coluna)
se (matriz_fundo[linha,coluna] <> " ") entao
escreval("Movimento invalido, tente novamente.")
senao
matriz_fundo[linha,coluna] <- "X"
cont <- cont+1
fimse
senao
escreval(nome2," digite a linha e coluna da jogada: ")
leia(linha,coluna)
se (matriz_fundo[linha,coluna] <> " ") entao
escreval("Movimento invalido, tente novamente.")
senao
matriz_fundo[linha,coluna] <- "O"
cont <- cont+1
fimse
fimse
fimprocedimento
procedimento confere_impate
inicio
se ((matriz_fundo[1,1] <> " ") e (matriz_fundo[1,2] <> " ") e (matriz_fundo[1,3] <> " ") e (matriz_fundo[2,1] <> " ") e (matriz_fundo[2,2] <> " ") e (matriz_fundo[2,3] <> " ") e (matriz_fundo[3,1] <> " ") e (matriz_fundo[3,2] <> " ") e (matriz_fundo[3,3] <> " ")) entao
escreval("Empate, SEUS IDIOTAS!")
controle <- FALSO
fimse
fimprocedimento
procedimento confere_ganhador
inicio
se ((matriz_fundo[1,1] = "X") e (matriz_fundo[1,2] = "X") e (matriz_fundo[1,3] = "X")) entao
escreval("Ganhador :",nome1)
controle <- FALSO
fimse
se ((matriz_fundo[2,1] = "X") e (matriz_fundo[2,2] = "X") e (matriz_fundo[2,3] = "X")) entao
escreval("Ganhador :",nome1)
controle <- FALSO
fimse
se ((matriz_fundo[3,1] = "X") e (matriz_fundo[3,2] = "X") e (matriz_fundo[3,3] = "X")) entao
escreval("Ganhador :",nome1)
controle <- FALSO
fimse
se ((matriz_fundo[1,2] = "X") e (matriz_fundo[2,2] = "X") e (matriz_fundo[3,2] = "X")) entao
escreval("Ganhador :",nome1)
controle <- FALSO
fimse
se ((matriz_fundo[1,3] = "X") e (matriz_fundo[2,3] = "X") e (matriz_fundo[3,3] = "X")) entao
escreval("Ganhador :",nome1)
controle <- FALSO
fimse
se ((matriz_fundo[1,1] = "X") e (matriz_fundo[2,1] = "X") e (matriz_fundo[3,1] = "X")) entao
escreval("Ganhador :",nome1)
controle
...