Algoritmo "semnome"
//
//
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 08/02/2018
Var
// Seção de Declarações das variáveis

num1: inteiro
num2: inteiro
num3: inteiro
num4: inteiro
s1: inteiro
s2: inteiro
s3: inteiro
s4: inteiro
contador: inteiro
questao: caractere
jogador: caractere
aposta: inteiro
saldo: inteiro

Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...

// Introdução

saldo <- 100
repita
contador <-0
limpatela
escreval ("Acerte nos números (1-15)")
escreval ("")
escreva ("Introduza o nome do Jogador: ")
leia (jogador)
repita
escreval ("Créditos: ", saldo)
escreva ("Introduza a quantidade de créditos que quer apostar: ")
leia (aposta)
se aposta > saldo entao
escreval ("Não tens créditos suficientes!")
fimse
ate aposta <= saldo

saldo <- saldo-aposta

escreval ("------------------------------------")
escreval ("")
repita
escreva ("Introduza o primeiro número: ")
leia (s1)
ate (s1>0) e (s1<16)
repita
escreva ("Introduza o segundo número: ")
leia (s2)
ate (s2<>s1) e (s2<16) e (s2>0)
repita
escreva ("Introduza o terceiro número: ")
leia (s3)
ate (s3<>s1) e (s3<>s2) e (s3<16) e (s3>0)
repita
escreva ("Introduza o quarto número: ")
leia (s4)
ate (s4<>s1) e (s4<>s2) e (s4<>s3) e (s4<16) e (s4>0)
escreval ("")
escreval ("------------------------------------")
escreval ("")

// Função - Randi

num1 <- 1+randi(15)
repita
num2 <- 1+randi(15)
ate num2 <> num1
repita
num3 <- 1+randi(15)
ate (num3<>num2) e (num3<>num1)
repita
num4 <- 1+randi(15)
ate (num4<>num1) e (num4<>num2) e (num4<>num3)
repita
num5 <- 1+randi(15)
ate (num5<>num1) e (num5<>num2) e (num5<>num3) e (num5<>num4)

// Função - Comparar valores...

se (s1 = num1) ou (s1 = num2) ou (s1 = num3) ou (s1 = num4) entao
escreval ("Acertaste no primeiro número!")
contador <- contador+1
fimse

se (s2 = num1) ou (s2 = num2) ou (s2 = num3) ou (s2 = num4) entao
escreval ("Acertaste no segundo número!")
contador <- contador+1
fimse

se (s3 = num1) ou (s3 = num2) ou (s3 = num3) ou (s3 = num4) entao
escreval ("Acertaste no terceiro número!")
contador <- contador+1
fimse

se (s4 = num1) ou (s4 = num2) ou (s4 = num3) ou (s4 = num4) entao
escreval ("Acertaste no quarto número!")
contador <- contador+1
fimse

// Função - Números que acertou...
escreval ("Acertaste em", contador)

se contador = 1 entao
saldo <- saldo+aposta
fimse
se contador = 2 entao
saldo <- saldo+aposta*2
fimse
se contador = 3 entao
saldo <- saldo+aposta*3
fimse
se contador = 4 entao
saldo <- saldo+aposta*4
fimse
se contador = 5 entao
saldo <- saldo+aposta*5
fimse


escreval ("")
escreval ("Créditos: ", saldo)
escreval ("")


// Questão Final

escreva ("Deseja continuar? ")
leia (questao)
ate (questao = "nao") ou (saldo <= 0)








Fimalgoritmo