Proyecto

-

 

Programas en PseInt 

Juego(ahorcado) y Registro-venta 

1.Juego del ahorcado

Este programa realizado en pseint, es un juego tradicional que ayuda a ejercitar la mente. por este motivo se desarrollaron 3 niveles de dificultad:

1_Básico: En este nivel encontrara palabras de 3 a 5 letras"
  
2_Medio: En este nivel encontrara palabras de 6 a 8 letras"

3_Avanzado: En este nivel encontrara palabras de 10 a 12 letras"

El juego consiste en adivinar la palabra secreta, por cada letra incorrecta perderás 1 de 10 oportunidades. 

Pseudocódigo:

Algoritmo juego_el_ahorcado
    // Elaborado: Angie Teran Aguirre
    Definir nombre Como Caracter
    Escribir " ***-Bienvenido al clasico juego del ahorcado-****"
    Escribir "Ingrese su nombre"
    Leer nombre
    Limpiar Pantalla 
    Escribir "                     Hola " , nombre
    Escribir ""
    Escribir "          Te invito a encontrar la palabra secreta"
    Escribir ""
    Escribir "                     ¡AUN HAY MAS!"
    Escribir ""
    Escribir "              Existen tres niveles de juego"
    Escribir ""
    Escribir "1_Basico: En este nivel encontrara palabras de 3 a 5 letras"
    Escribir ""
    Escribir "2_Medio: En este nivel encontrara palabras de 6 a 8 letras"
    Escribir ""
    Escribir "3_Avanzado: En este nivel encontrara palabras de 10 a 12 letras"
    Esperar 3 Segundos
    Limpiar Pantalla
    Escribir ""
    Escribir ""
    Escribir "                 - * - * - * - * - * -"
    Escribir "                 *    EMPECEMOS      *"
    Escribir "                 - * - * - * - * - * -"
    Esperar 3 Segundos
    Limpiar Pantalla
    Escribir "MENU"
    Escribir "1. Basico"
    Escribir "2. Medio"
    Escribir "3. Avanzado"
    Escribir "0. Salir"
    Escribir "Elegir una opcion"
    Leer op
    Limpiar Pantalla
    Segun op hacer
        1:     basico = 10
            oportunidades = 10
            Dimension palabras[basico]
            palabras[1]  = "Hada"
            palabras[2] = "Hilo"
            palabras[3] = "Llave"
            palabras[4] = "Coser"
            palabras[5] = "Pera"
            palabras[6] = "Mora"
            palabras[7] = "Casa"
            palabras[8] = "Chile"
            palabras[9] = "Volar"
            palabras[10] = "Comer"
            cabeza = ' '
            cuerpo = ' '
            mano_izquierda = ' '
            mano_derecha = ' '
            pie_izquierdo = ' '
            pie_derecho = ' '
            turnos = 0
            aciertos = 0
            palabra=palabras[Azar[basico]+1]
            n=Longitud(palabra)
            Dimension casillas(n)
            Para i=1 Hasta n Con Paso 1 Hacer
                casillas[i] = '_'
            FinPara
            Repetir
                Escribir ""
                Escribir "Oportunidades restantes: ", oportunidades-turnos
                Para i=1 Hasta n Con Paso 1 Hacer
                    Escribir Sin Saltar " ", casillas[i]
                FinPara
                Escribir ""
                Escribir Sin Saltar "Escriba una letra: "
                Leer letra;
                encontrado = Falso;
                Para i=1 Hasta n Con Paso 1 Hacer
                    chr = Subcadena(palabra, i, i)
                    Si Mayusculas(letra)=Mayusculas(chr) Entonces
                        encontrado = Verdadero
                        Si casillas[i]='_' Entonces
                            casillas[i] = chr
                            aciertos = aciertos+1
                        FinSi
                    FinSi
                FinPara
                Si No encontrado Entonces
                    turnos = turnos+1
                    Escribir "Letra no encontrada."
                    Segun turnos Hacer
                        1:
                            cabeza = 'O'
                        2:
                            cuerpo = '+'
                        3:
                            mano_derecha = '/'
                        4:
                            mano_izquierda = '\'
                        5:
                            pie_derecho = '/'
                        6:
                            pie_izquierdo = '\'
                    FinSegun
                FinSI
                Escribir "     ", cabeza," "
                Escribir "    ", mano_derecha, cuerpo, mano_izquierda
                Escribir "    ", pie_derecho," ", pie_izquierdo
                Escribir ""
            Hasta Que turnos>=oportunidades O aciertos>=n
            Si aciertos=n Entonces
                Escribir " _____________________________"
                Escribir "|                                                            |"
                Escribir "|   Felicidades, has ganado                   |"
                Escribir "|                                                            |"
                Escribir "|______________________________|"
            Sino
                Escribir " _____________________________"
                Escribir "|                                                            |"
                Escribir "|         Has perdido                                |"
                Escribir "|                                                            |"
                Escribir "|______________________________|"
            FinSi
            Escribir "La palabra secreta es: ", palabra
           
        2:     medio = 15
            oportunidades = 10
            Dimension palabras[medio]
            palabras[1] = "Caminar"
            palabras[2] = "Espejo"
            palabras[3] = "Bolivia"
            palabras[4] = "Brasil"
            palabras[5] = "Celular"
            palabras[6] = "Matriz"
            palabras[7] = "Cartera"
            palabras[8] = "Caballo"
            palabras[9] = "Ecuador"
            palabras[10] = "Pantera"
            palabras[11] = "Zapato"
            palabras[12] = "Maleta"
            palabras[13] = "Manzana"
            palabras[14] = "Sandia"
            palabras[15] = "Durazno"
            cabeza = ' '
            cuerpo = ' '
            mano_izquierda = ' '
            mano_derecha = ' '
            pie_izquierdo = ' '
            pie_derecho = ' '
            turnos = 0
            aciertos = 0
            palabra=palabras[Azar[medio]+1]
            n=Longitud(palabra)
            Dimension casillas(n)
            Para i=1 Hasta n Con Paso 1 Hacer
                casillas[i] = '_'
            FinPara
            Repetir
                Escribir ""
                Escribir "Oportunidades restantes: ", oportunidades-turnos
                Para i=1 Hasta n Con Paso 1 Hacer
                    Escribir Sin Saltar " ", casillas[i]
                FinPara
                Escribir ""
                Escribir Sin Saltar "Escriba una letra: "
                Leer letra;
                encontrado = Falso;
                Para i=1 Hasta n Con Paso 1 Hacer
                    chr = Subcadena(palabra, i, i)
                    Si Mayusculas(letra)=Mayusculas(chr) Entonces
                        encontrado = Verdadero
                        Si casillas[i]='_' Entonces
                            casillas[i] = chr
                            aciertos = aciertos+1
                        FinSi
                    FinSi
                FinPara
                Si No encontrado Entonces
                    turnos = turnos+1
                    Escribir "Letra no encontrada."
                    Segun turnos Hacer
                        1:
                            cabeza = 'O'
                        2:
                            cuerpo = '+'
                        3:
                            mano_derecha = '/'
                        4:
                            mano_izquierda = '\'
                        5:
                            pie_derecho = '/'
                        6:
                            pie_izquierdo = '\'
                    FinSegun
                FinSI
                Escribir "     ", cabeza," "
                Escribir "    ", mano_derecha, cuerpo, mano_izquierda
                Escribir "    ", pie_derecho," ", pie_izquierdo
                Escribir ""
            Hasta Que turnos>=oportunidades O aciertos>=n
            Si aciertos=n Entonces
                Escribir " _____________________________"
                Escribir "|                                                            |"
                Escribir "|   Felicidades, has ganado                   |"
                Escribir "                                                             |"
                Escribir "|______________________________|"
            Sino
                Escribir " _____________________________"
                Escribir "                                                            |"
                Escribir "|         Has perdido                               |"
                Escribir "|                                                            |"
                Escribir "|______________________________|"
            FinSi
            Escribir "La palabra secreta es: ", palabra
           
        3:    avanzado = 20
            oportunidades = 10
            Dimension palabras[avanzado]
            palabras[1] = "Adolescente"
            palabras[2] = "Experimento"
            palabras[3] = "Literatuta"
            palabras[4] = "Arquitectura"
            palabras[5] = "Circunferencia"
            palabras[6] = "Motocicleta"
            palabras[7] = "Calculadora"
            palabras[8] = "Camarografo"
            palabras[9] = "Habitacion"
            palabras[10] = "Democratico"
            palabras[11] = "Enfermedades"
            palabras[12] = "Constelacion"
            palabras[13] = "Instrumental"
            palabras[14] = "Secuestrador"
            palabras[15] = "Conocimiento"
            palabras[16] = "Supermercado"
            palabras[17] = "Ambulancia"
            palabras[18] = "Monasterio"
            palabras[19] = "Cuadrulatero"
            palabras[20] = "Frigorifico"
            cabeza = ' '
            cuerpo = ' '
            mano_izquierda = ' '
            mano_derecha = ' '
            pie_izquierdo = ' '
            pie_derecho = ' '
            turnos = 0
            aciertos = 0
            palabra=palabras[Azar[avanzado]+1]
            n=Longitud(palabra)
            Dimension casillas(n)
            Para i=1 Hasta n Con Paso 1 Hacer
                casillas[i] = '_'
            FinPara
            Repetir
                Escribir ""
                Escribir "Oportunidades restantes: ", oportunidades-turnos
                Para i=1 Hasta n Con Paso 1 Hacer
                    Escribir Sin Saltar " ", casillas[i]
                FinPara
                Escribir ""
                Escribir Sin Saltar "Escriba una letra: "
                Leer letra;
                encontrado = Falso;
                Para i=1 Hasta n Con Paso 1 Hacer
                    chr = Subcadena(palabra, i, i)
                    Si Mayusculas(letra)=Mayusculas(chr) Entonces
                        encontrado = Verdadero
                        Si casillas[i]='_' Entonces
                            casillas[i] = chr
                            aciertos = aciertos+1
                        FinSi
                    FinSi
                FinPara
                Si No encontrado Entonces
                    turnos = turnos+1
                    Escribir "Letra no encontrada."
                    Segun turnos Hacer
                        1:
                            cabeza = 'O'
                        2:
                            cuerpo = '+'
                        3:
                            mano_derecha = '/'
                        4:
                            mano_izquierda = '\'
                        5:
                            pie_derecho = '/'
                        6:
                            pie_izquierdo = '\'
                    FinSegun
                FinSI
                Escribir "     ", cabeza," "
                Escribir "    ", mano_derecha, cuerpo, mano_izquierda
                Escribir "    ", pie_derecho," ", pie_izquierdo
                Escribir ""
            Hasta Que turnos>=oportunidades O aciertos>=n
            Si aciertos=n Entonces
                Escribir " _____________________________"
                Escribir "                                                             |"
                Escribir "|   Felicidades, has gana                       |"
                Escribir "                                                             |"
                Escribir "|______________________________|"
            Sino
                Escribir " _____________________________"
                Escribir "|                                                            |"
                Escribir "|         Has perdido                                |"
                Escribir "                                                             |"
                Escribir "|______________________________|"
            FinSi
            Escribir "La palabra secreta es: ", palabra
    
           
    FinSegun
