Ir ao conteúdo

Posts recomendados

Postado

Gente me ajuda ai n consigo achar o erro


var
nome:vetor[1..2] de caractere
v:vetor[1..3,1..3]de caractere
ctr:caractere
i,j,c,cont1,cont2,coluna,linha,controd,a,b:inteiro
inicio
escreval ("Jogo da velha ")
escreval
para i de 1 ate 2 faca
escreval ("Digite o Nome do",i,"° Jogador")
leia (nome[i])
fimpara
i<-0
para i de 1 ate 3 faca
para j de 1 ate 3 faca
v[i,j]<-"¨"
fimpara
fimpara
i<-0
enquanto (i<1)faca
i<-randi(3)
se (i=0) então
i<-randi(3)
fimse
fimenquanto
se (i=1) então
escreval (nome[1]," Jogador 1 Começa *")
senao
escreval (nome[2]," Jogador 2 Começa *")
fimse
escreval (" | | ")
escreval (" 1,1 | 1,2 | 1,3 ")
escreval (" | | ")
escreval (" ___________|__________|__________ ")
escreval (" | | ")
escreval (" 2,1 | 2,2 | 2,3 ")
escreval (" | | ")
escreval (" ___________|__________|__________ ")
escreval (" | | ")
escreval (" 3,1 | 3,2 | 3,3 ")
escreval (" | | ")
escreval (" | | ")
escreval
enquanto c<>9 faca
enquanto j<>1 faca
para i de 1 ate 2 faca
escreval ("Jogador ",i," Insira 1 o lugar.")
leia (a)
escreval ("jogador ",i," Insira a o 2 lugar.")
leia (
se (v[a,b]="X") ou (v[a,b]="O") então
escreval ("Ja esta sendo usado")
escreval ("Outra posição")
senao
se (i=1)então
v[a,b]<-"X"
j<-j+1
c<-c+1
senao
se (i=2) então
v[a,b]<-"O"
j<-j+1
c<-c+1
fimse
fimse
fimse


escreval (" | | ")
escreval (" ",v[1,1]," | ",v[1,2]," | ",v[1,3]," ")
escreval (" | | ")
escreval (" ___________|__________|__________ ")
escreval (" | | ")
escreval (" ",v[2,1]," | ",v[2,2]," | ",v[2,3]," ")
escreval (" | | ")
escreval (" ___________|__________|__________ ")
escreval (" | | ")
escreval (" ",v[3,1]," | ",v[3,2]," | ",v[3,3]," ")
escreval (" | | ")
escreval (" | | ")
escreval
Se (v[1,1]) e (v[2,2]) e (v[3,3]) = "X" então
escreva("X VENCEU")
fimalgoritmo
senao

Se (v[3,1]) e (v[2,2]) e (v[1,3]) = "X" então
escreva("X VENCEU")
fimalgoritmo
senao

Se (v[1,1]) e (v[1,2]) e (v[1,3]) = "X" então
escreva("X VENCEU")
fimalgoritmo
senao

Se (v[2,1]) e (v[2,2]) e (v[2,3]) = "X" então
escreva("X VENCEU")
fimalgoritmo
senao

Se (v[3,1]) e (v[3,2]) e (v[3,3]) = "X" então
escreva("X VENCEU")
fimalgoritmo
senao

Se (v[1,1]) e (v[2,1]) e (v[3,1]) = "X" então
escreva("X VENCEU")
fimalgoritmo
senao

Se (v[1,2]) e (v[2,2]) e (v[3,2]) = "X" então
escreva("X VENCEU")
fimalgoritmo
senao

Se (v[1,3]) e (v[2,3]) e (v[3,3]) = "X" então
escreva("X VENCEU")
fimalgoritmo
senao

Se (v[1,1]) e (v[2,2]) e (v[3,3]) = "O" então
escreva("O VENCEU")
fimalgoritmo
senao

Se (v[3,1]) e (v[2,2]) e (v[1,3]) = "O" então
escreva("O VENCEU")
fimalgoritmo
senao

Se (v[1,1]) e (v[1,2]) e (v[1,3]) = "O" então
escreva("O VENCEU")
fimalgoritmo
senao

Se (v[2,1]) e (v[2,2]) e (v[2,3]) = "O" então
escreva("O VENCEU")
fimalgoritmo
senao

Se (v[3,1]) e (v[3,2]) e (v[3,3]) = "O" então
escreva("O VENCEU")
fimalgoritmo
senao

Se (v[1,1]) e (v[2,1]) e (v[3,1]) = "O" então
escreva("O VENCEU")
fimalgoritmo
senao

Se (v[1,2]) e (v[2,2]) e (v[3,2]) = "O" então
escreva("O VENCEU")
fimalgoritmo
senao

Se (v[1,3]) e (v[2,3]) e (v[3,3]) = "O" então
escreva("O VENCEU")
fimalgoritmo
senao
se j=9 então
escreva("DEU VELHA")
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimpara
fimenquanto
fimenquanto
fimalgoritmo

Fazendo no Visualg

Luiz Gustavo Miranda

Ajuda ai é urgente preciso ate a noite isso D;

  • Membro VIP
Postado

Olá Clobs,

Gente me ajuda ai n consigo achar o erro

Tem um pequeno erro de sintaxe nos se, veja o exemplo de correção:

De:

Se (v[1,1]) e (v[2,2]) e (v[3,3]) = "X" então

Para:

Se (v[1,1]="X") e (v[2,2]="X") e (v[3,3]="X") então

Obs.: o então não tem o "~".

Basicamente isso.

No aguardo.

  • 8 anos depois...

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!