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_SONIDO(NPS,D,d1)
    RETORNO<-NPS-20*LN(D/d1)
Fin SubProceso
SubProceso R1<- VELOCIDAD_FINAL (V1,G,T)
    R1<-V1+G*T
Fin SubProceso

Proceso FUNCIONES

    Escribir '*************MENU************'
    Escribir '1: FUERZA '
    Escribir '2: PASO DEL SONIDO'
    Escribir '3: ATENUACION'
    Escribir '4: PLANTEA'
    
    Escribir 'INGRESE UNA OPCION'
    
    Leer proceso1
    
    Segun proceso1 Hacer
        1:
            Escribir 'CALCULO DE FUERZA';
            Escribir '*****************';
            Definir R,Z,m,a,F Como Entero;
            // DEFINIR FUERZA (m,a) como enteros;
            Escribir 'VALOR DE LA MASA'
            Leer m;
            Escribir 'VALOR DE ACELERACION '
            Leer a;
            R<-FUERZA (m,a);
            
            Escribir 'la fuerza es: ' ,R;
            
            
        2:
            Escribir 'CALCULO PASO DEL SONIDO';
            Escribir '***********************';
            Definir R,PL,LAMDA,d Como Real;
            
            Escribir 'VALOR DE LA onda Lamda'
            Leer LAMDA;
            Escribir 'VALOR DE LA DISTANCIA'
            Leer d;
            R<- RESISTENCIA_SONIDO(LAMDA,d)
            Escribir 'la resistencia del sonido es: ' ,R;
            
        3:
            Escribir 'CALCULO DE DISTANCIA';
            Escribir '*********************';
            Definir R,AT,NPS,D,d1 Como Real;
            
            Escribir 'VALOR DEL NUMERO DE PULSOS'
            Leer NPS;
            Escribir 'VALOR DEL DIAMETRO MAYOR'
            Leer D;
            Escribir 'VALOR DEL DIAMETRO MENOS'
            Leer d1;
        
            R<- ATENUACION_SONIDO (NPS,D,d1)
            Escribir 'la ATENUACION es: ' ,R;
            
            
        4:
            Escribir 'CALCULO DE VELOCIDAD FINAL';
            Escribir '*********************';
            Definir R,V1,VF,G,T Como Real;
            
            Escribir 'VALOR DEL VALOR INICIAL'
            Leer V1;
            Escribir 'VALOR DEL TIEMPO '
            Leer D;
            G=9.8
            
            R<- VELOCIDAD_FINAL (V1,G,T)
            Escribir 'la VELOCIDAD FINAL es: ' ,R;
            
            
        De Otro Modo:
            Escribir 'NO ES UNA OPCION'
        Fin Segun
    
FinProceso