EJERCICIO: PIEDRA, PAPEL O TIJERA.

Ejemplo: Inteligencia empírica con código fuente

“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 “GANÓ LA MAQUINA”

End if

If (OpcionHumano=piedra  &&  OpcionMaquina=tijera)

Imprime “GANÓ EL HUMANO”

End if

If (OpcionHumano=papel  &&  OpcionMaquina=piedra)

Imprime “GANÓ EL HUMANO”

End if

If (OpcionHumano=papel  &&  OpcionMaquina=tijera)

Imprime “GANÓ LA MAQUINA”

End if

If (OpcionHumano=tijera  &&  OpcionMaquina=piedra)

Imprime “GANÓ LA MAQUINA”

End if

If (OpcionHumano=tijera  &&  OpcionMaquina=papel)

Imprime “GANÓ EL HUMANO”

End if