forca

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "Jogo da forca"
// Função :
// Autor :
// Data : 05/03/2015
// Seção de Declarações
//timer 50
//timer off
procedimento separarpalavra
var
j: inteiro
Inicio
//separar a palavra em uma vetor
j <- 1 //Inicializa o contador com 1
enquanto j <= compr(palavraCorreta) faca //Enquanto o contador for menor ou igual a quantidade de caracteres que veio como parâmetro, executa:
 palavra[j] <- copia (palavraCorreta, j, 1)
 palavraImpr[j] <- "_" //Com a função copia (que é interna do Visualg), a variável de caractere "letra" recebe o caractere que está na
 j <- j + 1 //Incrementa o contador "j" para fazer novamente em um novo caractere
fimenquanto
fimprocedimento
procedimento desenhoerro
inicio
limpatela
escolha tentativa
caso 6
 escreval(" =======")
 escreval(" || |")
 escreval(" || ")
 escreval(" || ")
 escreval(" || ")
 escreval("==== ")
caso 5
 escreval(" =======")
 escreval(" || |")
 escreval(" || 0")
 escreval(" || ")
 escreval(" || ")
 escreval("==== ")
caso 4
 escreval(" =======")
 escreval(" || |")
 escreval(" || 0")
 escreval(" || |")
 escreval(" || ")
 escreval("==== ")
caso 3
 escreval(" =======")
 escreval(" || |")
 escreval(" || 0")
 escreval(" || |\")
 escreval(" || ")
 escreval("==== ")
caso 2
 escreval(" =======")
 escreval(" || |")
 escreval(" || 0")
 escreval(" || /|\")
 escreval(" || ")
 escreval("==== ")
caso 1
 escreval(" =======")
 escreval(" || |")
 escreval(" || 0")
 escreval(" || /|\ ")
 escreval(" || \")
 escreval("==== ")
caso 0
 escreval("MORREU!!")
 escreval(" =======")
 escreval(" || |")
 escreval(" || 0")
 escreval(" || /|\ ")
 escreval(" || / \")
 escreval("==== ")
fimescolha
fimprocedimento
procedimento imprimepalavra
var
j: inteiro
inicio
para j de 1 ate compr(palavraCorreta) faca
 se j = compr(palavraCorreta) entao
 escreval(palavraImpr[j])
 senao
 escreva(palavraImpr[j], " ")
 fimse
fimpara
fimprocedimento
var
jogador1, jogador2, palavraCorreta, letra: caractere
tentativa, i, k: inteiro
terminou, acerto: logico
palavra, palavraImpr: vetor [1..15] de caractere
inicio
// Seção de Comandos
escreval("Insira o nome do jogador 1:")
leia(jogador1)
escreval("Insira o nome do jogador 2:")
leia(jogador2)
escreval(jogador1," escreva a palavra para ser adivinhada de até 15 letras:")
leia(palavraCorreta)
separarpalavra
terminou <- FALSO
tentativa <- 6
enquanto terminou = FALSO faca
 se tentativa = 0 entao
 terminou <- VERDADEIRO
 senao
 acerto <- FALSO
 limpatela
 desenhoerro
 escreva("a palavra do jogo é: ")
 imprimepalavra
 escreval()
 escreval(jogador2," insira uma letra:")
 leia(letra)
 para i de 1 ate compr(palavraCorreta) faca
 se letra = palavra[i] entao
 acerto <- VERDADEIRO
 palavraImpr[i] <- letra
 k <- k + 1
 fimse
 fimse
 fimpara
 se k = compr(palavraCorreta) entao
 terminou <- VERDADEIRO
 fimse
 se acerto = FALSO entao
 tentativa <- tentativa - 1
 fimse
 fimse
fimenquanto
se ((terminou = VERDADEIRO) E (tentativa > 0)) entao
 desenhoerro
 escreval("O jogador:", jogador2, " ganhou")
 escreval("A palavra acertada é: ", palavraCorreta)
senao
 desenhoerro
 escreval("O jogador: ", jogador1, " ganhou")
 escreval("A palavra correta é: ", palavraCorreta)
fimse
fimalgoritmo