Proceso ENERGÍA
    // DECLARACIÓN
    Definir OPC Como Entero
    Escribir '*********MENÚ*********'
    Escribir '1) ENERGÍA EN REPOSO'
    Escribir '2) ENERGÍA CINÉTICA'
    Escribir '3) ENERGÍA POTENCIAL'
    Escribir '4) ENERGÍA POTENCIAL ELASTICA'
    Escribir '5) ENERGÍA MECÁNICA'
    Escribir ' INGRESE UNA OPCIÓN '
    Leer OPC
    Segun OPC  Hacer
        1:
            Escribir 'OPCIÓN 1'
            // DECLARACIÓN
            Definir ER,M,C Como Real
            // ASIGNACIÓN
            Escribir 'masa'
            Leer M
            Escribir 'velocidad de la luz'
            Leer C
            // PROCESO
            Si (0<M Y M<100) Entonces
                ER<-M*(C^2)
                Escribir 'la energía en reposo es:',ER
            Sino
                Escribir 'solo acepta valores de masa entre 0 y 100'
            FinSi
        2:
            Escribir 'OPCIÓN 2'
            // DECLARACIÓN
            Definir EC,M,V Como Real
            // ASIGNACIÓN
            Escribir 'masa'
            Leer M
            Escribir 'velocidad'
            Leer V
            // PROCESO
            Si (5<M Y M<100) Entonces
                Si (10<V Y V<50) Entonces
                    EC<-((M*(V^2))/2)
                    Escribir 'la energía cinética es:',EC
                Sino
                    Escribir 'solo acepta valores de velocidad entre 10 y 50'
                FinSi
            Sino
                Escribir 'solo acepta valores de masa entre 5 y 100'
            FinSi
        3:
            Escribir 'OPCIÓN 3'
            // DECLARACIÓN
            Definir EP,M,G,H Como Real
            // ASIGNACIÓN
            Escribir 'masa'
            Leer M
            Escribir 'gravedad'
            Leer G
            Escribir 'altura'
            Leer H
            // PROCESO
            Si (50<M Y M<200) Entonces
                Si (1<H Y H<10) Entonces
                    EP<-M*G*H
                    Escribir 'la energía potencial es:',EP
                Sino
                    Escribir 'solo acepta valores de altura entre 1 y 10'
                FinSi
            Sino
                Escribir 'solo acepta valores de masa entre 50 y 200'
            FinSi
        4:
            Escribir 'OPCIÓN 4'
            // DECLARACIÓN
            Definir EPE,K,X Como Real
            // ASIGNACIÓN
            Escribir 'constante elástica'
            Leer K
            Escribir 'desplazamiento de x'
            Leer X
            // PROCESO
            Si (100<K Y K<300) Entonces
                Si (1<X Y X<200) Entonces
                    EPE<-((K*(X^2))/2)
                    Escribir 'la energía potencial elástica es:',EPE
                Sino
                    Escribir 'solo acepta valores de constante de x entre 1 y 200'
                FinSi
            Sino
                Escribir 'solo acepta valores de constante elástica entre 100 y 300'
            FinSi
        5:
            Escribir 'OPCIÓN 5'
            // DECLARACIÓN
            Definir EM,M,V,G,H Como Real
            // ASIGNACIÓN
            Escribir 'masa'
            Leer M
            Escribir 'velocidad'
            Leer V
            Escribir 'gravedad'
            Leer G
            Escribir 'altura'
            Leer H
            // PROCESO
            Si (10<M Y M<30) Entonces
                Si (11<H Y H<210) Entonces
                    EM<-((M*(V^2))/2)+(M*G*H)
                    Escribir 'la energía mecánica es:',EM
                Sino
                    Escribir 'solo acepta valores de altura entre 11 y 210'
                FinSi
            Sino
                Escribir 'solo acepta valores de masa entre 10 y 30'
            FinSi
    FinSegun
FinProceso