SubProceso Resistencia_de_sonido()
    Escribir "Diametro menor"
    Leer d_menor
    Inicial = 200
    Final = 300
    Si d_menor<>0 Entonces
        Escribir "Diametro Mayor"
        Leer d_mayor
        Para NPS<-Inicial Hasta Final Con Paso 25 Hacer
            R = NPS-20*ln(d_mayor/d_menor)
            Escribir "Resistencia al sonido = ",R
        Fin Para
    SiNo
        Escribir "Diametro menor diferente de 0"
    Fin Si
Fin SubProceso

SubProceso Ley_de_Gauss()
    Escribir "Area"
    Leer A
    Si A>5 Entonces
        Escribir "Campo Electrico"
        Leer E
        Inicial = 60
        Final = 120
        Para beta<-incial Hasta Inicial Con Paso 10 Hacer
            Flujo_E = E*A*cos(beta)
            Escribir "Flujo Electrico = ",Flujo_E
        Fin Para
    SiNo
        Escribir "Area debe ser mayor a 5"
    FinSi
Fin SubProceso

SubProceso Energia_Potencial()
    Escribir "Distancia entre Cargas"
    Leer R
    Si r<>0 Entonces
        Escribir "Carga 2"
        k = 1
        Inicial = 20
        Final = 100
        Leer Q2
        Para Q1<-Incial Hasta Final Con Paso 2.5 Hacer
            U = (K*Q1*Q2)/R
            Escribir "Energia Potencial = ",U
        Fin Para
    SiNo
        Escribir "Distancia entre cargas debe ser Diferente de 0"
    Fin Si
Fin SubProceso

Proceso Tarea
    Definir d_menor,d_mayor,Inicial,Final,Nps,R,A,E,beta,Flujo_E,k,Q1,Q2,U Como Real
    Definir opcion Como Entero
    Escribir "1.Energia Potencial"
    Escribir "2.Ley de Gauss-FLujo Electrico"
    Escribir "3.Resistencia de sonido"
    Leer opcion
    Segun opcion Hacer
        1:
            Energia_Potencial()
        2:
            Ley_de_Gauss()
        3:
            Resistencia_De_Sonido()
        De Otro Modo:
            Escribir "La opcion no existe"
        Fin Segun
    FinProceso