Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- algoritmo "semnome"
- // Função :
- // Autor :
- // Data : 28/03/2017
- // Seção de Declarações
- var
- numero:inteiro
- tentativa1:inteiro
- li, ls, tentativas, palpite: inteiro
- resposta: caracter
- inicio
- li <- 0
- ls <- 1024
- tentativas <- 1
- repita
- palpite <- (ls - li)\2 + li
- escreva("Seu numero é maior, menor ou igual a ", palpite, "? ")
- leia(resposta)
- se resposta = "igual" entao
- escreval("ACERTEI!!")
- senao
- se resposta = "maior" entao
- li <- palpite
- senao
- se resposta = "menor" entao
- ls <- palpite
- senao
- escreval("Reposta incorreta.")
- escreval("Escreva uma das palavras: maior, menor ou igual")
- fimse
- fimse
- numero<-randi(1024)
- escreva("Digite seu palpite:")
- leia(tentativa1)
- se (tentativa1=numero) entao
- escreval("VOCE ACERTOU!!!")
- fimse
- se (numero>tentativa1) entao
- escreval("maior")
- fimse
- se (numero<tentativa1) entao
- escreval("menor")
- fimse
- tentativas <- tentativas + 1
- fimse
- ate ((tentativas > 10) OU (resposta = "igual"))
- se tentativas > 10 entao
- escreval("Infelizmente não consegui acertar ...")
- senao
- escreval("Tentativas: ", tentativas)
- fimse
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement