Elaboração de um simulador do jogo CRAPS. Regra do jogo:-Um jogador joga dois dados. -Cada dado tem seis faces. Essas faces contém os números: 1,2,3,4,5ou6. -Depois de os dados pararem, a soma dos pontos nas faces superiores é calculada. -Se a soma for 7 ou 11 no primeiro lançamento, o jogador vence. - Se a soma for 2,3 ou 12 no primeiro lançamento ,o jogador perde. -Se a soma for 4,5,6,8,9 ou 10 no primeiro lançamento ,esta soma se tornao “ponto” do jogador. -Para vencer ,você deve continuar lançando os dados até “fazer seu ponto”.-O jogador perde se tirar um 7 antes de fazer o ponto.
infelizmente ocorre o erro de "esperava encontrar fimalgoritmo", como resolvo? ajudem
algoritmo "Simulador de Craps"
var
dado1, dado2, soma, ponto: inteiro
funcao lancarDado(): inteiro
var
face: inteiro
inicio
face <- aleatorio(1, 6)
retorne face
fim
inicio
escreva("Simulador de Craps")
escreval("Pressione ENTER para jogar...")
leia()
dado1 <- lancarDado()
dado2 <- lancarDado()
soma <- dado1 + dado2
escreval("Você tirou ", dado1, " e ", dado2)
escreval("Soma dos pontos: ", soma)
se soma = 7 ou soma = 11 então
escreval("Você venceu!")
senao se soma = 2 ou soma = 3 ou soma = 12 então
escreval("Você perdeu!")
senao
escreval("Seu ponto é ", soma)
ponto <- soma
repita
escreval("Pressione ENTER para lançar os dados novamente...")
leia()
dado1 <- lancarDado()
dado2 <- lancarDado()
soma <- dado1 + dado2
escreval("Você tirou ", dado1, " e ", dado2)
escreval("Soma dos pontos: ", soma)
se soma = 7 então
escreval("Você perdeu!")
pare
senao se soma = ponto então
escreval("Você fez seu ponto! Você venceu!")
pare
fimse
ate verdadeiro
fimse
fim