JokenPo VISUALG

Prévia do material em texto

// Disciplina : [Linguagem e Lógica de Programação] 
// Professor : Antonio Carlos Nicolodi 
// Arquivo com um algoritmo: JOKENPO.ALG
// Data de impressão: 28/03/2018
 1 algoritmo "JOKENPO"
 2 var
 3 jok:vetor[0..2] de caractere
 4 cv,jv,emp,comp,esc:inteiro
 5 jogador,resp:caractere
 6 inicio
 7 Repita
 8 jok[0] <- "PEDRA"
 9 jok[1] <- "TESOURA"
 10 jok[2] <- "PAPEL"
 11 comp <- randi(3)
 12 Repita
 13 Escreval("----------JOKEN-PO!---------")
 14 Escreval("-----------PLACAR-----------")
 15 Escreval("JOGADOR - ",jv)
 16 Escreval("COMPUTADOR - ",cv)
 17 Escreval("EMPATE - ",emp)
 18 Escreval("----------------------------")
 19 Escreval("QUAL A SUA ARMA?")
 20 Escreval("[1] PEDRA")
 21 Escreval("[2] PAPEL")
 22 Escreval("[3] TESOURA")
 23 Leia(esc)
 24 Escolha(esc)
 25 Caso 1
 26 jogador <- "PEDRA"
 27 Caso 2
 28 Jogador <- "PAPEL"
 29 Caso 3
 30 Jogador <- "TESOURA"
 31 Outrocaso
 32 Escreva("NÃO É UMA OPÇÃO VALIDA!!")
 33 FimEscolha
 34 timer 500 on
 35 Limpatela
 36 timer 0 off
 37 Ate (esc=1) ou (esc=2) ou (esc=3)
 38 timer 800 on
 39 Escreval("JO")
 40 Escreval("KEN")
 41 Escreval("PO!!!!")
 42 Limpatela
 43 EscrevaL("JOGADOR USOU ",Jogador)
 44 EscrevaL("COMPUTADOR USOU ",jok[comp])
 45 timer 0 off
 46 
 47 Se (comp = 0) e (jogador = "PEDRA") entao
 48 Escreval("EMPATE!!")
 49 emp <- emp + 1
 50 Senao
 51 Se (comp = 0) e (jogador = "TESOURA") entao
 52 Escreval("O COMPUTADOR VENCEU!!")
 53 cv <- cv + 1
 54 Senao
 55 Se (comp = 0) e (jogador = "PAPEL") entao
 56 Escreval("VOCÊ VENCEU!!")
 57 jv <- jv + 1
 58 FimSE
 59 FimSe
 60 FimSe
 61 
 62 Se (comp = 1) e (jogador = "PEDRA") entao
 63 Escreval("VOCÊ VENCEU!!")
 64 jv <- jv + 1
 65 Senao
 66 Se (comp = 1) e (jogador = "TESOURA") entao
 67 Escreval("EMPATE!!")
 68 emp <- emp + 1
 69 Senao
 70 Se (comp = 1) e (jogador = "PAPEL") entao
 71 Escreval("O COMPUTADOR VENCEU!!")
 72 cv <- cv + 1
 73 FimSE
 74 FimSe
 75 FimSe
 76 
 77 Se (comp = 2) e (jogador = "PEDRA") entao
 78 Escreval("O COMPUTADOR VENCEU!!")
 79 cv <- cv + 1
 80 Senao
 81 Se (comp = 2) e (jogador = "TESOURA") entao
 82 Escreval("VOCÊ VENCEU!!")
 83 jv <- jv + 1
 84 Senao
 85 Se (comp = 2) e (jogador = "PAPEL") entao
 86 Escreval("EMPATE!!")
 87 emp <- emp + 1
 88 FimSE
 89 FimSe
 90 FimSe
 91 escreva("Quer jogar de novo? S/N")
 92 Leia(resp)
 93 Limpatela
 94 Ate (resp = "N")
 95 fimalgoritmo
 96 
 97 
 98 
 99 
 100 
 101 ___ ___ ___ ___
 102 | | | | |
 103 | | | | |
 104 _|_ | | | |
 105 | | | | | |
 106 | |_|___|___|___|
 107 | | |
 108 | |
 109 |_________________|
 110 
 111 
 112 
 113 
 114 
 115 
 116