FinAlgoritmo

Ejecuciones:


 

 

 

 

2. Registro-venta

 Programa que realiza el registro de clientes, personal de trabajo, productos y factura de venta.

Pseudocódigo:

//elaborado: Angie Teran Aguirre
SubProceso menu
    Escribir "__________________________________"
    Escribir "             MENU"
    Escribir "__________________________________"
    Escribir "1. Registrar cajero"
    Escribir "2. afiliar cliente"
    Escribir "3. Registrar productos"
    Escribir "4. Venta"
    Escribir "__________________________________"
    Escribir "Ingrese una opcion"
    Escribir "__________________________________"
FinSubProceso

SubProceso ejecucion(alt)
    Definir nombreap, cont, nombrepro Como Caracter
    Definir cedula , num  , cantidadpro Como Entero
    Borrar Pantalla
    Segun alt Hacer
        1:
            Escribir "Ingrese nombres y apellidos"
            leer nombreap
            Escribir "Ingrese cedula de identidad"
            Leer cedula
            Escribir "Ingrese numedo de caja asignada"
            Leer num
            Escribir "Registro exitoso"
            Esperar 1 Segundos
            Borrar Pantalla
           
        2:
            Escribir "Ingrese nombres y apellidos"
            leer nombreap
            Escribir "Ingrese cedula de identidad"
            Leer cedula
            Escribir "Registro exitoso"
            Esperar 2 Segundos
            Borrar Pantalla
           
        3:
            Escribir "Ingrese su clave Admin"
            Leer cont
            Mientras cont <> "Angie1319" Hacer
                Escribir "La clave es incorrecta!"
                Leer cont
            FinMientras
            Escribir "Clave ingresada correctamente"
            Borrar Pantalla
            Escribir "ingrese nombre del producto"
            Leer nombrepro
            Escribir "Ingrese cantidad"
            Leer cantidadpro
            menu2()
           
        4:
            Definir nombre , ruc , direccion , articulo , siguiente Como Caracter
            Definir cantidad, n_articulo, fila Como Entero
            Definir  pre_unitario, total como real
            Escribir "Ingrese usuario"
            Leer usiario
            Escribir "Ingrese clave"
            Leer clave
            Borrar Pantalla
            Dimension articulo[100] ; dimension cantidad[100] ; dimension pre_unitario[100] ; dimension pre_total[100]
            Escribir "Ingrese datos del cliente"
            Escribir "============================"
            Escribir Sin Saltar "Nombre" ; leer nombre
            Escribir Sin Saltar "Ruc O C.I" ; leer ruc
            Escribir Sin Saltar "Direccion" ; leer  direccion
            Escribir ""
            Escribir "Ingrese articulos"
            Escribir "============================"
            siguiente="si"; n_articulo=1
            Repetir
                Escribir Sin Saltar "Ingrese producto" ; leer articulo(n_articulo)
                Escribir Sin Saltar "Cantidad" ; leer cantidad(n_articulo)
                Escribir Sin Saltar "Pre. unitario :" ; leer pre_unitario(n_articulo)
                n_articulo=n_articulo+1
                Escribir "Desea agregar otro articulo si o no:" ; Leer  siguiente
                Escribir ""
            Hasta Que siguiente="no"
            Escribir "" ; Escribir "factura Nº 000-1"
            Escribir "========================================================================"
            Escribir ""
            Escribir "Empresa : Supermercado Elaine"             "Fecha: ", FechaActual()
            Escribir "Cliente: " , nombre
            Escribir "Direccion: " , direccion
            Escribir "========================================================================"
            Escribir " Cantidad       Descripcion       Pre. Unit.       Pre. Total"
            Escribir ""
            Para fila=1 Hasta n_articulo-1 Con Paso 1 Hacer
           
                pre_total(fila)=cantidad(fila)*pre_unitario(fila)
                Escribir "  ",cantidad(fila), "               ", articulo(fila) , "             " , pre_unitario(fila) ,"                " , pre_total(fila)
                total= total +cantidad(fila)*pre_unitario(fila)
               
            FinPara
            Escribir "========================================================================"
            Escribir "                                        subtotal :  " , total     
            Escribir "                                    Impuesto 12% :  " , total*0.12
            Escribir "                                    Total a pagar:  " , total+(total*0.12)
            Escribir ""
            Esperar Tecla 
            Borrar Pantalla
    FinSegun
