Juego 1

  programa  de el juego piedra , papel y tijeras 

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

Funcion piedra

//Elaborado por:leonardo cabezas Briones 

Escribir "      **********";

Escribir "    *    __ _ _ *";

Escribir "   *           \  *"; 

Escribir "  *  /   / **      *"; 

Escribir "   * \           / *";

Escribir "    *    **  --   *";

Escribir "     * --------- *";

Escribir "       **********";

Fin Funcion

Funcion papel

Escribir "  ___________________";

Escribir "  | --------------  |";

Escribir "  | ----------- ___ |";

Escribir "  | ----------- |  ||";

Escribir "  | --------------- |";

Escribir "  | --------------- |";

    Escribir "  | --------------- |";

Escribir "  |_________________|";

FinFuncion

Funcion  tijera

Escribir "   *               *";

Escribir "   ***           ***";

Escribir "    ***         ***";

Escribir "     ***       ***";

Escribir "      ***     ***";

Escribir "       ***   ***";

Escribir "       * *   * *";

Escribir "      * * *  * * *";

Escribir "    * *** *  * *** *";

Escribir "   * **** *  * *** *";

Escribir "   * **** *  * *** *";

Escribir "   * **** *  * *** *";

Escribir "     ****      ***  ";

FinFuncion

Algoritmo piedra_papel_tijera

Repetir

cpu=azar(3)+1;

Escribir "1. Piedra | 2. Papel | 3. Tijera | 0. Salir";

leer jugador;

si (jugador>=0 y jugador<=3) Entonces 

si jugador==1 y cpu==1 Entonces 

Escribir "****EMPATE****";

Escribir "JUGADOR";

piedra();

Escribir "MÁQUINA";

piedra();

FinSi

si jugador==2 y cpu==1 Entonces 

Escribir "****GANASTE****";

Escribir "JUGADOR";

papel();

Escribir "MÁQUINA";

piedra();

FinSi

si jugador==3 y cpu==1 Entonces 

Escribir "****PERDISTE****";

Escribir "JUGADOR";

tijera();

Escribir "MÁQUINA";

piedra();

FinSi

si jugador==1 y cpu==2 Entonces 

Escribir "****PERDISTE****";

Escribir "JUGADOR";

piedra();

Escribir "MÁQUINA";

papel();

FinSi

si jugador==2 y cpu==2 Entonces 

Escribir "****EMPATE****";

Escribir "JUGADOR";

papel();

Escribir "MÁQUINA";

papel();

FinSi

si jugador==3 y cpu==2 Entonces 

Escribir "****GANASTE****";

Escribir "JUGADOR";

tijera();

Escribir "MÁQUINA";

papel();

FinSi

si jugador==1 y cpu==3 Entonces 

Escribir "****GANASTE****";

Escribir "JUGADOR";

piedra();

Escribir "MÁQUINA";

tijera();

FinSi

si jugador==2 y cpu==3 Entonces 

Escribir "****PERDISTE****";

Escribir "JUGADOR";

papel();

Escribir "MÁQUINA";

tijera();

FinSi

si jugador==3 y cpu==3 Entonces 

Escribir "****EMPATE****";

Escribir "JUGADOR";

tijera();

Escribir "MÁQUINA";

tijera();

FinSi

Esperar 3 segundos;

Borrar Pantalla;

SiNo

Escribir "Por favor ingrese un número válido";

Esperar 2 segundos;

Borrar Pantalla;

finsi

Hasta Que jugador==0

FinAlgoritmo

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