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 fimalgoritmo