Jogo Da Velha em Portugol

Codigo jogo da velha em portugol:
algoritmo "jogodavelha"
var
gr: vetor [1..3,1..3] de inteiro
em: vetor [1..3,1..3] de inteiro
visual: vetor [1..3,1..3] de caractere
c, d, wc, es, f: inteiro
v, res: caractere
procedimento grade()
inicio
limpatela
escreval("+---+---+---+")
escreval("| ",visual[1,1],"| ",visual[1,2],"| ",visual[1,3],"|")
escreval("+---+---+---+")
escreval("+---+---+---+")
escreval("+---+---+---+")
escreval("vai jogar [",v,"] em qual posição?")
fimprocedimento
procedimento erro()
inicio
limpatela
escreval("+---+---+---+")
escreval("+---+---+---+")
escreval("+---+---+---+")

escreval("+---+---+---+")
escreval("esta casa ja está marcada, ou, não existe, escolha outra.")
escreval("vai jogar [",v,"] em qual posição?")
fimprocedimento
inicio
repita
v <- "x"
wc <- 0
para c <- 1 ate 3 faca
para d <- 1 ate 3 faca
gr[c,d] <- 0
fimpara
fimpara
em[c,d] <- 0
fimpara
fimpara
se c = 1 entao
visual[c,d] <- carac(48 + d)
senao
se c = 2 entao
senao

fimse
fimse
fimpara
fimpara
grade()
repita
leia(es)
escolha es
caso 1
se em [1,1] = 0 entao
se v = "x" entao
gr[1,1] <- 120
visual[1,1] <- "x"
v <- "o"
em[1,1] <- 7
grade()
senao
gr[1,1] <- 111
visual[1,1] <- "o"
v <- "x"
em[1,1] <- 7
grade()
fimse
senao
erro()
fimse
caso 2
se v = "x" entao
gr[1,2] <- 120
visual[1,2] <- "x"
v <- "o"
em[1,2] <- 7
grade()
senao
gr[1,2] <- 111
visual[1,2] <- "o"
v <- "x"
em[1,2] <- 7
grade()
fimse
senao
erro()
fimse
caso 3
se v = "x" entao
gr[1,3] <- 120
visual[1,3] <- "x"
v <- "o"
em[1,3] <- 7
grade()
senao
gr[1,3] <- 111
visual[1,3] <- "o"
v <- "x"
em[1,3] <- 7
grade()
fimse
senao
erro()
fimse
caso 4
se v = "x" entao
gr[2,1] <- 120
visual[2,1] <- "x"
v <- "o"
em[2,1] <- 7
grade()
senao
gr[2,1] <- 111
visual[2,1] <- "o"
v <- "x"
em[2,1] <- 7
grade()
fimse
senao
erro()
fimse
caso 5
se v = "x" entao
gr[2,2] <- 120
visual[2,2] <- "x"
v <- "o"
em[2,2] <- 7
grade()
senao
gr[2,2] <- 111
visual[2,2] <- "o"
v <- "x"
em[2,2] <- 7
grade()
fimse
senao
erro()
fimse
caso 6
se v = "x" entao
gr[2,3] <- 120
visual[2,3] <- "x"
v <- "o"
em[2,3] <- 7
grade()
senao
gr[2,3] <- 111
visual[2,3] <- "o"
v <- "x"
em[2,3] <- 7
grade()
fimse
senao
erro()
fimse
caso 7
se v = "x" entao
gr[3,1] <- 120
visual[3,1] <- "x"
v <- "o"
em[3,1] <- 7
grade()
senao
gr[3,1] <- 111
visual[3,1] <- "o"
v <- "x"
em[3,1] <- 7
grade()
fimse
senao
erro()
fimse
caso 8
se v = "x" entao
gr[3,2] <- 120
visual[3,2] <- "x"
v <- "o"
em[3,2] <- 7
grade()
senao
gr[3,2] <- 111
visual[3,2] <- "o"
v <- "x"
em[3,2] <- 7
grade()
fimse
senao
erro()
fimse
caso 9
se v = "x" entao
gr[3,3] <- 120
visual[3,3] <- "x"
v <- "o"
em[3,3] <- 7
grade()
senao
gr[3,3] <- 111
visual[3,3] <- "o"
v <- "x"
em[3,3] <- 7
grade()
fimse
senao
erro()
fimse
outrocaso
erro()
fimescolha
se (em[1,1] + em[1,2] + em[1,3] + em[2,1] + em[2,2] + em[2,3] + em[3,1] + em[3,2] + em[3,3]

= 63) entao
wc <- 888
f <- 63
fimse
se (gr[1,1] + gr[2,2] + gr[3,3] = 360) ou (gr[1,1] + gr[2,2] + gr[3,3] = 333) entao
wc <- 888
f <- 50
fimse
wc <- 888
f <- 50
fimse
wc <- 888
f <- 50
fimse
wc <- 888
f <- 50
fimse
wc <- 888
f <- 50
fimse
wc <- 888
f <- 50
fimse
wc <- 888
f <- 50
fimse
wc <- 888
f <- 50
fimse
ate wc = 888
se v = "x" entao
v <- "o"
senao
v <- "x"
fimse
limpatela
escreval("+---+---+---+")
escreval("+---+---+---+")
escreval("+---+---+---+")
escreval("+---+---+---+")
escreval("")
escreval("FIM DE JOGO.")
se f = 50 entao
escreval("O JOGADOR DE ",v," GANHOU.")
senao
escreval("DEU VELHA.")
fimse
escreval("")
escreval("quer jogar novamente? [s/n]")
leia(res)
ate res = "n"
fimalgoritmo

