VisualG Jogo da forca VisualG

Bl4ck_Wh1te · 7 de outubro de 2021

Bom dia. Estou com uma dificuldade em um algoritmo para um jogo da forca em VisuALG, o algoritmo foi solicitado para um trabalho.

Segue abaixo o algoritmo. Obs.: foi usado o visualg 3

Algoritmo "FORCA"

Var
op,palavra,erro,acerto:inteiro
l1,l2,l3,l4,l5,ld1,ld2,ld3,ld4,ld5,verif,dig:caractere

Inicio
aleatorio on
aleatorio 1,3
leia(palavra)
aleatorio off

repita
escreval("Seja Bem vindo ao Jogo da Forca!!! rsrsrs")
escreval
escreval("Escrito por Luiz Henrique Mendes de Sousa - BCC")
escreval
escreval("Digite 1 para começar ou 0 para sair")
leia(op)
  escolha op
  caso 0
        escreval("______________Game Over______________")
        escreval
        escreval("Já vai ?")
        escreval
        escreval("Sim ta muito difícil")
        escreval
        escreval("Saindo do Jogo.......diminuindo o KI")
        fimalgoritmo
             caso 1
             interrompa
                   escreval("____QUE OS JOGOS COMEÇEM!!!_____ ")
                   outrocaso// caso digite diferente de 0 ou 1
                   limpatela
                            fimescolha
                              fimrepita
                              
escolha palavra
        caso 1
             l1<-"T"
             l2<-"O"
             l3<-"K"
             l4<-"Y"
             l5<-"0"
        caso 2
             l1<-"I"
             l2<-"N"
             l3<-"D"
             l4<-"I"
             l5<-"A"
        caso 3
             l1<-"C"
             l2<-"E"
             l3<-"A"
             l4<-"R"
             l5<-"A"
fimescolha

ld1<-"_"
ld2<-"_"
ld3<-"_"
ld4<-"_"
ld5<-"_"

repita
      se(erro = 6)então
      limpatela
      escreval("Acabando pilha....")
      escreval
      escreval("Encerrando o Jogo")
                           fimalgoritmo
      fimse
      
      se(ld1<>"_") e (ld2<>"_") e (ld3<>"_") e (ld4<>"_") e (ld5<>"_")então
      limpatela
      escreval("A Jornada Acabou Guerreiro")
      escreval
      escreval("Você venceu !!")
                            fimalgoritmo
      fimse
      
      se(erro =0)então
              escreval("   _________________       ")
              escreval("  /                  |     ")
              escreval(" /                         ")
              escreval("/                          ")
              fimse
      se(erro = 1)então
              escreval(" /               (-\  /-)  ")
              escreval("/                    v     ")
      se(erro =2)então
              escreval("                     |     ")
              escreval("                     |     ")
              escreval("                     |     ")
              escreval("                     |     ")
              fimse
      se(erro =3)então
              escreval("                _          ")
              escreval("                 \  /      ")
              escreval("                  \/       ")
              escreval("                           ")
              fimse
      se(erro =4)então
              escreval("                          _")
              escreval("                      \  / ")
              escreval("                       \/  ")
              escreval("                           ")
      se(erro = 5)então
              escreval("                    /      ")
              escreval("                   /       ")
              escreval("                 _/        ")
              fimse
      se(erro = 6)então
              escreval("                      \    ")
              escreval("                       \   ")
              escreval("                        \_ ")
              fimse
              
              escreval
              escreval(" ACERTOS: ",acerto)
              escreval(" ERROS: ",erro)
              escreval
              escreval("Estado,Cidade,Pais com 5 letras",ld1,"",ld2,"",ld3,"",ld4,"",ld5)
              escreval
              escreval("Digite uma letra")
              leia(dig)
              
              verif<-" 0 "
              
              se(l1 = dig) e (ld1 = "_")então
                    ld1<-dig
                    acerto<-acerto+1
                    verif<-" 1 "
                    fimse
              se(l2 = dig) e (ld2 = "_")então
                    ld2<-dig
                    acerto<-acerto+1
                    verif<-" 1 "
                    fimse
              se(l3 = dig) e (ld3 = "_")então
                    ld3<-dig
                    acerto<-acerto+1
                    verif<-" 1 "
                    fimse
              se(l4 = dig) e (ld4 = "_")então
                    ld4<-dig
                    acerto<-acerto+1
                    verif<-" 1 "
                    fimse
              se(l5 = dig) e (ld5 = "_")então
                    ld5<-dig
                    acerto<-acerto+1
                    verif<-" 1 "
                    fimse
              
              se(verif = " 0 ") então
              erro<-erro+1
              fimse
fimrepita

