Fiz um algoritmo para um jogo de par ou impar! Criei ele sozinho sem copiar de lugar nenhum!
O problema é no final quando quero declarar o vencedor, me vem a menssagem dos dois... ou seja.... independente de que seja o vencedor... vem as duas menssagens de vencedor do user e do comp.... o que eu fiz de errado?
algoritmo "Jogo do par ou ímpar"
// Função :
// Autor : Murillo Magalhães
// Data : 24/08/2011
// Seção de Declarações
var
u, c, user, comp, result, p, i: inteiro
inicio
repita
escreval ("Escolha...")
escreval ("[0] Par ou [1] Ímpar?")
leia (user)
ate (user = 0) ou (user = 1)
fimrepita
se user=0 então
escreval ("Você escolheu par!")
se user=1 então
escreval ("Você escolheu ímpar!")
fimse
fimse
repita
escreval ("Agora escreva um número qualquer de 1 a 10: ")
leia (u)
ate (u<10)
comp <- randi(10)
escreval ("O computador escolheu o número... ", comp)
result <- (comp+u)
escreval ("O resultado é: ", result)
se result mod 2= 0 então
result <- p
senao
result <- i
fimse
se (result= p) e (user= 0) então
escreval ("Você ganhou!")
senao
escreval ("O computador ganhou!")
se (result= i) e (user= 1) então
escreval ("Você ganhou!")
senao
escreval ("O computador ganhou!")
fimse
fimse
// Seção de Comandos
fimalgoritmo
Question
murilloscabio
Fiz um algoritmo para um jogo de par ou impar! Criei ele sozinho sem copiar de lugar nenhum!
O problema é no final quando quero declarar o vencedor, me vem a menssagem dos dois... ou seja.... independente de que seja o vencedor... vem as duas menssagens de vencedor do user e do comp.... o que eu fiz de errado?
algoritmo "Jogo do par ou ímpar" // Função : // Autor : Murillo Magalhães // Data : 24/08/2011 // Seção de Declarações var u, c, user, comp, result, p, i: inteiro inicio repita escreval ("Escolha...") escreval ("[0] Par ou [1] Ímpar?") leia (user) ate (user = 0) ou (user = 1) fimrepita se user=0 então escreval ("Você escolheu par!") se user=1 então escreval ("Você escolheu ímpar!") fimse fimse repita escreval ("Agora escreva um número qualquer de 1 a 10: ") leia (u) ate (u<10) comp <- randi(10) escreval ("O computador escolheu o número... ", comp) result <- (comp+u) escreval ("O resultado é: ", result) se result mod 2= 0 então result <- p senao result <- i fimse se (result= p) e (user= 0) então escreval ("Você ganhou!") senao escreval ("O computador ganhou!") se (result= i) e (user= 1) então escreval ("Você ganhou!") senao escreval ("O computador ganhou!") fimse fimse // Seção de Comandos fimalgoritmoLink to comment
Share on other sites
1 answer to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.