FinSubProceso

SubProceso menu2
    Definir nombrepro Como Caracter
    Definir cantidadpro, alt2, x  Como Entero
    repetir 
        Escribir "Ingrese 1 para Continuar"
        Escribir "Ingrese 2 para Cerrar"
        Leer x
        si x=1 Entonces
            Escribir "ingrese nombre del producto"
            Leer nombrepro
            Escribir "Ingrese cantidad"
            Leer cantidadpro
        FinSi
    Hasta Que x=2
    si x=2 Entonces
        Escribir "1. Guardar Registro"
        Escribir "2. cerrar sin guardar"
        Leer alt2
        Segun alt2 Hacer
            1:
                Escribir "Guardado con exito"
            2:
                Escribir "Cerrado"
        FinSegun
    FinSi
    Esperar 2 Segundos
    Borrar Pantalla
FinSubProceso

Algoritmo registro
    Definir op1 Como Entero
    op1=0
    Repetir
        menu()
        Leer op1
        Segun op1 Hacer
            1:
                ejecucion(op1)
            2:
                ejecucion(op1)
            3:
                ejecucion(op1)
            4:
                ejecucion(op1)
            De Otro Modo:
                Escribir " Cerrar"
        FinSegun
    Hasta Que (op1<1 | op1>4)
