ROCÍO  ARAGÓN 

SubProceso fuerza_1 <- fuerza(m,a)
    fuerza_1 <- m * a;
Fin SubProceso

 

SubProceso z <- resistencia_del_sonido ( lamda,d )
    z<-20*ln(lamda/(4*p*d));
Fin SubProceso

 

SubProceso retorno <-atenuacion_del_sonido(nps,D,d)
    retorno<-nps-20*ln(D/d)
Fin SubProceso

 

proceso opcion_de_formulas
    
    Escribir "-MENU-"
    
    Escribir "FORMULA DE FUERZA"
    
    Escribir "FORMULA RESISTENCIA DE FLUJO"
    
    Escribir "FORMULA ATENUACION DEL SONIDO"
    
    
    Escribir "ingrese una opcion_"
    leer opcion_
    
    Segun opcion_ Hacer
        1:
            definir r,z,a,m,f como entero;
            escribir "ingrese la masa";
            leer m;
            Escribir "ingrese aceleracion"
            leer a;
            
            r<- fuerza(m,a);
            escribir "la fuerza es:",r;
            
        2:
            definir d,lamda,p,r como entero
            Escribir "lamda"
            leer lamda
            escribir "distancia"
            Leer d
            
            r<-resistencia_del_sonido (lamda,d);
            
        3:
            definir at,R,nds,D,d1 como real
            Escribir "CALCULO DE ATENUACION DLE SONIDO"
            Definir R,at,nds,D,d1 Como real
            Escribir "n de pulsos";
            Leer nps;
            Escribir "diametro mayor";
            Leer D;
            Escribir "diametro menor";
            Leer d;
            
            R<-atenuacion_del_sonido(nps,D,d1);
            escribir "atenuacion es:",R;
        De Otro Modo
            escribir "no es una opcion_";
        Fin Segun
    FinProceso