Piedra, Papel o Tijera

Juego de Piedra , Papel o Tijera

//Elaborado: Steven Valarezo Flores
 Algoritmo PiedraPapelTijera
    Definir opUsu, opCom, resul Como Entero
    
    opCom <- aleatorio(1, 3)
    
    Escribir "Elige una opción:"
    Escribir "1. Piedra"
    Escribir "2. Papel"
    Escribir "3. Tijera"
    Leer opUsu
    
    Si opUsu < 1 o opUsu > 3 Entonces
        Escribir "Opción no válida. Ingrese otra opcion"
    Sino
        Si opUsu = opCom Entonces
            resul <- 0 
        Sino
            Si opUsu = 1 Y opCom = 3  o opUsu = 2 Y opCom= 1 o opUsu = 3 Y opCom = 2 Entonces
                resul <- 1 
            Sino
                resul <- -1 
FinSi
        Fin Si
        
si opcom = 1 Entonces
Escribir  "La computadora eligió piedra  "
sino
si opcom = 2 Entonces
Escribir "La computadora eligió papel" 
SiNo
Escribir "La computadora eligió tijera" 
FinSi
FinSi

        Si resul = 0 Entonces
            Escribir "¡Es un empate!"
        Sino 
Si resul = 1 Entonces
Escribir "¡Tú ganas!"
Sino
Escribir "La computadora gana."
Fin Si
Fin Si
FinSi
FinAlgoritmo