SubProceso resistencia_del_sonido()
    Escribir "diametro mayor:";
    leer D;
    Escribir "DIAMETRO MENOR";
    leer d1;
    
    inicial=200
    final=300
    
    Si d<>0 Entonces
        Para nps<-inicial Hasta final Con Paso 25 Hacer
            r<- nps-20*ln(D/d1)
            escribir "el resultado es:",r;
        Fin Para
    Sino
        escribir "el diametro menor debe ser <> de cero";
    Fin Si
    
Fin SubProceso

 

SubProceso ley_de_gauss()
    //
    //
    inicial=60
    final=120
    Para a<-inicial Hasta final Con Paso 10 Hacer
        teta=e/a
        fe=e*a*cos(teta)
        escribir "para un teta=",teta,"el flujo electrico es:",fe
    Fin Para
Fin SubProceso

 

SubProceso frecuencia_angular()
    //
    //
    inicial=5
    finaL=7
    Para f<-inicial Hasta final Con Paso 0.5 Hacer
        t=1/f
        w=pi/t
        escribir "para un t=",t,"la frecuencia angular es:",w 
    Fin Para
Fin SubProceso

 

SubProceso energia_potencial()
    //
    //
    inicial=20
    finaL=100
    
    Para l<-inicial Hasta final Con Paso 2.5 Hacer
        m=1/l
        u=(k*q1*q2)/m;
        Escribir "para un m=",m,"la energia potencial es:",u
    Fin Para
Fin SubProceso

 

Proceso parametros4
    //DECLARACIONESPUBLICAS
    //FSDGGJJH.K,JGHGTY
    definir inicio,finaL,OPCION COMO ENTERO
    definir t,f,w,l,m,i,u,k,q1,q2,p1,teta,e,a,fe,r,nps,D,d1 como real
    //2ASIGNAR
    Escribir "-----------MENU-----------"
    Escribir "1) opcion1_energia potencial"
    Escribir "2) opcion2_frecuencia angular"
    Escribir "3) opcion3_ley de gauss"
    Escribir "4) opcion4_resistencia del sonido"
    
    Escribir "ingrese opcion_"
    leer opcion_
    
    Segun opcion_ Hacer
        1:
            energia_potencial()
        2:
            frecuencia_angular()
        3:  
            ley_de_gauss()
        4:
            resistencia_del_sonido()
            
    FinSegun
FinProceso