SubProceso Fuerza1 <-FUERZA(m,a)

    Fuerza1<-m*a;

FinSubProceso

 

SubProceso     Z <-RES(LAMBDA,d)

    Z<-20*Ln(LAMBDA/(4*pi*d));

FinSubProceso

 

SubProceso RETORNO <-AT(NPS,D,d1)

    RETORNO<-NPS-20*Ln(D/d1);

FinSubProceso

 

SubProceso N_REYNOLDS <-NDR(v,D1,p,n)

    N_REYNOLDS<-(v*D1*P)/n;

FinSubProceso

 

Proceso EJERCICIOS

    Escribir "1.-FUERZA"

    Escribir "2.-RESISTENCIA DEL SONIDO"

    Escribir "3.-ATENUACION DEL SONIDO"

    Escribir "4.-NUMERO DE REYNOLDS"

    Leer opciones

    Segun opciones Hacer

        1:

            Escribir "FORMULA DE LA FUERZA";

            Definir R,Z, m, a, F como Real;

            Escribir "MASA:";

            Leer m;

            Escribir "ACELERACION:";

            Leer a;

            R<-Fuerza(m,a);

            Escribir "LA FUERZA ES:", R;

        2:

            Escribir "RESISTENCIA DEL SONIDO"

            Definir PL, LAMBDA, d, a como Real;

            Escribir "ONDA LAMBDA:"

            Leer LAMBDA;

            Escribir "DISTANCIA:"

            Leer d;

            R<-RES(LAMBDA,d)

            Escribir "LA RESISTENCIA DEL SONIDO ES: ", R;

        3:

            Escribir "ATENUACION DEL SONIDO"

            Definir R ,NPS ,D ,d1 como Real;

            Escribir "NUMERO DE PULSOS:"

            Leer NPS;

            Escribir "DIAMETRO MAYOR:"

            Leer D;

            Escribir "DIAMETRO MENOR:"

            Leer d1;

            R<-AT(NPS,D,d1)

            Escribir "LA ATENUACION DEL SONIDO ES:", R;

        4:   

            Escribir "NUMERO DE REYNOLDS"

            Definir NR, v, D1, P, n como Real;

            Escribir "VELOCIDAD DEL FLUIDO:"

            Leer v;

            Escribir "DIAMETRO DEL TUBO:"

            Leer D1;

            Escribir "DENSIDAD DEL FLUIDO:"

            Leer p;

            n<- 0.001

            Escribir "Coeficiente de Viscocidad del Agua a 20°:", n;

            NR<-NDR(v,D1,p,n)

            Escribir "EL NUMERO DE REYNOLDS ES:", NR;

        De Otro Modo:

            Escribir "OPCION INCORRECTA"

    FinSegun

FinProceso