Jogo Da Velha em Portugol

Enviado por

Direitos autorais:

Formatos disponíveis

Jogo Da Velha em Portugol

Enviado por

Dados do documento

Descrição original:

Título original

Direitos autorais

Formatos disponíveis

Compartilhar este documento

Compartilhar ou incorporar documento

Opções de compartilhamento

Você considera este documento útil?

Este conteúdo é inapropriado?

Direitos autorais:

Formatos disponíveis

Jogo Da Velha em Portugol

Enviado por

Direitos autorais:

Formatos disponíveis

Codigo jogo da velha em portugol:

gr: vetor [1..3,1..3] de inteiro

em: vetor [1..3,1..3] de inteiro

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

c, d, wc, es, f: inteiro

escreval("| ",visual[1,1],"| ",visual[1,2],"| ",visual[1,3],"|")

escreval("| ",visual[2,1],"| ",visual[2,2],"| ",visual[2,3],"|")

escreval("| ",visual[3,1],"| ",visual[3,2],"| ",visual[3,3],"|")

escreval("vai jogar [",v,"] em qual posição?")

escreval("| ",visual[1,1],"| ",visual[1,2],"| ",visual[1,3],"|")

escreval("| ",visual[2,1],"| ",visual[2,2],"| ",visual[2,3],"|")

escreval("| ",visual[3,1],"| ",visual[3,2],"| ",visual[3,3],"|")

escreval("esta casa ja está marcada, ou, não existe, escolha outra.")

escreval("vai jogar [",v,"] em qual posição?")

para c <- 1 ate 3 faca

para d <- 1 ate 3 faca

para c <- 1 ate 3 faca

para d <- 1 ate 3 faca

para c <- 1 ate 3 faca

para d <- 1 ate 3 faca

visual[c,d] <- carac(48 + d)

visual[c,d] <- carac(51 + d)

visual[c,d] <- carac(54 + d)

gr[1,1] <- 120

visual[1,1] <- "x"

gr[1,1] <- 111

visual[1,1] <- "o"

gr[1,2] <- 120

visual[1,2] <- "x"

gr[1,2] <- 111

visual[1,2] <- "o"

gr[1,3] <- 120

visual[1,3] <- "x"

gr[1,3] <- 111

visual[1,3] <- "o"

gr[2,1] <- 120

visual[2,1] <- "x"

gr[2,1] <- 111

visual[2,1] <- "o"

gr[2,2] <- 120

visual[2,2] <- "x"

gr[2,2] <- 111

visual[2,2] <- "o"

gr[2,3] <- 120

visual[2,3] <- "x"

gr[2,3] <- 111

visual[2,3] <- "o"

gr[3,1] <- 120

visual[3,1] <- "x"

gr[3,1] <- 111

visual[3,1] <- "o"

gr[3,2] <- 120

visual[3,2] <- "x"

gr[3,2] <- 111

visual[3,2] <- "o"

gr[3,3] <- 120

visual[3,3] <- "x"

gr[3,3] <- 111