VisualG Jogo da Velha - VisualG

[arthurxavierz]

Boa noite a todos! Alguém me ajuda a finalizar, e corrigir respectivos bugs de um jogo da velha no VisualG, sem a utilização de vetores ou matriz.

Segue a baixo o algoritmo até então:

 

//O algoritmo se resume na criação de um jogo da velha, que contenha um menu
//com 5 opções: Jogar; nome dos jogadores; placar atual; estatisticas gerais
//e finalização do programa.

Algoritmo "semnome"

Var
   opc: inteiro
   contador: inteiro
   jogad1, jogad2, maisvitorias: caractere
   a, b, c, d, z, f, g, h, i: caractere
   posum, posdois: caractere
   ok: caractere
   pontuacaoum, pontuacaodois, totalvelha: inteiro

Inicio
   jogad1<- "Jogador1"
   jogad2<- "Jogador2"
   pontuacaoum<-0
   pontuacaodois<-0
   contador<-0
   totalvelha<-0

   escreval(" -=-=- JOGO DA VELHA -=-=- ")

   repita
      escreval("O que o usuário deseja fazer?")
      escreval("-")
      escreval("1 - Jogar uma partida")
      escreval("2 - Insira o nome dos jogadores")
      escreval("3 - Placar atual")
      escreval("4 - Estatisticas gerais")
      escreval("5 - Sair do programa")
      leia(opc)

      escolha(opc)
      caso 1
         limpatela
         contador<-0

         escreval("Para escolher as posições do jogo, siga esse padrão:")

         escreval(" a |    b | c ")
         escreval("-------------")
         escreval(" d |    z | f ")
         escreval("-------------")
         escreval(" g |    h | i ")
         escreval("")
         escreval("Digite para OK iniciar!")
         leia(ok)
         limpatela

         escreval("=-= Jogo da Velha =-=")
         escreval("")

         escreval( a,"          |       ", b,"       |       ",c )
         escreval("----------------")
         escreval( d,"          |       ", z,"       |       ",f )
         escreval("----------------")
         escreval( g,"          |       ", h,"       |       ",i )
         a<- "a"
         b<- "b"
         c<- "c"
         d<- "d"
         z<- "z"
         f<- "f"
         g<- "g"
         h<- "h"
         i<- "i"

         repita
            escreval(jogad1, ", é sua vez de jogar! Escolha uma posição.")
            contador<-contador+1
            leia(posum)
            enquanto (posum<>a)e(posum<>b)e(posum<>c)e(posum<>d)e(posum<>z)e(posum<>f)e(posum<>g)e(posum<>h)e(posum<>i)faca
               escreval("Dado Incorreto! Digite uma posicao valida!")
               leia(posum)
            fimenquanto

            se(posum=a) então
               a<-"X"
            senao
               se(posum=b) então
                  b<-"X"
               senao
                  se(posum=c)então
                     c<-"X"
                  senao
                     se(posum=d) então
                        d<-"X"
                     senao
                        se(posum=z) então
                           z<-"X"
                        senao
                           se(posum=f) então
                              f<-"X"
                           senao
                              se(posum=g) então
                                 g<-"X"
                              senao
                                 se(posum=h) então
                                    h<-"X"
                                 senao
                                    se(posum=i) então
                                       i<-"X"

                                    fimse
                                 fimse
                              fimse
                           fimse
                        fimse
                     fimse
                  fimse
               fimse
            fimse

            se(((((((a=b)))e(a=c)))ou((a=z)e(a=i)))ou((d=z)e(d=f)))ou((g=h)e(g=i)))ou((a=d)e(a=g)))ou((b=z)e(b=h)))ou((c=f)e(c=i)))ou((c=z)e(c=g))) então
               escreval("Vitória do Jogador 1!")
               pontuacaoum<-pontuacaoum+1

            senao
               se((a="X")ou(a="O")e((b="X")ou(b="O"))e((c="X")ou(c="O"))e((d="X")ou(d="O"))e((z="X")ou(z="O"))e((f="X")ou(f="O"))e((g="X")ou(g="O"))e((h="X")ou(h="O"))e((i="X")ou(i="O")) então
                  escreval("Empate!(VELHA)")
                  totalvelha<-totalvelha+1

               senao
                  escreval( a,"          |       ", b,"       |       ",c )
                  escreval("----------------")
                  escreval( d,"          |       ", z,"       |       ",f )
                  escreval("----------------")
                  escreval( g,"          |       ", h,"       |       ",i )
                  escreval("")
                  escreval(jogad2, ", é sua vez de jogar! Escolha uma posição.")
                  contador<-contador+1
                  leia(posdois)
                  enquanto (posum<>a)e(posum<>b)e(posum<>c)e(posum<>d)e(posum<>z)e(posum<>f)e(posum<>g)e(posum<>h)e(posum<>i)faca
                     escreval("Dado Incorreto! Digite uma posicao valida!")
                     leia(posdois)
                  fimenquanto

                  se(posdois=a) então
                     a<-"O"
                  senao
                     se(posdois=b) então
                        b<-"O"
                     senao
                        se(posdois=c) então
                           c<-"O"
                        senao
                           se(posdois=d) então
                              d<-"O"
                           senao
                              se(posdois=z) então
                                 z<-"O"
                              senao
                                 se(posdois=f) então
                                    f<-"O"
                                 senao
                                    se(posdois=g) então
                                       g<-"O"
                                    senao
                                       se(posdois=h) então
                                          h<-"O"
                                       senao
                                          se(posdois=i) então
                                             i<-"O"

                                          fimse
                                       fimse
                                    fimse
                                 fimse
                              fimse
                           fimse
                        fimse
                     fimse
                  fimse
               fimse
            fimse

            ...

         caso 2
            limpatela
            escreval("Digite o nome do jogador 1 (X):")
            leia(jogad1)
            escreval("Digite o nome do jogador 2(O):")
            leia(jogad2)

fimfuncao

caso 3
   limpatela
   escreval("-= PLACAR ATUAL =-")
   escreval("O ", jogad1, " possui", pontuacaoum, " pontos.")
   escreval("")
   escreval("O ", jogad2, " possui", pontuacaodois, " pontos.")
   escreval("")
fimfuncao

caso 4
   limpatela
   escreval("-= Estatísticas Gerais =-")
   se(pontuacaoum>pontuacaodois) então
      maisvitorias<-jogad1
   senao
      maisvitorias<-jogad2
      escreval("O jogador com mais vitórias é ", maisvitorias)
      escreval("O número de jogos que deram velha é ", totalvelha)
   caso 5
fimalgoritmo
outrocaso
   escreval("Comando Incorreto! Tente novamente!")
fimescolha
ate opc=5
fimalgoritmo

 

[Simon Viegas]

16 horas atrás, arthurxavierz disse:

Boa noite a todos! Alguém me ajuda a finalizar, e corrigir respectivos bugs de um jogo da velha no VisualG, sem a utilização de vetores ou matriz.

Segue a baixo o algoritmo até então:

 

Quais bugs?