Jogo da Sorte é um algoritmo feito com Visualg

Download do Visualg aqui

algoritmo "jogo da sorte"

var

li, ls, tentativas, palpite: inteiro

resposta: caracter

inicio

li <- 0

ls <- 1000

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

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

// Seção de Comandos

fimalgoritmo