//formula para hallar la fuerza
SubProceso Fuerza1 = FUERZA(m,a)
    Fuerza = m*a;
FinSubProceso
//formula de la resistencia del sonido
SubProceso     Z  = RESISTENCIA_SONIDO(LAMDA,d)
    Z<-20*Ln(LAMDA/(4*pi*d));
FinSubProceso
//formula atenuacion del sonido 
SubProceso RETORNO <-ATENUACION_SONIDO(NPS,D,d1)
    RETORNO<-NPS-20*Ln(D/d1);
FinSubProceso
//Formula de numero de reynolds
SubProceso N_REYNOLDS <-NUMERO_DE_REYNOLDS(v,D1,p,n)
    N_REYNOLDS<-(v*D1*P)/n;
FinSubProceso

Proceso EJERCICIOS
        //ELEGIR OPCION FORMULA
        Escribir "***********MENU***********"
        Escribir "1)Formula fuerza"
        Escribir "2)Formula de la resistencia del sonido"
        Escribir "3)Formula de la atenuación del sonido"
        Escribir "4)Formula de número de reynolds"
        Escribir "Seleccionar una formula:"
        Leer opciones
        
        Segun opciones Hacer
            1:
                //INICIO
                Escribir "Formula fuerza";
                Escribir "______________________";
                //DECLARACION
                Definir R,Z, m, a, F como Real;
                //ASIGNACION
                Escribir "INGRESE LA MASA:";
                Leer m;
                Escribir "INGRESE LA ACELERACION:";
                Leer a;
                //PROCESO
                R<-Fuerza(m,a);
                //RESULTADO
                Escribir "LA FUERZA ES:", R;
                //FIN
                
            2:
                //INICIO
                Escribir "2)Formula de la resistencia del sonido"
                Escribir "________________________________________"
                //DECLARACION
                Definir PL, LAMDA, d, a como Real;
                //ASIGNACION
                Escribir "INGRESE LA ONDA LAMDA:"
                Leer LAMDA;
                Escribir "INGRESE LA DISTANCIA:"
                Leer d;
                R<-RESISTENCIA_SONIDO(LAMDA,d)
                //RESULTADO
                Escribir "LA RESISTENCIA DEL SONIDO ES:", R;
                //FIN
                
            3:
                //INICIO
                Escribir "Formula de la atenuación del sonido"
                Escribir "________________________________________"
                //DECLARACION
                Definir R ,AT ,NPS ,D ,d1 como Real;
                //ASIGNACION
                Escribir "INGRESE EL NUMERO DE PULSOS:"
                Leer NPS;
                Escribir "INGRESE EL DIAMETRO MAYOR:"
                Leer D;
                Escribir "INGRESE EL DIAMETRO MENOR:"
                Leer d1;
                R<-ATENUACION_SONIDO(NPS,D,d1)
                //RESULTADO
                Escribir "LA ATENUACION DEL SONIDO ES:", R;
                //FIN
                
            4:    
                //INICIO
                Escribir "Formula de número de reynolds"
                Escribir "__________________________________"
                //DECLARACION
                Definir NR, v, D1, P, n como Real;
                //ASIGNACION
                Escribir "INGRESE LA VELOCIDAD DEL FLUIDO:"
                Leer v;
                Escribir "INGRESE EL DIAMETRO DEL TUBO:"
                Leer D1;
                Escribir "INGRESE LA DENSIDAD DEL FLUIDO:"
                Leer p;
                n<- 0.001
                Escribir "Coeficiente de Viscocidad del Agua a 20°:", n;
                NR<-NUMERO_DE_REYNOLDS(v,D1,p,n)
                //RESULTADO
                Escribir "EL NUMERO DE REYNOLDS ES:", NR;
                //FIN
                
            De Otro Modo:
                Escribir "NO HA SELECCIONADO UNA FORMULA"
        Fin Segun
FinProceso
//FIN