Fimalgoritmo

devair1010 · 7 de outubro de 2021

@Bl4ck_Wh1te você esqueceu de colocar alguns fimse e esse fimrepita não nada bom usar ele não , e seu código com algumas modificações ficou assim :

Algoritmo "FORCA_5"
Var
  op,palavra,erro,acerto,x : inteiro
  l1,l2,l3,l4,l5,ld1,ld2   : caractere
  ld3,ld4,ld5,verif,dig    : caractere
Inicio
  aleatorio on
  aleatorio 1,3
  leia(palavra)
  aleatorio off

  repita
    escreval("Seja Bem vindo ao Jogo da Forca!!! rsrsrs")
    escreval
    escreval("Escrito por Luiz Henrique Mendes de Sousa - BCC")
    escreval
    escreval("Digite 1 para começar ou 0 para sair")
    leia(op)
    escolha op
    caso 0
      escreval("______________Game Over______________")
      escreval
      escreval("Já vai ?")
      escreval
      escreval("Sim ta muito difícil")
      escreval
      escreval("Saindo do Jogo.......diminuindo o KI")
      fimalgoritmo
    caso 1
      interrompa
      escreval("____QUE OS JOGOS COMEÇEM!!!_____ ")
    outrocaso// caso digite diferente de 0 ou 1
      limpatela
    fimescolha
  fimrepita

  escolha palavra
  caso 1
    l1<-"T"
    l2<-"O"
    l3<-"K"
    l4<-"Y"
    l5<-"0"
  caso 2
    l1<-"I"
    l2<-"N"
    l3<-"D"
    l4<-"I"
    l5<-"A"
  caso 3
    l1<-"C"
    l2<-"E"
    l3<-"A"
    l4<-"R"
    l5<-"A"
  fimescolha
  ld1<-"_"
  ld2<-"_"
  ld3<-"_"
  ld4<-"_"
  ld5<-"_"
  repita
    limpatela
    se erro = 6 entao
      limpatela
      escreval("Acabando pilha....")
      escreval
      escreval("Encerrando o Jogo")
      fimalgoritmo
    fimse
    se(ld1<>"_") e (ld2<>"_") e (ld3<>"_") e (ld4<>"_") e (ld5<>"_")entao
      limpatela
      escreval("A Jornada Acabou Guerreiro")
      escreval
      escreval("Você venceu !!")
      fimalgoritmo
    fimse

    se erro = 0 entao
      escreval("   _________________       ")
      escreval("  /                  |     ")
      escreval(" /                         ")
      escreval("/                          ")
      fimse
    se erro = 1 entao
      escreval(" /               (-\  /-)  ")
      escreval("/                    v     ")
    fimse
    se(erro =2)entao
      escreval("                     |     ")
      escreval("                     |     ")
      escreval("                     |     ")
      escreval("                     |     ")
    fimse
    se erro = 3 entao
      escreval("                _          ")
      escreval("                 \  /      ")
      escreval("                  \/       ")
      escreval("                           ")
    fimse
    se erro = 4 entao
      escreval("                          _")
      escreval("                      \  / ")
      escreval("                       \/  ")
      escreval("                           ")
    fimse
    se erro = 5 entao
      escreval("                    /      ")
      escreval("                   /       ")
      escreval("                 _/        ")
    fimse
    se erro = 6 entao
      escreval("                      \    ")
      escreval("                       \   ")
      escreval("                        \_ ")
    fimse
    escreval
    escreval(" ACERTOS --: ",acerto)
    escreval(" ERROS ----: ",erro  )
    escreval
    escreval("Estado,Cidade,Pais com 5 letras  ",ld1,ld2,ld3,ld4,ld5)
    escreval
    escreval("Digite uma letra")
    leia(dig)
    verif<-" 0 "
    se(l1 = dig) e (ld1 = "_")entao
      ld1<-dig
      acerto<-acerto+1
      verif<-" 1 "
    fimse
    se(l2 = dig) e (ld2 = "_")entao
      ld2<-dig
      acerto<-acerto+1
      verif<-" 1 "
    fimse
    se(l3 = dig) e (ld3 = "_")entao
      ld3<-dig
      acerto<-acerto+1
      verif<-" 1 "
    fimse
    se(l4 = dig) e (ld4 = "_")entao
      ld4<-dig
      acerto<-acerto+1
      verif<-" 1 "
    fimse
    se(l5 = dig) e (ld5 = "_")entao
      ld5<-dig
      acerto<-acerto+1
      verif<-" 1 "
    fimse
    se(verif = " 0 ") entao
      erro<-erro+1
    fimse
  ate x = 101// fimrepita
Fimalgoritmo