CLASE DEL MARTES 

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

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

SubProceso retorno <-atenuacion(nps,D,d1)
    retorno<-nps-20*ln(D/d1)
Fin SubProceso

 

proceso opciones
    Escribir "-----------MENU-----------"
    Escribir "opcion1_fuerza"
    Escribir "opcion2_resistencia de flujo"
    Escribir "opcion3_atenuacion"
    
    
    Escribir "ingrese opcion_"
    leer opcion_
    
    Segun opcion_ Hacer
        1:
            definir r,z,m,a,f como entero;
            //definir fuerza (m,a)comoentero;
            
            escribir "ingrese la masa";
            leer m;
            
            Escribir "ingrese la aceleracion"
            leer a;
            r<- fuerza(m,a);
            escribir "la fuerza es:",r;
            
        2:
            definir r,pl,lamda,d como entero
            //
            Escribir "lamda"
            leer lamda
            
            escribir "distancia"
            Leer d
            r<-resistencia_sonido(lamda,d);
            
        3:
            escribir "_____CALCULO DE ATENUACION_____"
            Definir R,at,nds,D,d1 Como reales
            
            Escribir "numero de pulsos";
            Leer nps;
            Escribir "diametro mayor";
            Leer D;
            Escribir "diametro menor";
            Leer d1;
            R<-atenuacion(nps,D,d1);
            escribir "atenuacion es:",R;
        De Otro Modo:
            escribir "no es opcion_";
        Fin Segun
FinProceso