Algoritmo Juego_PiedraPapelTijera
//Guia Para jugador 1 Piedra 4, Papel 5, o Tijera 6
//Guia Para jugador 2 Piedra 1, Papel 2, o Tijera 3
Definir jugador1, juegador2,rondasganadasjug1, rondasganadasjug2, rondax,
modoJuego Como Entero
Definir p1,p2 Como Caracter
Repetir
Escribir"Seleccione el modo de juego: 1. 1 vs 1, 2. Contra la máquina "
Leer modoJuego
si modoJuego < 1 o modoJuego > 2 Entonces
Escribir "Opción inválida. Por favor, seleccione 1 para jugar
1vs1 o para jugar contra la máquina 2"
FinSi
Hasta Que modoJuego = 1 o modoJuego =2
si modoJuego = 1 Entonces
Escribir "Jugador 1 Ingrese su nombre"
Leer p1
Escribir "Jugador 2 Ingrese su nombre"
Leer p2
Escribir ""
rondasganadasjug1 <- 0
rondasganadasjug2 <- 0
rondax <- 1
Mientras rondasganadasjug1 < 2 y rondasganadasjug2 < 2
Escribir"Ronda ", rondax
Escribir ""
Escribir p1," Seleccione Piedra, Papel o Tijera"
Leer jugador1
Mientras jugador1 < 4 o jugador1 > 6
Escribir "Opcion invalida, inserte una opcion valida"
Leer jugador1
FinMientras
Escribir p2," Seleccione Piedra, Papel o Tijera"
Leer jugador2
Mientras jugador2 < 1 o jugador2 > 3
Escribir "Opcion invalida, inserte una opcion valida"
Leer jugador2
FinMientras
si jugador1 = 4 y jugador2 = 1 o jugador1 = 5 y jugador2 = 2 o jugador1 = 6 y
jugador2 = 3 Entonces
Escribir "Esto es un Empate"
FinSi
si jugador1 = 4 y jugador2 = 3 o jugador1 = 5 y jugador2 = 1 o jugador1 = 6 y
jugador2 = 2 Entonces
Escribir p1," Ha ganado la ronda "
rondasganadasjug1 <- rondasganadasjug1 + 1
FinSi
si jugador1 = 6 y jugador2 = 1 o jugador1 = 4 y jugador2 = 2 o jugador1 = 5 y
jugador2 = 3 Entonces
Escribir p2, " Ha ganado la ronda "
rondasganadasjug2 <- rondasganadasjug2 + 1
FinSi
rondax <- rondax + 1
FinMientras
si rondasganadasjug1 = 2 Entonces
Escribir p1," Ha ganado la partida"
FinSi
si rondasganadasjug2 = 2 Entonces
Escribir p2," Ha ganado la partida"
FinSi
finSi
si modoJuego = 2 Entonces
Definir nivel, ia, jugador, puntosJ, puntosia, ronda Como Entero
puntosJ = 0
puntosia = 0
Escribir "Seleccione la dificultad: 1. Normal, 2. Te recomiendo rezar"
Leer nivel
Mientras nivel < 1 o nivel > 2 Hacer
Escribir "Número inválido. Por favor, ingrese 1 o 2."
Leer nivel
FinMientras
Segun nivel Hacer
1: Escribir "Has seleccionado el modo normal. ¡Buena suerte!"
2:
Escribir "Veo que no te quieres mucho... la máquina tendrá un
punto extra."
puntosia <- 1
FinSegun
ronda = 1
mientras puntosJ < 2 y puntosia < 2 Hacer
Escribir "Ronda ", ronda
ia <- Aleatorio(1,3)
Escribir "Elige una opción: 1. Piedra, 2. Papel, 3. Tijeras"
Leer jugador
Mientras jugador < 1 o jugador > 3 Hacer
Escribir "Número inválido. Por favor, ingrese un número del 1 al
3."
Leer jugador
FinMientras
Segun jugador Hacer
1: Escribir "Has jugado: PIEDRA"
2: Escribir "Has jugado: PAPEL"
3: Escribir "Has jugado: TIJERAS"
FinSegun
Segun ia Hacer
1: Escribir "La máquina ha jugado: PIEDRA"
2: Escribir "La máquina ha jugado: PAPEL"
3: Escribir "La máquina ha jugado: TIJERAS"
FinSegun
Si jugador = ia Entonces
Escribir "¡Es un empate!"
Sino si jugador = 1 y ia = 3 o jugador = 2 y ia = 1 o jugador = 3 y ia
= 2 Entonces
Escribir "¡Felicidades, has ganado esta ronda!"
puntosJ <- puntosJ + 1
Sino
Escribir "Has perdido esta ronda."
puntosia <- puntosia + 1
FinSi
FinSi
ronda <- ronda + 1
FinMientras
Segun nivel Hacer
1: Si puntosJ = 2 Entonces
Escribir "¡El jugador ha ganado el juego!"
Sino
Escribir "¡La Maquina ha ganado el juego!"
FinSi
2: Si puntosJ = 2 Entonces
Escribir "¡El jugador ha ganado el juego!"
Sino
Escribir "¡La máquina ha ganado el juego, tenía un punto
extra por estar en modo difícil!"
FinSi
FinSegun
finSi
FinAlgoritmo