FinAlgoritmo

Ejecuciones:

  

1. Registrar cajero

 

 2. venta

 


Comentarios

Publicar un comentario

Entradas populares de este blog

Programas en PseInt - Cajero Automático y Calculo de temperaturas

-
Imagen
1. Programa que funciona como cajero automático. El primer programa que les presento es un seudocódigo hecho en PSeInt el cual funciona como cajero automático. Permitiendo al usuario ingresar: - su numero de cuenta y contraseña  -método de pago entre tarjeta o efectivo - tipo de tarjeta entre debito y crédito Asi mismo, permite conocer el saldo existente en la cuenta, retirar la cantidad de dinero ingresado y realizar depósitos. Al final del proceso, puede generar un comprobante. Pseudocódigo: Proceso Banco Definir numcuenta Como Caracter     Definir contrasena Como Caracter     Definir intentos Como Entero     Repetir Escribir "Ingrese su numero de cuenta:"         Leer numcuenta         Escribir "Ingrese su contraseña:"         Leer contrasena intentos = intentos + 1         Si numcuenta == "021605" Y contrasena == "mmm616" Entonces         ...
Leer más

Proyecto Algoritmos-Programas en PSeInt

-
Imagen
                                                  PROYECTO ALGORITMOS PROGRAMAS EN PSEINT Desarrollo de Proyecto con PSeInt: Calculadora de Peso y Juego de Trivia   ¿Alguna vez te has preguntado cómo utilizar puedes la programación para resolver problemas del mundo real y al mismo tiempo hacer que el aprendizaje sea divertido? En este blog, exploraremos dos proyectos desarrollados en PSeInt, una herramienta de programación. Aprenderemos a crear una calculadora de pesos y un juego de trivia utilizando esta poderosa herramienta.   Calculadora de pesos Descripción del Proyecto: La calculadora de pesos es un programa simple pero útil que te permite calcular el peso de un objeto en diferentes planetas. Este proyecto es perfecto para aprender conceptos de programación como variables, entradas y salidas, operaciones matemáticas...
Leer más

Proyecto en PSeInt _Calculadora--y--calcula tu nivel de inteligencia.

-
Imagen
                           PROYECTO DE ALGORITMO - PSEINT                                                                                                                      Proyecto calculadora CALCULADORA La calculadora nos sirve para realizar prácticamente cualquier tipo de cálculos, con ella podemos calcular, ecuaciones un tanto simples como lo es la suma, resta, multiplicación, división, etc. este tipo de calculadoras no son muy útiles en la vida cotidiana, pero si son extremadanamente necesarias cuando tu trabajo o estudios están relacionados con algún tipo de ingeniería, son las elegidas por exce...
Leer más