piedraPapelTijeras.psc

Funcion lanzamiento(computador Por Referencia)
	
    Dimension ordenador[3]
    ordenador[1] = "piedra"
    ordenador[2] = "papel"
    ordenador[3] = "tijera"
	
	ordenado=Aleatorio(1,3)
	
	computador= ordenador(ordenado)
	
FinFuncion

Algoritmo piedraPapelTijeras
    Definir ordenador, jugador Como Caracter
	definir numer Como Entero
	contador=1;
	Escribir "cuantas veces vas a jugar"
	leer numer;
	
	si numer > 0 Entonces
		Mientras contador<=numer Hacer
		Escribir "Ingresa tu jugada (piedra, papel o tijera):"
		Leer jugador
		si jugador="piedra" o jugador= "papel" O jugador=  "tijera" Entonces
			
			lanzamiento(jugadorOrdenador)
			
			Escribir "el ordenador lanzo ", jugadorOrdenador
			
		SiNo
			Escribir "error recuerda que debes ingresar piedra,pepel o tijera"
		FinSi
		
			contador <- contador + 1
			Fin Mientras
	
			contadores=0
			contar=0
			si jugadorOrdenador = "papel" y jugador="piedra" o  jugador = "papel" y jugadorOrdenador="piedra" 
				si jugadorOrdenador <> "papel"
					contadores=contadores+1
				SiNo
					contar=contar+1
				FinSi
			FinSi
			
			si jugadorOrdenador = "tijera" y jugador="papel" O  jugador = "tijera" y jugadorOrdenador="papel" 
				si jugadorOrdenador <> "tijera" 
					contadores=contadores+1
				SiNo
					contar=contar+1
				FinSi
				
			FinSi
			
			si jugadorOrdenador = "piedra" y jugador="tijera" O  jugador = "piedra" y jugadorOrdenador="tijera" 
				si jugadorOrdenador <> "piedra"
					contadores=contadores+1
				SiNo
					contar=contar+1
				FinSi
			FinSi
			
			
			si contar=contadores Entonces
				Escribir "empate"
			FinSi
			
			si contar>contadores Entonces
				Escribir "gano ordenador"
			SiNo
				Escribir "ganaste felicidades"
			FinSi
			
	SiNo
		Escribir "error en datos"
			
	FinSi


	

	
FinAlgoritmo