martes, 26 de agosto de 2014

IA Piedra, Papel o Tijera

Imprime "Dame opción piedra, papel o tijera" var OpcionHumano
numero=Random(1 al 3)
if(numero=1)
   OpcionMaquina=Piedra
End if
if(numero=2)
   OpcionMaquina=Papel
End if
if(numero=3)
   OpcionMaquina=Tijera
End if
---------------------------------------
if(OpcionHumano=OpcionMaquina)
   Imprime "Empate"
End if
if(OpcionHumano=Piedra && OpcionMaquina=Papel)
   Imprime"Gano la Maquina"
End if
if(OpcionHumano=Piedra && OpcionMaquina=Tijera)
   Imprime"Gano el Humano"
End if

if(OpcionHumano=Papel && OpcionMaquina=Piedra)
   Imprime"Gano el Humano"
End if
if(OpcionHumano=Papel && OpcionMaquina=Tijera)
   Imprime"Gano la Maquina"
End if
if(OpcionHumano=Tijera && OpcionMaquina=Piedra)
   Imprime"Gano la Maquina"
End if
if(OpcionHumano=Tijera && OpcionMaquina=Papel)
   Imprime"Gano el Humano"
End if

No hay comentarios.:

Publicar un comentario